strwrap

R Base 3.6.2 🇮🇩 Bahasa Indonesia

Setiap string karakter dalam input pertama-tama dipecah menjadi paragraf (atau baris yang hanya berisi spasi putih). Paragraf tersebut kemudian diformat dengan memutus garis pada batas kata. Kolom target untuk membungkus baris dan indentasi baris pertama dan selanjutnya dalam sebuah paragraf dapat dikontrol secara mandiri.

Syntax

strwrap(x, width = 0.9 * getOption("width"), indent = 0,
        exdent = 0, prefix = "", simplify = TRUE, initial = prefix)

Arguments

Parameter	Deskripsi
`x`	a character vector, or an object which can be converted to a character vector by as.character.
`width`	a positive integer giving the target column for wrapping lines in the output.
`indent`	a non-negative integer giving the indentation of the first line in a paragraph.
`exdent`	a non-negative integer specifying the indentation of subsequent lines in paragraphs.
`prefix, initial`	a character string to be used as prefix for each line except the first, for which initial is used.
`simplify`	a logical. If TRUE, the result is a single character vector of line text; otherwise, it is a list of the same length as x the elements of which are character vectors of line text obtained from the corresponding element of x. (Hence, the result in the former case is obtained by unlisting that of the latter.)

Return Value

Vektor karakter (jika penyederhanaannya BENAR), atau daftar vektor karakter tersebut, dengan pengkodean masukan yang dinyatakan dipertahankan.

Details

Spasi putih (spasi, tab, atau karakter baris baru) pada input dimusnahkan. Spasi ganda setelah titik, tanda tanya dan penjelasan (dianggap mewakili akhir kalimat) dipertahankan. Saat ini, kemungkinan kalimat berakhir pada jeda baris tidak dipertimbangkan secara khusus. Indentasi relatif terhadap jumlah karakter dalam string awalan.

Contoh

Example

# NOT RUN {
## Read in file 'THANKS'.
x <- paste(readLines(file.path(R.home("doc"), "THANKS")), collapse = "\n")
## Split into paragraphs and remove the first three ones
x <- unlist(strsplit(x, "\n[ \t\n]*\n"))[-(1:3)]
## Join the rest
x <- paste(x, collapse = "\n\n")
## Now for some fun:
writeLines(strwrap(x, width = 60))
writeLines(strwrap(x, width = 60, indent = 5))
writeLines(strwrap(x, width = 60, exdent = 5))
writeLines(strwrap(x, prefix = "THANKS> "))

## Note that messages are wrapped AT the target column indicated by
## 'width' (and not beyond it).
## From an R-devel posting by J. Hosking <jh910@juno.com>.
x <- paste(sapply(sample(10, 100, replace = TRUE),
           function(x) substring("aaaaaaaaaa", 1, x)), collapse = " ")
sapply(10:40,
       function(m)
       c(target = m, actual = max(nchar(strwrap(x, m)))))
# }