R/create_desc.R

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

#' Create the description file for R project
#'
#' @importFrom usethis use_description_defaults
#' @importFrom glue glue
#' @param set_name Logical. By default, \code{TRUE}
#' @return None
#'
#' @export
create_desc <- function(set_name = TRUE) {
    desc <- usethis::use_description_defaults()$usethis
    if (set_name == TRUE) {
        desc$Package = proj_name()
    }
    glue::glue("{names(desc)}: {desc}") %>%
        writeLines("DESCRIPTION")
}