Code from Nick for defining a new cabinet with {cabinets}

create-cabinet

# START A CABINET

library(cabinets)

p <- "~/Documents/work"

file_str <- list(
  'data' = NULL, 
  'code/clean' = NULL, 
  'code/reports' = NULL, 
  'code/analysis' = NULL, 
  'data/derived' = NULL, 
  'data/raw' = NULL, 
  'reports' = NULL, 
  'documents' = NULL, 
  'log' = NULL
)

create_cabinet(name = "newproj", 
               directory = p, 
               structure = file_str)

cabinets::new_cabinet_proj(.newproj, "fun_new_project")