R/utilities.R

Defines functions convert_df2sf has_sf

has_sf <- function() {
  requireNamespace("sf", quietly = TRUE)
}

convert_df2sf <- function(obj, crs = 4326) {
  if (has_sf() && length(obj)) {
    obj <- sf::st_as_sf(obj, wkt = "wkt", crs = 4326)
  }

  obj
}
ices-tools-prod/icesVMS documentation built on April 24, 2023, 2:31 a.m.