R/use_utils.R

In emptyfield-ds/opensky: Templates for 'ggplot2' and 'R Markdown'

#' Use `utils.R` with `%||%` and `%nin%`
#'
#' @inheritParams usethis::use_template
#'
#' @export
use_utils <- function(save_as = "utils.R", open = is_interactive()) {
  stopifnot(fs::dir_exists("R"))
  usethis::use_template(
    "utils.R",
    save_as = path("R", fs::path_ext_set(save_as, "R")),
    open = open,
    package = "opensky"
  )
}

#' @export
#' @rdname use_utils
edit_utils <- function(open = is_interactive()) {
  stopifnot(fs::file_exists(path("R", "utils.R")))
  usethis::edit_file(path("R", "utils.R"), open = open)
}