Make getFileType tolerant to uppercase extensions

Displayr · Oct 19, 2022 · 65158da · 65158da
1 parent 0a8ed3d
commit 65158da
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/R/DataMart.R b/R/DataMart.R
@@ -425,20 +425,20 @@ getClientId <- function()
 #' @noRd
 getFileType <- function(filename)
 {
-    if (file_ext(filename) == "rds")
-        return ("rds")
+    if (tolower(file_ext(filename)) == "rds")
+        return("rds")
 
-    if (file_ext(filename) == "sav")
-        return ("sav")
+    if (tolower(file_ext(filename)) == "sav")
+        return("sav")
 
     # probably redundant
-    if (file_ext(filename) == "csv" || guess_type(filename) == "text/csv")
-        return ("csv")
+    if (tolower(file_ext(filename)) == "csv" || guess_type(filename) == "text/csv")
+        return("csv")
 
-    if (file_ext(filename) == "rda")
-        return ("rda")
+    if (tolower(file_ext(filename)) == "rda")
+        return("rda")
 
-    if (file_ext(filename) == "pptx")
+    if (tolower(file_ext(filename)) == "pptx")
         return("pptx")
 
     return (NULL)