R/dev-use_packer.R

In tjpalanca/tjutils: Utilities for TJ Palanca

#' @title
#' Use Packer
#'
#' @description
#' This adds a scaffold from `{packer}`, without all the boilerplate attached
#' to a golem app
#'
#' @export
dev_use_packer <- function(envir = parent.frame()) {
  usethis::use_package("packer")
  usethis::use_directory("inst")
  file.create(here::here("inst/golem-config.yml"))
  usethis::use_directory("dev")
  packer::scaffold_golem()
  file.remove(here::here("inst/golem-config.yml"))
  file.remove(here::here("srcjs/index.js"))
  file.create(here::here("srcjs/index.js"))
  file.remove(here::here("srcjs/config/externals.json"))
  file.create(here::here("srcjs/config/externals.json"))
  writeLines("{\n}", here::here("srcjs/config/externals.json"))
  packer::bundle_dev()
  dev_copy_template(
    template    = "index.html",
    destination = here::here("inst/app/index.html"),
    overwrite   = TRUE,
    envir       = envir
  )
}