# \donttest{
### Use a temporary file to write to
tmpFile <- tempfile(fileext = ".pdf");
### Load an example CI
examplePath <- file.path(system.file(package="rock"), 'extdata');
parsedCI <- parse_source(file.path(examplePath,
"ci_example_1.rock"));
rock::template_ci_heatmap_1_to_pdf(
parsedCI,
file = tmpFile
);
# }
Run the code above in your browser using DataLab