R/non_missing.R

In BAAQMD/geotools: Manipulate and Filter Geospatial Data

#' Return all rows of a Spatial*DataFrame object except those with NA in the given column
#'
#' @param spdf `Spatial*DataFrame` object
#' @param variable name of column
#'
#' @export
non_missing <- function (spdf, variable) {
  stopifnot(inherits(spdf, "Spatial"))
  stopifnot("data" %in% slotNames(spdf))
  return(spdf[!is.na(spdf@data[,variable]),])
}