R/setup_project.r

In ElianHugh/boxingtape: What the Package Does (One Line, Title Case)

# inspired by dflow
# set up rudementary project with modules in mind
#' @export
setup <- function() {
    write("", ".here")
    usethis::use_directory("modules/dir")
    usethis::use_template("module_lib.r", save_as = "/modules/dir/module_lib.r", package = "boxingtape")
    usethis::use_template("use_global_directory.r", save_as = "/modules/dir/use_global_directory.r", package = "boxingtape")
    usethis::use_template("use_here_directory.r", save_as = "/modules/dir/use_here_directory.r", package = "boxingtape")

    usethis::use_directory("modules/grab")
    usethis::use_template("__init__.r", save_as = "/modules/grab/__init__.r", package = "boxingtape")
    usethis::use_template("add.r", save_as = "/modules/grab/add.r", package = "boxingtape")
    usethis::use_template("init.r", save_as = "/modules/grab/init.r", package = "boxingtape")
    usethis::use_template("install.r", save_as = "/modules/grab/install.r", package = "boxingtape")
    usethis::use_template("remove.r", save_as = "/modules/grab/remove.r", package = "boxingtape")
    usethis::use_template("upgrade.r", save_as = "/modules/grab/upgrade.r", package = "boxingtape")
    usethis::use_template("util.r", save_as = "/modules/grab/util.r", package = "boxingtape")

    usethis::use_template("app.r", package = "boxingtape")
    usethis::use_template("_gitignore", save_as=".gitignore", package = "boxingtape")
}