Nothing
## s$Id: read.xls.R 1342 2009-07-16 02:49:11Z warnes $
## findPerl attempts to locate a valid perl executable. If the 'perl' argument is missing,
findPerl <- function(perl, verbose = "FALSE")
{
errorMsg <- "perl executable not found. Use perl= argument to specify the correct path."
if (missing(perl))
{
perl = "perl"
}
perl = Sys.which(perl)
if (perl=="" || perl=="perl")
stop(errorMsg)
if (.Platform$OS == "windows") {
if (length(grep("rtools", tolower(perl))) > 0) {
perl.ftype <- shell("ftype perl", intern = TRUE)
if (length(grep("^perl=", perl.ftype)) > 0) {
perl <- sub('^perl="([^"]*)".*', "\\1", perl.ftype)
}
}
}
if (verbose) cat("Using perl at", perl, "\n")
perl
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.