add another 'assert_extension' for r-transit#38; thanks @polettif

mpadge · Oct 9, 2024 · 2a0ad5b · 2a0ad5b
1 parent 6fd1246
commit 2a0ad5b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/import_gtfs.R b/R/import_gtfs.R
@@ -386,7 +386,7 @@ append_file_ext = function(file) {
       # behaviour defined in test_import_gtfs.R#292
       file_ext <- "txt"
     }
-    if (!identical(fs::path_ext(.f), file_ext)) {
+    if (!assert_extension(.f, file_ext)) {
       .f <- fs::path_ext_set(.f, file_ext)
     }
     return(.f)