Nothing
httpget_package <- function(pkgpath, requri){
#double check
stopifnot(file.exists(pkgpath))
#reqhead is package api
reqhead <- utils::head(requri, 1);
reqtail <- utils::tail(requri, -1);
#list contents
if(!length(reqhead)){
res$checktrail();
reqpackage <- basename(pkgpath);
reqlib <- dirname(pkgpath);
wwwdir <- file.path(reqlib, reqpackage, "www")
if(file.exists(wwwdir)){
res$redirectpath("/www/")
} else {
res$redirectpath("/info")
}
}
switch(reqhead,
"R" = httpget_package_r(pkgpath, reqtail),
"data" = httpget_package_data(pkgpath, reqtail),
"html" = httpget_package_html(pkgpath, reqtail),
"man" = httpget_package_man(pkgpath, reqtail),
"info" = httpget_package_info(pkgpath),
httpget_package_file(pkgpath, requri)
);
}
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.