Nothing
`mefadocs` <-
function (doc = c("ChangeLog","SampleReport"))
{
doc <- match.arg(doc)
if (length(grep(".pdf", doc)) > 0) {
doc <- file.path(system.file(package = "mefa"), "doc",
doc)
if (.Platform$OS.type == "windows")
shell.exec(doc)
else system(paste(getOption("pdfviewer"), doc, "&"))
}
else {
file.show(system.file(package = "mefa", doc))
}
}
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.