fixes #330

rspatial · Feb 4, 2024 · 0584e6c · kadyb · Feb 5, 2024 · rhijmans
1 parent e97624e
commit 0584e6c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/writeStartStop.R b/R/writeStartStop.R
@@ -31,9 +31,9 @@ function(x, filename, options=NULL, format, prj=FALSE, ...) {
 	}		
 
 	if (prj) {
-		crs <-.getCRS(x)
-		if (crs != "") {
-			writeLines(wkt(x), extension(filename, "prj") )
+		wk <- wkt(x)
+		if (wk != "") {
+			writeLines(wk extension(filename, "prj") )
 		}
 	}
 	return(x)