refacto(write_sf_ext): incorporate filenamr package

DESCRIPTION

@@ -18,6 +18,7 @@ Depends:
 Imports: 
     cli,
     dplyr,
+    filenamr (>= 0.1.0),
     glue,
     janitor,
     purrr,
@@ -49,8 +50,9 @@ Suggests:
     tidyr
 VignetteBuilder: 
     knitr
-Remotes: 
-    elipousson/esri2sf
+Remotes:  
+    elipousson/esri2sf,
+    elipousson/filenamr
 Config/testthat/edition: 3
 Config/testthat/parallel: true
 Encoding: UTF-8

R/sfext-package.R

@@ -1,10 +1,11 @@
-#' @import rlang
-#' @importFrom rlang .data .env caller_env has_length is_interactive
-#' @importFrom cli cli_abort cli_warn cli_inform
-#' @importFrom glue glue glue_collapse
 #' @keywords internal
 "_PACKAGE"
 
 ## usethis namespace: start
+#' @import rlang
+#' @importFrom rlang .data .env caller_env has_length is_interactive
+#' @importFrom cli cli_abort cli_warn cli_inform
+#' @importFrom glue glue glue_collapse
+#' @importFrom filenamr make_filename
 ## usethis namespace: end
 rlang::on_load(rlang::local_use_cli())

R/write_sf_ext.R

@@ -74,10 +74,10 @@ write_sf_ext <- function(data,
 
   # If data is sf object, write or cache it
   filename <-
-    make_filename(
+    filenamr::make_filename(
       name = name,
       label = label,
-      filetype = filetype,
+      fileext = filetype,
       filename = filename,
       path = NULL,
       prefix = prefix,
@@ -125,10 +125,10 @@ write_sf_cache <- function(data,
                            create = TRUE,
                            ...) {
   filename <-
-    make_filename(
+    filenamr::make_filename(
       name = name,
       label = label,
-      filetype = filetype,
+      fileext = filetype,
       filename = filename,
       prefix = prefix,
       postfix = postfix,
@@ -173,10 +173,10 @@ write_sf_gist <- function(data,
   is_pkg_installed("gistr")
 
   filename <-
-    make_filename(
+    filenamr::make_filename(
       name = name,
       label = label,
-      filetype = filetype,
+      fileext = filetype,
       filename = filename,
       prefix = prefix,
       postfix = postfix,
@@ -237,10 +237,10 @@ write_sf_gsheet <- function(data,
   }
 
   filename <-
-    make_filename(
+    filenamr::make_filename(
       name = name,
       label = label,
-      filetype = NULL,
+      fileext = NULL,
       filename = filename,
       prefix = prefix,
       postfix = postfix,