R/pjp_template_bitacora.R

In perezp44/pjpv2020.01: Paquete de uso personal

#' @title call and open la plantilla para crear una bitacora
#' @description Uuar la plantilla para bitacoras y empezar a documentar el Rproject
#'
#' @param name name of your TidyTuesday analysis file
#' @param open si estas en interactivo ono
#' @importFrom usethis use_template
#' @importFrom fs dir_create
#' @examples
#' pjp_template_bitacora()
#' @export


pjp_template_bitacora <- function(name = NULL, open = interactive() ){
  use_template("bitacora.Rmd", save_as = "bitacora.Rmd", package = "pjpv2020.01", open = open)
  fs::dir_create("./datos/")
  fs::dir_create("./imagenes/")
  fs::dir_create("./assets/")
  use_template("bitacora.css", save_as = "./assets/bitacora.css", package = "pjpv2020.01", open = FALSE)
  use_template("_script.R", save_as = "./_script.R", package = "pjpv2020.01", open = FALSE)
}