https://github.com/cran/bbmle
Tip revision: 7b5f3cec41459c0304d4410cca99ef6a12c8126d authored by Ben Bolker on 13 June 2007, 00:00:00 UTC
version 0.7.5
version 0.7.5
Tip revision: 7b5f3ce
strwrapx.Rd
\name{strwrapx}
\alias{strwrapx}
\title{Wrap strings at white space and + symbols}
\description{
Extended (hacked) version of strwrap: wraps a string at whitespace
and plus symbols
}
\usage{
strwrapx(x, width = 0.9 * getOption("width"), indent = 0, exdent = 0, prefix = "", simplify = TRUE, parsplit = "\n[ \t\n]*\n", wordsplit = "[ \t\n]")
}
\arguments{
\item{x}{a character vector, or an object which can be converted to a
character vector by \code{\link{as.character}}.}
\item{width}{a positive integer giving the target column for wrapping
lines in the output.}
\item{indent}{a non-negative integer giving the indentation of the
first line in a paragraph.}
\item{exdent}{a non-negative integer specifying the indentation of
subsequent lines in paragraphs.}
\item{prefix}{a character string to be used as prefix for each line.}
\item{simplify}{a logical. If \code{TRUE}, the result is a single
character vector of line text; otherwise, it is a list of the same
length as \code{x} the elements of which are character vectors of
line text obtained from the corresponding element of \code{x}.
(Hence, the result in the former case is obtained by unlisting that
of the latter.)}
\item{parsplit}{Regular expression describing how to split paragraphs}
\item{wordsplit}{Regular expression decribing how to split words}
}
\details{
Whitespace in the input is destroyed. Double spaces after periods
(thought as representing sentence ends) are preserved. Currently,
possible sentence ends at line breaks are not considered specially.
Indentation is relative to the number of characters in the prefix
string.
}
\examples{
## 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, rep=TRUE),
function(x) substring("aaaaaaaaaa", 1, x)), collapse = " ")
sapply(10:40,
function(m)
c(target = m, actual = max(nchar(strwrap(x, m)))))
}
\keyword{character}