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

## ----eval=FALSE---------------------------------------------------------------
# inflate(vignette_name = c("Super title" = "01-Super Vignette Index Entry"))

## ----eval=FALSE---------------------------------------------------------------
# inflate(vignette_name = NA)

## ----eval=FALSE---------------------------------------------------------------
# # The path relative to the "tests/testthat" directory for tests
# the_file <- "my_file.csv"
# if (!file.exists(the_file)) {
#   # The path to use during dev in the flat file
#   the_file <- file.path("tests", "testthat", the_file)
#   if (!file.exists(the_file)) {
#     stop(the_file, " does not exist")
#   }
# }
# 
# my_file <- read.csv(the_file)