From 75c289ab7a6afed93f3038911b31766e6d813fe3 Mon Sep 17 00:00:00 2001
From: "Jeffrey W. Hollister" <jeff.w.hollister@gmail.com>
Date: Thu, 18 May 2023 13:42:50 -0400
Subject: [PATCH] added sf:: where needed

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

diff --git a/R/lakeFetch.R b/R/lakeFetch.R
index 9bf3eb8..7691ca4 100644
--- a/R/lakeFetch.R
+++ b/R/lakeFetch.R
@@ -116,7 +116,7 @@ lakeFetch <- function(inLakeMorpho, bearing, addLine = TRUE) {
   lakeLinesSL_proj <- sf::st_transform(lakeLinesSL, st_crs(st_as_sf(inLakeMorpho$lake))$proj4string)
   
   # Determine the longest
-  lakeLinesSL_proj <- st_as_sf(st_cast(st_cast(lakeLinesSL_proj, "MULTILINESTRING"),"LINESTRING"))
+  lakeLinesSL_proj <- sf::st_as_sf(sf::st_cast(sf::st_cast(lakeLinesSL_proj, "MULTILINESTRING"),"LINESTRING"))
   
   result <- max(st_length(lakeLinesSL_proj))
   if(capabilities("long.double")) {