Displaying 1 result from an estimated 1 matches for "vignettemsg".
2004 Jul 26
6
directing print.packageInfo to a file
...e.show .
print.packageInfo <- function (x, ..., file = NULL)
{
if (!inherits(x, "packageInfo"))
stop("wrong class")
outFile <- if (is.null(file))
tempfile("RpackageInfo")
else
file
outConn <- file(outFile, open = "w")
vignetteMsg <- paste("Further information is available in the following ",
"vignettes in directory ", sQuote(file.path(x$path, "doc")),
":", sep = "")
headers <- c("", "Description:\n\n", "Index:\n\n", p...