🔪 simplify code, just call file_ext instead

R/utils.R

@@ -421,18 +421,14 @@ get_package_mapping <- function(script_name, url_package, dependencies) {
 }
 
 get_mimetype <- function(filename) {
-  # the next two lines are borrowed from file_ext
-  last_dot_pos <- regexpr("\\.([[:alnum:]]+)$", filename)
-  file_ext <- ifelse(last_dot_pos > -1L, 
-                     substring(filename, 
-                               last_dot_pos + 1L), 
-                     "")
+  # the tools package is available to all
+  filename_ext <- tools::file_ext(filename)
 
-  if (file_ext == 'js')
+  if (filename_ext == 'js')
     return('application/JavaScript')
-  else if (file_ext == 'css')
+  else if (filename_ext == 'css')
     return('text/css')
-  else if (file_ext == 'map')
+  else if (filename_ext == 'map')
     return('application/json')
   else
     return(NULL)