Switched to sf and terra, but still returns sp until conversion of pa…

…ckage complete.
jhollist · Jan 6, 2023 · d43c77a · d43c77a
1 parent 7f5f098
commit d43c77a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/lakeFetch.R b/R/lakeFetch.R
@@ -131,7 +131,7 @@ lakeFetch <- function(inLakeMorpho, bearing, addLine = TRUE) {
   if (addLine) {
     myName <- paste("maxFetchLine_", bearing, sep = "")
     inLakeMorpho[[substitute(myName)]] <- NULL
-    inLakeMorpho[[substitute(myName)]] <- myLine
+    inLakeMorpho[[substitute(myName)]] <- as(myLine, "Spatial") #TODO: Yank this as() when switch to sf complete
     class(inLakeMorpho) <- "lakeMorpho"
     assign(inputName, inLakeMorpho, envir = parent.frame())
   }