From 8da24beaf0fddae832a6f59c309c610e55b80600 Mon Sep 17 00:00:00 2001
From: Ryan Patrick Kyle <ryan@plot.ly>
Date: Tue, 5 Mar 2019 12:22:11 -0500
Subject: [PATCH] :hocho: simplify code, just call file_ext instead

---
 R/utils.R | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/R/utils.R b/R/utils.R
index f8d27379..df0e3c49 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -421,12 +421,8 @@ 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')
     return('application/JavaScript')