directlabels - utility.function - Positioning Method - ignore.na

Remove rows for which either x or y is NA

ignore.na <- function(d,...){
  not.na <- is.finite(d$x)
  if("y"%in% names(d)){
    not.na <- not.na & is.finite(d$y)
  }
  d[not.na,]
}