|
...
|
...
|
@@ -231,7 +231,7 @@ plotKaryotype <- function(genome="hg19", plot.type=1, ideogram.plotter=kpAddCyto
|
|
231
|
231
|
gr.genome <- keepSeqlevels(gr.genome, valid.chrs, pruning.mode="coarse")
|
|
232
|
232
|
|
|
233
|
233
|
} else {
|
|
234
|
|
- if(chromosomes != "autosomal") { #It should not be anything else
|
|
|
234
|
+ if(chromosomes == "autosomal") { #It should not be anything else
|
|
235
|
235
|
message("WARNING: It is only possible to filter chromosomes using the ",
|
|
236
|
236
|
" 'autosomal' option when the genome ",
|
|
237
|
237
|
"is specified by name (i.e. 'hg19', 'mm10') and just for a selection",
|
