Nothing
completeNamespace <- function (line)
{
## export
if (regexpr("^[[:space:]]*export[[:space:]]*\\(", line) > 0) {
ex <- gsub(".*[(,][[:space:]]*", "", line)
### TODO: parse the source files for functions
}
## import
if (regexpr("^[[:space:]]*import[[:space:]]*\\(", line) > 0) {
im <- gsub(".*[(,][[:space:]]*", "", line)
allpacks <- pkgInstalled(pattern = im)[, c("Package", "Title")]
return(list(data = allpacks, type = "package"))
}
## importFrom
if (regexpr("^[[:space:]]*importFrom[[:space:]]*\\([^,]*$", line) > 0) {
im <- gsub(".*[(][[:space:]]*", "", line)
allpacks <- pkgInstalled(pattern = im)[, c("Package", "Title")]
return(list(data = allpacks, type = "package"))
}
}
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.