From 9534e4acdbbe02868f8890a69faccbaf94865dd1 Mon Sep 17 00:00:00 2001
From: Edzer Pebesma <edzer.pebesma@uni-muenster.de>
Date: Tue, 6 Dec 2022 15:31:35 +0100
Subject: [PATCH] don't return [m] units if units are unknown; #2049

---
 R/crs.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/crs.R b/R/crs.R
index 9ee8de48d..9ac9cd82b 100644
--- a/R/crs.R
+++ b/R/crs.R
@@ -296,7 +296,7 @@ crs_parameters = function(x, with_units = TRUE) {
 		ret$ud_unit = if (isTRUE(ret$IsGeographic))
 				as_units("arc_degree") # FIXME: is this always true?
 			else if (is.null(x$units))
-				as_units("m")
+				NA_character_ #2049
 			else if (is.character(udunits_from_proj[[x$units]]))
 				as_units(udunits_from_proj[[x$units]])
 			else