Nothing
#' @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)
# }
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.