root <- Sys.getenv("USERPROFILE")
repo <- pack <- basename(getwd())
curd <- getwd()
loc <- file.path(root, "Desktop")
setwd(loc)
base.git <- dirname(curd)
qman <- function(x = repo, db = file.path(root, "/Dropbox/Public"), dir=loc) {
path <- file.path(dir, paste0(x, ".pdf"))
if (!file.exists(path)) stop(paste(x, "does not exist..."))
opath <- file.path(db, paste0(x, ".pdf"))
file.copy(path, opath, overwrite = TRUE)
message("manual copied!\n")
}
quick <- TRUE
library(devtools)
unlink(paste0(pack, ".pdf"), recursive = TRUE, force = TRUE)
x <- file.path(base.git, pack)
document(x)
install(x, quick = quick, build_vignettes = FALSE, dependencies = TRUE)
path <- find.package(pack)
system(paste(shQuote(file.path(R.home("bin"), "R")),
"CMD", "Rd2pdf", shQuote(path)))
qman(repo, dir=loc)
setwd(curd)
message("Done!")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.