From 1adab133fe3672ebc3bc4b4504990ef65f55175a Mon Sep 17 00:00:00 2001 From: Edzer Pebesma Date: Sat, 6 Jan 2018 16:35:30 +0100 Subject: [PATCH] add documentation to st_transform; https://github.com/edzer/sp/issues/42 --- R/crs.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/crs.R b/R/crs.R index 927e85498..ebf141d2e 100644 --- a/R/crs.R +++ b/R/crs.R @@ -222,8 +222,10 @@ udunits_from_proj = c( crs_parameters = function(x) { stopifnot(!is.na(x)) ret = structure(CPL_crs_parameters(x$proj4string), - names = c("SemiMajor", "InvFlattening", "units_gdal", "IsVertical", "WktPretty", "Wkt")) + names = c("SemiMajor", "SemiMinor", "InvFlattening", "units_gdal", + "IsVertical", "WktPretty", "Wkt")) units(ret$SemiMajor) = make_unit("m") + units(ret$SemiMinor) = make_unit("m") ret$ud_unit = if (isTRUE(st_is_longlat(x))) make_unit("arc_degree") else if (is.null(x$units))