R/pkg.R

Defines functions pkg_user pkg_temp pkg_inst pkg_vers

pkg_name <- "bulma.R"

pkg_vers <- function() {
  unname(read.dcf(
    system.file("DESCRIPTION", package = pkg_name),
    c("Version")
  )[1, 1])
}

pkg_inst <- function(...) {
  path(path_package(pkg_name), ...)
}

pkg_temp <- function(...) {

  temp_dir <- path(path_temp(), pkg_name)
  dir_create(temp_dir)
  path(temp_dir, ...)

}

pkg_user <- function(...) {

  user_dir <- tools::R_user_dir(pkg_name)
  dir_create(user_dir)
  path(user_dir, ...)

}

globalVariables(
  c("."),
  package = pkg_name
)
tjpalanca/bulma.R documentation built on Dec. 23, 2021, 10:58 a.m.