Launch New Package

init_script.R

# DEFINE HELPER FUNS AND SET INIT OPTIONS ---------------------------------

options(devtools.name = "Bobby Fatemi")
options(devtools.desc.license = "file LICENSE")
options(devtools.desc.author =  'person(email = "[email protected]", role = c("aut", "cre"), given = "Bobby", family = "Fatemi")')

options(devtools.desc = list(
   Description = "[DOCUMENTATION NEEDED] DESCRIPTION.",
   Title = "[DOCUMENTATION NEEDED] TITLE")
)

use_prop_license <- function(path){
   fileName <- "LICENSE"
   fpath <- paste0(path, "/", fileName)
   if(file.exists(fpath)) stop("License file exists already", call. = FALSE)
   txt <- paste0("Proprietary\n\nDo not distribute\nYEAR: ", gsub("(?<=20[0-9][0-9]).+", "", Sys.Date(), perl = TRUE), "\nCOPYRIGHT HOLDER: Bobby Fatemi")
   file.create(fpath)
   writeLines(txt, fpath)
   invisible(TRUE)
}

use_dev_dir <- function(path){
   dirName <- "development"
   dpath <- paste0(path, "/R/", dirName)
   if(dir.exists(dpath)) stop("development directory already exists", call. = FALSE)
   dir.create(dpath, recursive = TRUE)
   devtools::use_build_ignore(dirName, pkg = path)
   invisible(TRUE)
}
use_priv_dir <- function(path){
   dirName <- "private"
   dpath <- paste0(path, "/", dirName)
   if(dir.exists(dpath)) stop("private directory already exists", call. = FALSE)
   dir.create(dpath)
   devtools::use_build_ignore(dirName, pkg = path)

   if(file.exists(".gitignore"))
      cat("private", file = ".gitignore", append = TRUE)
   invisible(TRUE)
}



# BEGIN SCRIPT TO INIT NEW PACKAGE ----------------------------------------


pkg_dir <- "."
devtools::use_package_doc(pkg_dir)
file.remove("DESCRIPTION")
file.remove("NAMESPACE")
devtools::create_description(pkg_dir)
devtools::document(pkg_dir)

use_prop_license(pkg_dir)
use_dev_dir(pkg_dir)
use_priv_dir(pkg_dir)

devtools::use_testthat(pkg_dir)
devtools::use_github(pkg = pkg_dir)

##
## Add readme file and store path and contents for updating
##
try(devtools::use_readme_md(devtools::as.package(pkg_dir)), silent = TRUE)

rm_path <- paste0(pkg_dir, "/README.md")
rm_txt <- readLines(rm_path)


##
## Add travis file and update readme contents
##
trav_txt <- capture.output(devtools::use_travis(pkg = pkg_dir), type = "message")
trav_link <- trav_txt[length(trav_txt)]

rm_txt[1] <- paste0(rm_txt[1], " ", trav_link)


##
## Add coverage and update readme contents
##
cov_txt <- capture.output(devtools::use_coverage(pkg = pkg_dir), type = "message")

# parse cov link for readme and hook for travis file
cov_link <- cov_txt[which(stringr::str_detect(cov_txt, "\\[\\!\\[Coverage"))]
cov_hook <- paste0(paste0(cov_txt[which(stringr::str_detect(cov_txt, "after_success")):length(cov_txt)], collapse = "\n"), "\n")

rm_txt[1] <- paste0(rm_txt[1], " ", cov_link)

# update travis file with coverage hook
cat(cov_hook, file = ".travis.yml", append = TRUE)

##
## add cran badge and store final updated readme
##
cran_txt <- capture.output(devtools::use_cran_badge(pkg = pkg_dir), type = "message")
cran_link <- cran_txt[length(cran_txt)]

rm_txt[1] <- paste0(rm_txt[1], " ", cran_link)

writeLines(paste0(rm_txt, collapse = "\n"), rm_path)


# BUILD INITIAL AND COMMIT CLEAN PACKAGE TO GH ----------------------------

r <- git2r::repository(".")
git2r::add(r, ".")
git2r::commit(r, "init files added (pre-build)")

# CLEAN ENVIRONMENT -------------------------------------------------------

rm(list = ls())