rm stars

Author: kongdd

DESCRIPTION

@@ -12,7 +12,7 @@ import:
 Imports:
     magrittr,
     stringr, purrr, 
-    sf, stars,
+    sf, 
     terra, 
     tidyselect,
     data.table, dplyr,

NAMESPACE

@@ -30,7 +30,6 @@ export(plot)
 export(rast)
 export(rast2SpatialGrid)
 export(rast2colormap)
-export(rast2poly)
 export(rast_array)
 export(rast_cellId)
 export(rast_df)

R/tools_rast.R

@@ -5,16 +5,16 @@
 #     as(r, "SpatialPolygonsDataFrame")
 # }
 
-#' @export
-rast2poly <- function(r, crs = 4326) {
-  sf_poly <- suppressWarnings({
-    sf::st_as_sf(stars::st_as_stars(r),
-      as_points = FALSE, merge = TRUE
-    ) %>% sf::st_make_valid() # %>% sf::as_Spatial()
-  })
-  sf::st_crs(sf_poly) <- crs
-  sf_poly
-}
+# #' @export
+# rast2poly <- function(r, crs = 4326) {
+#   sf_poly <- suppressWarnings({
+#     sf::st_as_sf(stars::st_as_stars(r),
+#       as_points = FALSE, merge = TRUE
+#     ) %>% sf::st_make_valid() # %>% sf::as_Spatial()
+#   })
+#   sf::st_crs(sf_poly) <- crs
+#   sf_poly
+# }
 
 
 #' @export