Allow access to local files under /g.

R/datafile.R

@@ -112,7 +112,7 @@ input_data_server <- function(input, output, session) {
   roots <- NULL
   if(is.null(data.dir) || data.dir=="")  {
       # We're likely not in a container
-      roots = c(home = home.dir)
+      roots = c(home = home.dir, g = '/g')
   } else {
       # We're likely in a container
       roots = c(data = data.dir)