inst/build.R

In trinker/pacmanDependencies: Generate Package Dependencies

curd <- getwd()
loc <- path.expand("~/Desktop")
setwd(loc)

qman <- function(x = "pacmanDependencies", db = path.expand("~/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")
}


repo <- pack <- "pacmanDependencies"
base.git = path.expand("~/GitHub")
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!")