ParsePackage <- function(package, guess.encoding=FALSE, recursive=FALSE) {
path <- file.path(package, "R")
files <- dir(path, recursive=recursive)
src <- grep("^[a-zA-Z0-9].*\\.[RrSsq]$", files, value=TRUE)
if (length(src)) {
res <- lapply(file.path(path, src), ParseFile)
names(res) <- file.path("R", src)
class(res) <- "package.code"
res
}
}
package.code <- ParsePackage
ParseFile <- function(filename, guess.encoding=FALSE) {
encoding <- if (guess.encoding) GuessEncoding(filename) else "unknown"
parse(filename, keep.source=TRUE, encoding=encoding)
}
ParseText <- function(text, name=NULL) {
expr <- parse(text=text, keep.source=TRUE)
if (is.null(name)) attributes(expr)$srcfile <- srcfile(tempfile())
else attributes(expr)$srcfile <- srcfile(name)
expr
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.