R/utils.R

In JiaxiangBU/add2pkg: A Assistant Package for Package Development in R

globalVariables('.')

#' Return the current license name
#' @import here
#' @import readr
#' @import stringr
#' @import yaml
#' @return the license name
which_license <- function() {
  readr::read_lines(here::here("DESCRIPTION")) %>%
      stringr::str_subset("^License") %>%
      stringr::str_remove("\\s\\+\\sfile\\sLICENSE") %>%
      stringr::str_remove("License:\\s")
}

#' Get current project name.
#'
#' @export
#' @return the project or package name
proj_name <- function() usethis::proj_path() %>% basename()