# NOT RUN {
### Get path to example source
examplePath <-
system.file("extdata", package="rock");
### Get a path to one example file
exampleFile <-
file.path(examplePath, "example-1.rock");
### Load example source
loadedExample <- rock::load_source(exampleFile);
### Delete two codes, moving children to the codes' parents
recoded_source <-
rock::recode_delete(
loadedExample,
codes=c("childCode2", "childCode1"),
silent=FALSE
);
### Process an entire directory
list_of_recoded_sources <-
rock::recode_delete(
examplePath,
codes=c("childCode2", "childCode1"),
silent=FALSE
);
# }
Run the code above in your browser using DataLab