### 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");
### Parse single example source
loadedExample <-
rock::load_source(exampleFile);
### Add a coder identifier
loadedExample <-
rock::prepend_ciids_to_source(
loadedExample,
c("codeId" = "iz0dn96")
);
### Show lines 1-5
cat(loadedExample[1:5]);
Run the code above in your browser using DataLab