Armar función para crear proyecto

[pablotis]

Que incluya:

• estructura de carpetas
• .gitignore
• argumento template_informe = TRUE / FALSE

[jpruiznicolini]

Agregar flujo para que el proyecto se relacione con Github

INCORPORAR A .git

library(usethis)

use_git() # inicializa repo en .git (crea archivos)

Preguntará de manera interactiva si se quiere hacer un primer commit (SI)

Generar repo PRIVADO en github.com/d4t4tur

use_github(organisation = 'D4T4TUR', private = TRUE)

Puede suceder que (a) no se haya generado token para autorizar a user / device a interactuar con repo de la organización, o (b) que la misma haya caducado. En ese caso:

1. Generar un token en github (tiene q estar logueado el usuario miembro de la organizacion)

create_github_token()

gitcreds::gitcreds_set()

2. Copiar el token en el sitio de GitHub en el portapeles, que la consola de RStudio lo pedirá luego de ejecutar el siguiente comando:

gitcreds::gitcreds_set()

[pablotis]

Boceto función para crear un proyecto con el template de carpetas (sin git):

crear_proyecto <- function(nombre,
                           ruta = getwd(), 
                           carpetas = FALSE,
                           que_carpetas = c("entradas", "salidas", "scripts", "reportes", "docs_metodologicos")) {
  
  
  
  #              Se crea un proyecto con carpetas               ~~~
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  
  if(carpetas == TRUE){
    
    ### Creo el projecto en la ruta especificada
    usethis::create_project(
      path = file.path(ruta,nombre),
      rstudio = TRUE,
      open = TRUE)
    
    ### Armo carpetas de trabajo
    
    purrr::map(.x = que_carpetas, ~ dir.create(path = file.path(ruta,nombre,.x)))
    
  } else {
    
    
    
    #              Se crea un proyecto sin carpetas               ~~~
    #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    
    usethis::create_project(
      path = file.path(ruta,nombre),
      rstudio = TRUE,
      open = TRUE)
  }
  
}

# crear_proyecto(nombre = "lolamento", carpetas = TRUE)

Esqueleto (incompleto) para función con git:

crear_proyecto_github <- function(nombre,
                                  ruta = getwd(), 
                                  carpetas = TRUE,
                                  github = FALSE,
                                  repo_spec,
                                  fork = NA
) {
  usethis::create_from_github(
    repo_spec,
    destdir = ruta,
    fork = fork,
    rstudio = NULL,
    open = rlang::is_interactive(),
    protocol = usethis::git_protocol())
}

[TuQmano]

Que faltaba revisar de esto @pablotis ? Algo que podamos colaborar?

[TuQmano]

Por ahora dejé hasta acá una primera versión de funciones separadas para:

1. crar proyecto
2. crear carpetas
3. sync con Github

e995454