Commit 9113e97d authored by Holger Brandl's avatar Holger Brandl

fixed loadpack->load_pack

parent 2d724dc8
......@@ -183,7 +183,7 @@ plotPDF <- function(fileBaseName, expr, ...){ pdf(paste0(fileBaseName, ".pdf"),
## create a custom color palette for a fixed set of values
## scale_fill_manual(values = create_palette(unique(csWithTopoT1$t1_type)), drop = FALSE)
create_palette <- function(x, pal = 'Set1'){
loadpack(RColorBrewer)
load_pack(RColorBrewer)
ux <- sort(unique(x))
n <-length(ux)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment