Displaying 1 result from an estimated 1 matches for "formatdocentry".
2004 Jul 26
6
directing print.packageInfo to a file
..."")
headers <- c("", "Description:\n\n", "Index:\n\n", paste(paste(strwrap
(vignetteMsg),
collapse = "\n"), "\n\n", sep = ""))
footers <- c("\n", "\n", "\n", "")
formatDocEntry <- function(entry) {
if (is.list(entry) || is.matrix(entry))
formatDL(entry, style = "list")
else entry
}
for (i in which(!sapply(x$info, is.null))) {
writeLines(headers[i], outConn, sep = "")
writeLines(formatDocEntry(x$in...