## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----load---------------------------------------------------------------------
library(tinytrail)

## ----core, eval=FALSE---------------------------------------------------------
# library(tinytrail)
# 
# # --- top of 01_clean.R ---
# tinytrail(
#   description = "Clean and reshape survey data",
#   data_source = "Current Population Survey (BLS)"
# )

## ----write, eval=FALSE--------------------------------------------------------
# write.csv(
#   survey,
#   file = tinytrail_write("data/clean/survey_clean.csv")
# )

## ----here, eval=FALSE---------------------------------------------------------
# write.csv(
#   survey,
#   file = tinytrail_write(here::here("data/clean/survey_clean.csv"))
# )

## ----dict, eval=FALSE---------------------------------------------------------
# survey <- read.csv("data/raw/survey.csv") |>
#   tinytrail_dict()

## ----dict-no-samples, eval=FALSE----------------------------------------------
# survey <- read.csv("data/raw/survey.csv") |>
#   tinytrail_dict(sample_values = FALSE)

## ----pin, eval=FALSE----------------------------------------------------------
# tinytrail(
#   description = "Master data preparation",
#   data_source = "Admin registry (Statistics Sweden)",
#   pin_to_top  = TRUE
# )