Commit 57c4bc4d authored by aditya.bhagwat's avatar aditya.bhagwat
Browse files

plot_intervals: add na.rm=TRUE

parent 832c0136
Pipeline #154347 passed with stages
in 28 seconds
......@@ -333,10 +333,10 @@ plot_intervals_engine <- function(
geom_segment(arrow = arrow(length = unit(0.1, "inches")))
# Targets
if (all(c('targetstart', 'targetend') %in% names(mcols(gr)))){
p <-p + geom_point(aes_string(
x = 'xtargetstart', y = 'y'), shape = '|', size = 4) +
geom_point(aes_string(
x = 'xtargetend', y = 'y'), shape = '|', size = 4)}
p <-p + geom_point(aes_string(x = 'xtargetstart', y = 'y'),
shape = '|', size = 4, na.rm = TRUE) +
geom_point(aes_string(x = 'xtargetend', y = 'y'),
shape = '|', size = 4, na.rm = TRUE)}
# Extensions
p <- p + theme_bw() + xlab(NULL) + ylab(NULL) + ggtitle(title)
# Return
......
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