R/crear_proyecto.R

In estebanrucan/estyr: Package con funciones y recursos que facilitan el trabajo

#' Crear Proyecto de RStudio
#'
#' Función que crea un proyecto en el directorio indicdo
#'
#' Función que facilita la creación de un proyecto en RStudio
#'
#' @author Esteban Rucán.
#'
#' @return Proyecto de RStudio
#'
#' @param estructura Valor lógico. Si es \code{TRUE}, indica que desea crear carpetas para estructurar el proyecto
#'
#' @encoding UTF-8
#'
#' @import remotes
#'
#' @importFrom rstudioapi selectDirectory
#' @importFrom usethis create_project
#' @importFrom utils osVersion
#'
#' @examples \dontrun{crear_proyecto()}
#'
#' @export

crear_proyecto <- function(estructura = FALSE) {
    dir <- rstudioapi::selectDirectory(caption = "Seleciona Carpeta para crear Proyecto",
                    label = "Seleccionar Carpeta",
                    path = iconv(getwd(), "UTF-8"))
    stopifnot(length(dir) > 0)

    dir <- iconv(dir, "UTF-8")

    setwd(dir)

    dir.create('datos')

    if (estructura) {
        dir.create('datos//procesados')
        dir.create('datos//sin-procesar')
        dir.create('codigo')
        dir.create('codigo//analsis-exploratorio')
        file.create('codigo//analsis-exploratorio//exploraciones.R')
        dir.create('figuras')
        dir.create('documentos')
        dir.create('resultados')

    }

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

    if (is_a_project) stop('Already a project')

    usethis::create_project('./', open = TRUE)

}