Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library(dplyr)
## ----message=FALSE------------------------------------------------------------
# loading packages
library(starter)
# specifying project folder location (folder does not yet exist)
project_path <- fs::path(tempdir(), "My Project Folder")
## -----------------------------------------------------------------------------
create_project(
path = project_path,
open = FALSE # don't open project in new RStudio session
)
## ----comment = "", echo=FALSE-------------------------------------------------
readr::read_file(fs::path(project_path, "README.md")) %>% cat()
## ----comment = "", echo=FALSE-------------------------------------------------
readr::read_file(fs::path(project_path, ".gitignore")) %>% cat()
## ----comment = "", echo=FALSE-------------------------------------------------
readr::read_file(system.file("project_templates/default_readme.md", package = 'starter')) %>% cat()
## -----------------------------------------------------------------------------
my_template <-
list(
gitignore = list(),
readme = list(),
rproj = list()
)
## ----eval=FALSE---------------------------------------------------------------
# readme <-
# list(
# template_filename = system.file("project_templates/default_readme.md", package = "starter"),
# filename = "README.md",
# glue = TRUE
# )
## ----eval=FALSE---------------------------------------------------------------
# rproj <-
# rlang::expr(list(
# template_filename = system.file("project_templates/default_rproj.Rproj", package = "starter"),
# filename = glue::glue("{folder_name}.Rproj"),
# glue = FALSE
# ))
## -----------------------------------------------------------------------------
my_template <-
list(
readme = rlang::expr(list(
template_filename = system.file("project_templates/default_readme.md", package = "starter"),
filename = "README.md",
glue = TRUE
)),
rproj = rlang::expr(list(
template_filename = system.file("project_templates/default_rproj.Rproj", package = "starter"),
filename = glue::glue("{folder_name}.Rproj"),
glue = FALSE
)),
gitignore = rlang::expr(list(
template_filename = system.file("project_templates/default_gitignore.txt", package = "starter"),
filename = ".gitignore",
glue = TRUE
))
)
## ----eval = FALSE-------------------------------------------------------------
# analysis <-
# list(
# template_filename = "C:/project_templates/template_analysis.Rmd",
# filename = "scripts/analysis.Rmd",
# glue = FALSE
# )
## -----------------------------------------------------------------------------
attr(my_template, "label") <- "My 1st Project Template"
## ----include=FALSE, echo=FALSE------------------------------------------------
unlink(project_path, recursive = TRUE)
## -----------------------------------------------------------------------------
create_project(
path = project_path,
template = my_template # metadata list created above
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.