Create a project laid out for an analysis project

createAnalysisProject(
  name,
  title = NULL,
  folder = getwd(),
  initial_status = "wip",
  dirs = c("data", "analysis", "outputs"),
  packagedeps = "renv",
  git = TRUE,
  external_setup = list(git_service = "GitHub", login = gh::gh_whoami()$login, private =
    FALSE, protocol = "ssh", ci_activation = "travis"),
  reset = TRUE,
  open = FALSE
)

create_analysis_project(
  name,
  title = NULL,
  folder = getwd(),
  initial_status = "wip",
  dirs = c("data", "analysis", "outputs"),
  packagedeps = "renv",
  git = TRUE,
  external_setup = list(git_service = "GitHub", login = gh::gh_whoami()$login, private =
    FALSE, protocol = "ssh", ci_activation = "travis"),
  reset = TRUE,
  open = FALSE
)

Arguments

name

Project

title

"What the Project Does (One Line, Title Case)" If NULL, a random one will be generated.

folder

Folder under which to create the project

initial_status

initial repostatus.org status for the project, whose badge will be added to the README.

dirs

Directories to create

packagedeps

Set a tool for package reproducibility

git

Configure Git

external_setup

How to do the partly interactive setup of online git, CI and coverage platforms. If NULL, no setup.

  • git_service Only "GitHub" is supported at the moment.

  • login username or organization name to use for the git service. If NULL, no GitHub repo is created.

  • private whether to make the created repo private

  • protocol "ssh" or "https", protocol to use for GitHub

  • ci_activation Only NULL, and "travis" are supported at the moment. "travis" means calling usethis::use_travis() and adding the Travis badge to the README.

reset

Whether to reset the project to current project

open

Whether to open the newly created project (in another RStudio session)

Functions

  • create_analysis_project: aesthetic addition for continuity purposes

Examples

if (FALSE) { folder <- tempdir() createAnalysisProject( name = "doggos", title = "Counting cute dogs", folder = folder, packagedeps = "none", git = TRUE, external_setup = NULL, reset = TRUE, dirs = c("cats", "dogs"), open = FALSE ) list.files(file.path(folder, "doggos")) unlink(file.path(folder, "doggos")) }