R/package_building_utilities.R

In bochocki/correlatedtraits: Data and Analyses for [paper title]

#' @export
pdf_doc = function() {
  devtools::document()

  pkg <- "correlatedtraits"

  path <- find.package(pkg)

  if (paste0(pkg, ".pdf") %in% list.files(path)) {
   file.remove(paste0(path, paste0("\\", pkg, ".pdf")))
  }

  system(paste(shQuote(file.path(R.home("bin"), "R")),
               "CMD", "Rd2pdf", shQuote(path)))
}