# \donttest{
# Create temporary directory for example
temp_dir <- tempfile()
dir.create(temp_dir)
# Initialise two projects
boilerplate_init(data_path = temp_dir, project = "colleague_measures",
create_dirs = TRUE, confirm = FALSE, quiet = TRUE)
boilerplate_init(data_path = temp_dir, project = "my_research",
create_dirs = TRUE, confirm = FALSE, quiet = TRUE)
# Add some content to source project
source_db <- boilerplate_import(data_path = temp_dir,
project = "colleague_measures", quiet = TRUE)
source_db$measures$anxiety <- list(name = "Anxiety Scale", items = 10)
source_db$measures$depression <- list(name = "Depression Scale", items = 20)
boilerplate_save(source_db, data_path = temp_dir,
project = "colleague_measures", confirm = FALSE, quiet = TRUE)
# Copy specific measures from colleague's project
boilerplate_copy_from_project(
from_project = "colleague_measures",
to_project = "my_research",
paths = c("measures.anxiety", "measures.depression"),
prefix = "smith_",
data_path = temp_dir,
confirm = FALSE,
quiet = TRUE
)
# Clean up
unlink(temp_dir, recursive = TRUE)
# }
Run the code above in your browser using DataLab