### Get path to example source
examplePath <-
system.file("extdata", package="rock");
### Get a path to one example file
exampleFile <-
file.path(examplePath, "example-3.rock");
### Load example source
loadedExample <- rock::parse_source(exampleFile);
### Show code occurrence estimates
rock::snoe_plot(
loadedExample
);
### Load two example sources
loadedExamples <- rock::parse_sources(
examplePath,
regex = "example-[34].rock"
);
rock::snoe_plot(
loadedExamples
);
Run the code above in your browser using DataLab