R/usar_plantilla.R

In estebanrucan/ayudantia.epg3308: Ayudantías de EPG3308

#' Crear Plantilla de R Markdown
#'
#' Puedes usar esta función para crear una plantilla de RMarkdown en el directorio de trabajo actual.
#'
#' La buena estructuración de un documento mejora la comprensión del mismo.
#'
#' @author Esteban Rucán.
#'
#' @return Archivo con extensión \code{.Rmd}.
#'
#' @import bslib
#'
#' @encoding UTF-8
#'
#' @param dir Un \code{character}. Ruta Absoluta.
#'
#' @examples \dontrun{usar_plantilla()}
#'
#' @importFrom usethis use_template
#'
#' @importFrom usethis create_project
#'
#' @importFrom utils install.packages
#'
#' @export

usar_plantilla <- function(dir = getwd()) {
    numero <- numero_de_ayudantia()
    nombre <- paste0('epg3308_ayudantia-', numero, '.Rmd')

    stopifnot(!file.exists(nombre))

    options("yaml.eval.expr" = TRUE)

    is_a_project <- length(grep("\\.Rproj", list.files())) > 0

    if (!is_a_project) {
        setwd(dir)
        create_project('./', open = FALSE)
    }

    use_template('plantilla_ayudantias.Rmd',
                 save_as = nombre,
                 package = 'ayudantia.epg3308',
                 open = interactive())
}