Update volumes management for shinyfiles

main.R

@@ -663,7 +663,18 @@ generate_pages_server <- function() {
   for(page in APP$pages){
     for(box in page$boxes){
       for(cnt in box$content){
-        volumes = 'c(data="/samples",results="/results")'
+        if ("volumes" %in% names(cnt)){
+          volumes = 'c('
+          for (key in names(cnt$volumes[[1]]))
+            volumes = paste0(volumes,key,'="',cnt$volumes[[1]][key],'",')
+          volumes = substr(volumes, 1, nchar(volumes)-1)
+          volumes = paste0(volumes,')')
+          print(volumes)
+        }
+        else{
+          volumes = 'c(Data="/Data",Results="/Results")'
+        }
+
         if (cnt$type == "input_file"){
           res <- res + '\t\tshinyFileChoose(input, "shinyfiles_' + cnt$name + '", root=' + volumes + ',session = session)\n'
           res <- res + '\t\tobserveEvent({parseFilePaths(' + volumes + ',input$shinyfiles_' + cnt$name + ')$datapath[1]},{\n'