From f26e20b501421184bf193098d1010abaa3d02537 Mon Sep 17 00:00:00 2001 From: mattdowle Date: Tue, 12 Feb 2019 23:02:57 -0800 Subject: [PATCH] recycle rep to pass data.table 1.12.2 --- R/gisticChromPlot.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/gisticChromPlot.R b/R/gisticChromPlot.R index 7b488d0..0a19bd5 100644 --- a/R/gisticChromPlot.R +++ b/R/gisticChromPlot.R @@ -66,7 +66,7 @@ gisticChromPlot = function(gistic = NULL, fdrCutOff = 0.1, markBands = NULL, mar nchrs = length(unique(gis.scores$Chromosome)) chr.labels= c(1:22, 'X', 'Y') chr.tbl = data.table::data.table(chr = chr.labels, start = c(1, chr.lens.cumsum[1:length(chr.lens.cumsum)-1]), end = chr.lens.cumsum) - chr.tbl$color = c('black', 'white') + chr.tbl$color = rep(c('black','white'), length=nrow(chr.tbl)) gist.gg = ggplot(data = gis.scores[Variant_Classification %in% 'neutral'], aes(x = Start_Position_updated, xend = End_Position_updated, y= ystart , yend = amp, color = Variant_Classification))+ geom_segment(alpha = 0.6)+geom_segment(data = gis.scores[!Variant_Classification %in% 'neutral'], alpha = 0.6)+cowplot::theme_cowplot(line_size = 1, font_size = 12)+theme(legend.position = 'none')+