spring-2026

This repo is for our Spring 2026 stuff…

The goal of spring-2026 is to hold our stuff.

1. hello_world.html source
2. gapminder_exercise.html source
3. 2026-04-03-more-data-viz/week-1-review.html source
4. 2026-04-03-more-data-viz/more-data-viz.html source
5. 2026-04-01-data-viz-grammar-of-graphics/data-viz-grammar-of-graphics.html source
6. 2026-03-31-reproducibility/reproducibility.html source
7. 2026-03-31-r_basics/r_basics.html source
8. 2026-03-29-introduction/introduction.html source
9. 0000-00-00-templates/xaringan_template.html source
10. 0000-00-00-templates/quarto_template.html source
11. 0000-00-00-templates/quarto_revealjs_template_files/libs/revealjs/plugin/notes/speaker-view.html source
12. 0000-00-00-templates/quarto_revealjs_template.html source

new_document <- function(name, type = "xaringan"){
  
  dir <- paste0(Sys.Date(), "-", name)
  
  if(!exists(dir)){dir.create(dir, recursive = F)}
  
  extension = if(type == "xaringan"){".Rmd"}else{".qmd"}
  
  filepath <- paste0(dir, "/", name, extension)
  
  if(type == "xaringan"){template <- "0000-00-00-templates/xaringan_template.Rmd"}
  if(type == "quarto"){template <- "0000-00-00-templates/quarto_template.qmd"}
  
  if(!exists(filepath)){
  readLines(template) |> 
    writeLines(filepath)
  }
    
  rstudioapi::documentOpen(filepath)
  
}   

new_xaringan <- function(...){new_document(..., type = "xaringan")}
new_quarto <- function(...){new_document(..., type = "quarto")}


# new_xaringan(name = "data-viz-grammar-of-graphics")

new_quarto("more-data-viz")

-End-