Skip to content

GitLab

Commit a1e44975 authored by khalid's avatar khalid
Browse files

Solve problem with shinyFile datapath format

parent ea749116
Hide whitespace changes
Inline Side-by-side
sagApp/server/opt_global.R
View file @ a1e44975
......@@ -348,7 +348,7 @@ observeEvent(input$RunPipeline, {
shinyFileChoose(input, "shinyfiles_process_radtags_barcode_file", root=c(Data="/Data",Results="/Results"),session = session)
observeEvent({parseFilePaths(c(Data="/Data",Results="/Results"),input$shinyfiles_process_radtags_barcode_file)$datapath[1]},{
updateTextInput(session,"process_radtags_barcode_file_server",value = parseFilePaths(c(Data="/Data",Results="/Results"),input$shinyfiles_process_radtags_barcode_file)$datapath[1])
updateTextInput(session,"process_radtags_barcode_file_server",value = as.character(parseFilePaths(c(Data="/Data",Results="/Results"),input$shinyfiles_process_radtags_barcode_file)$datapath[1]))
})
shinyDirChoose(input, "shinydir_bowtie_index_path", root=c(Data="/Data",Results="/Results"),session = session)
......@@ -358,7 +358,7 @@ observeEvent(input$RunPipeline, {
shinyFileChoose(input, "shinyfiles_bowtie_index_genome_fasta", root=c(Data="/Data",Results="/Results"),session = session)
observeEvent({parseFilePaths(c(Data="/Data",Results="/Results"),input$shinyfiles_bowtie_index_genome_fasta)$datapath[1]},{
updateTextInput(session,"bowtie_index_genome_fasta_server",value = parseFilePaths(c(Data="/Data",Results="/Results"),input$shinyfiles_bowtie_index_genome_fasta)$datapath[1])
updateTextInput(session,"bowtie_index_genome_fasta_server",value = as.character(parseFilePaths(c(Data="/Data",Results="/Results"),input$shinyfiles_bowtie_index_genome_fasta)$datapath[1]))
})
shinyDirChoose(input, "shinydir_bwa_index_path", root=c(Data="/Data",Results="/Results"),session = session)
......
Supports Markdown
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