# Create a temporary directory and initialise databases
temp_dir <- tempdir()
data_path <- file.path(temp_dir, "boilerplate_measures_example", "data")
# Initialise measures database with default content
boilerplate_init(
categories = "measures",
data_path = data_path,
create_dirs = TRUE,
create_empty = FALSE,
confirm = FALSE,
quiet = TRUE
)
# Import the unified database
unified_db <- boilerplate_import(data_path = data_path, quiet = TRUE)
measures_db <- unified_db$measures
# Generate with sample items only
exposure_text <- boilerplate_generate_measures(
variable_heading = "Exposure Variable",
variables = "anxiety",
db = measures_db,
sample_items = 2, # Show only first 2 items
quiet = TRUE
)
# Check the output
cat(substr(exposure_text, 1, 150), "...\n")
# Generate with table format for multiple variables
outcome_text <- boilerplate_generate_measures(
variable_heading = "Outcome Variables",
variables = c("anxiety", "depression"),
db = measures_db,
table_format = TRUE,
quiet = TRUE
)
# Clean up
unlink(file.path(temp_dir, "boilerplate_measures_example"), recursive = TRUE)
Run the code above in your browser using DataLab