Commit 7eb13f5b authored by khalid's avatar khalid
Browse files

Deal with ShinyFile datapath format

parent fb982760
......@@ -642,7 +642,7 @@ generate_pages_server <- function() {
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\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\tupdateTextInput(session,"' + cnt$name + '_server",value = as.character(parseFilePaths(' + volumes + ',input$shinyfiles_' + cnt$name + ')$datapath[[1]]))\n'
res <- res + '\t\t\t}\n'
res <- res + '\t\t})\n\n'
}
......
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