minor: add TODO re: file ext funs copied from tools

with #389
PredictiveEcology · May 16, 2024 · 4312243 · 4312243
1 parent cfb4f3c
commit 4312243
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/helpers.R b/R/helpers.R
@@ -385,12 +385,13 @@ isMac <- function() {
   !need
 }
 
-# This is directly from tools::file_ext_sans_ext
+## TODO: why not use the original funs below? why copy them?
+## This is directly from tools::file_path_sans_ext
 filePathSansExt <- function(x) {
   sub("([^.]+)\\.[[:alnum:]]+$", "\\1", x)
 }
 
-# This is directly from tools::file_ext
+## This is directly from tools::file_ext
 fileExt <- function(x) {
   pos <- regexpr("\\.([[:alnum:]]+)$", x)
   ifelse(pos > -1L, substring(x, pos + 1L), "")