R/fun-geom_if.R

Defines functions geom_if

#' @export
geom_if <- function(data, ...) {
  if(missing(data)) return(NULL)
  if(nrow(data) ==0) return(NULL)
  return(ggplot2::geom_sf(data=data, ...))
}
capellett/scsf documentation built on Sept. 6, 2024, 7:46 a.m.