Commit 3fa2cb59 authored by mmassaviol's avatar mmassaviol
Browse files

Debug error with updateTextInput & parseFilePaths

(error with new shiny versions)
parent d6c6869c
......@@ -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"){
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment