# \donttest{
# Create temporary directory for example
temp_dir <- tempfile()
dir.create(temp_dir)
# Create sample RDS file
sample_db <- list(methods = list(sampling = "Random sampling"))
saveRDS(sample_db, file.path(temp_dir, "methods_db.rds"))
# Convert single file
boilerplate_rds_to_json(file.path(temp_dir, "methods_db.rds"))
# Convert all RDS files in directory
boilerplate_rds_to_json(temp_dir)
# Convert to different location
output_dir <- tempfile()
dir.create(output_dir)
boilerplate_rds_to_json(temp_dir, output_path = output_dir)
# Clean up
unlink(temp_dir, recursive = TRUE)
unlink(output_dir, recursive = TRUE)
# }
Run the code above in your browser using DataLab