R/st_as_text_2.R

In sen2r: Find, Download and Process Sentinel-2 Data

#' @title Return WKT or WKT2 basing on the installed rgdal version
#' @description This is a convenience temporary function which returns the WKT
#'  representation of a CRS, using `sf::st_as_text()` in case PROJ < 3,
#'  `rgdal::CRS()` otherwise.
#'  This has the advantage to perform precise transformations with PROJ >=3,
#'  and to avoid conversion errors
#'  (see [here](https://rsbivand.github.io/ECS530_h19/ECS530_III.html)).
#'  This function will be deleted whenever `sf` will manage WKT2.
#' @param x object of class `sfg`, `sfc` or `crs`
#' @param pretty logical; if TRUE, print human-readable well-known-text
#'  representation of a coordinate reference system
#' @return Well-known Text representation of simple feature geometry or 
#'  coordinate reference system
#' @importFrom sf sf_extSoftVersion st_crs st_as_text
#' @author Luigi Ranghetti, phD (2019)
#' @keywords internal
#'
#' @examples
#' sen2r:::st_as_text_2(sf::st_crs(32632))

st_as_text_2 <- function(x, pretty = FALSE) {
  # if (
  #   package_version(sf_extSoftVersion()["proj.4"]) >= 6 &&
  #   requireNamespace("rgdal", quietly = TRUE) &&
  #   packageVersion("rgdal") >= 1.5
  # ) {
  #   x_crs <- st_crs(x)
  #   x_proj <- if (is.na(x_crs$epsg)) {
  #     x_crs$proj4string
  #   } else {
  #     paste0("EPSG:",x_crs$epsg)
  #   }
  #   srid_multiline <- if (pretty == TRUE) {"YES"} else {"NO"}
  #   eval(parse(
  #     text = "rgdal::showSRID(x_proj, format = 'WKT2', multiline = srid_multiline)"
  #   ))
  # } else {
    st_as_text(x, pretty = pretty)
  # }
}