Bug: supplied y elements corresponding to NA x must be dropped if use.points = TRUE

[MichaelChirico]

MRE:

x = Intervals(cbind(c(0, NA), c(1, NA)))
plot(x, 1:2)
# Error in xy.coords(x, y) : 'x' and 'y' lengths differ

[MichaelChirico]

I think this will fix the problem, can't test at the moment:

  if ( is.null(xlim) ) {
    xlim <- range( x@.Data )
    drop_idx = is.na( x )
  }
  else 
    drop_idx = is.na( x ) | x[ , 2L] < xlim[1L] | x[ , 1L] > xlim[1L]

  x = x[!drop_idx, ]
  
  if ( is.null(y) )
    y <- .Call( "_plot_overlap", x@.Data, closed(x), is( x, "Intervals_full" ) )
  else y <- y[!drop_idx]