Debug error with updateTextInput & parseFilePaths

(error with new shiny versions)

main.R

@@ -713,7 +713,9 @@ generate_pages_server <- function() {
         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'
-          res <- res + '\t\t\tupdateTextInput(session,"' + cnt$name + '_server",value = parseFilePaths(' + volumes + ',input$shinyfiles_' + cnt$name + ')$datapath[1])\n'
+          res <- res + '\t\t\tif(length(parseFilePaths(' + volumes + ',input$shinyfiles_' + cnt$name + ')$datapath)==1){\n'
+          res <- res + '\t\t\t\tupdateTextInput(session,"' + cnt$name + '_server",value = parseFilePaths(' + volumes + ',input$shinyfiles_' + cnt$name + ')$datapath[[1]])\n'
+          res <- res + '\t\t\t}\n'
           res <- res + '\t\t})\n\n'
         }
         if (cnt$type == "input_dir" || cnt$type == "output_dir"){