### 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_tssid_to_source(
loadedExample,
moment = "2025-05-28 11:30 CEST"
);
### Show the first line
cat(loadedExample[1]);
Run the code above in your browser using DataLab