# Create a temporary directory and initialise database
temp_dir <- tempdir()
data_path <- file.path(temp_dir, "boilerplate_discussion_example", "data")
# Initialise with default discussion content
boilerplate_init(
categories = "discussion",
data_path = data_path,
create_dirs = TRUE,
create_empty = FALSE,
confirm = FALSE,
quiet = TRUE
)
# Import all databases
unified_db <- boilerplate_import(data_path = data_path, quiet = TRUE)
# Get all discussion sections
discussion_db <- boilerplate_discussion(unified_db)
names(discussion_db)
# Get a specific discussion section (if it exists)
if ("discussion" %in% names(unified_db) && length(unified_db$discussion) > 0) {
section_names <- names(unified_db$discussion)
if (length(section_names) > 0) {
first_section <- boilerplate_discussion(unified_db, section_names[1])
}
}
# Clean up
unlink(file.path(temp_dir, "boilerplate_discussion_example"), recursive = TRUE)
Run the code above in your browser using DataLab