Add volumes function

R/shiny-ui-base.R(volumes): New function.

The result for shinyFiles::getVolumes().

R/shiny-ui-base.R

@@ -21,6 +21,7 @@ obsrv <- shiny::observe
 obsrv_e <- shiny::observeEvent
 vols <- shinyFiles::getVolumes
 vol_f <- vols()
+volumes <- shinyFiles::getVolumes()
 validate1 <- function(expr,msg) shiny::validate(need(expr,msg))