From 73ac3bfe2dffec2f7c71a918cd7b53014560fd03 Mon Sep 17 00:00:00 2001
From: Eli Pousson <eli.pousson@gmail.com>
Date: Fri, 24 Mar 2023 14:29:36 -0400
Subject: [PATCH] fix: pass fileext not filetype to str_add_fileext

- fix: pass fileext not filetype to str_add_fileext
---
 R/read_sf_ext.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/read_sf_ext.R b/R/read_sf_ext.R
index d5fd163..2f1821f 100644
--- a/R/read_sf_ext.R
+++ b/R/read_sf_ext.R
@@ -155,10 +155,12 @@ modify_fn_fmls <- function(params,
 read_sf_pkg <- function(data,
                         bbox = NULL,
                         package = NULL,
+                        pkg = NULL,
                         fileext = "gpkg",
                         filetype = NULL,
                         ...) {
   fileext <- fileext %||% filetype
+  package <- package %||% pkg
   check_string(package, allow_empty = FALSE)
   rlang::check_installed(package)
   check_string(
@@ -177,8 +179,7 @@ read_sf_pkg <- function(data,
     return(use_eval_parse(data = data, package = package))
   }
 
-  # FIXME: This triggers an alert with lintr but works fine
-  filename <- str_add_fileext(data, fileext = filetype)
+  filename <- str_add_fileext(data, fileext = fileext)
 
   path <-
     dplyr::case_when(