Remove caTools dependency

Instead, use base64 encoding function from httpuv

Author: jcheng5

DESCRIPTION

@@ -16,8 +16,7 @@ Depends:
 Imports:
     tools,
     utils,
-    httpuv (>= 1.2.0),
-    caTools,
+    httpuv (>= 1.2.2),
     RJSONIO,
     xtable,
     digest,

NAMESPACE

@@ -181,7 +181,6 @@ export(wellPanel)
 export(withMathJax)
 export(withReactiveDomain)
 export(withTags)
-import(caTools)
 import(digest)
 import(htmltools)
 import(httpuv)

R/shiny.R

@@ -15,7 +15,7 @@ NULL
 #' @name shiny-package
 #' @aliases shiny
 #' @docType package
-#' @import htmltools httpuv caTools xtable digest methods
+#' @import htmltools httpuv xtable digest methods
 #' @importFrom RJSONIO fromJSON
 NULL
 
@@ -671,7 +671,7 @@ ShinySession <- setRefClass(
       fileData <- readBin(file, 'raw', n=bytes)
 
       if (isTRUE(.clientData$.values$allowDataUriScheme)) {
-        b64 <- base64encode(fileData)
+        b64 <- rawToBase64(fileData)
         return(paste('data:', contentType, ';base64,', b64, sep=''))
       } else {
         return(saveFileUrl(name, fileData, contentType))