.Rprofile

# 1. renv package management
if (dir.exists("renv/")) {
  if (file.exists("renv/activate.R")) {
    source("renv/activate.R")
  } else {
    cat("* renv may have been incompletely set up. Run renv::init() to continue\n")
  }
  if (interactive()) {
    renv::status()
  }
} else {
  cat("* Run renv::init() to install the R packages for this project\n")
}

# 2. directory structure
.folder.struct <- c(
  "data/input",
  "data/intermediate/calibration",
  "data/intermediate/diagnostics",
  "data/intermediate/estimates",
  "data/intermediate/scenarios",
  "data/output",
  "out",
  "workflows"
)
for (.folder in .folder.struct) {
  if (!dir.exists(.folder)) dir.create(.folder, recursive = TRUE)
}
rm(.folder.struct, .folder)

# 3. Helpful aliases
rs <- function() .rs.restartR()
si <- function() sessioninfo::session_info()

# 4. Standard options
options(deparse.max.lines = 5)