ShinyDirChoose and ShinyFileChoose for accessing files on network drives

[pkohvaei]

Hello All,

I am relatively new to Shiny and reactivity. Here I try to create an app which:
1 - Selects a folder
2 - Selects a file in that folder
3 - Uploads and processes that file.

I have gone this far:

ui.R

filler_box <- box( title = "Auto-filler",
status = "primary", solidHeader = TRUE,
width = 12,
column(1,
shinyDirButton("ms_folder",
"Select folder",
"Select a project folder")
),

column(4,
verbatimTextOutput("selected_ms_dir")),

column(1,
shinyFilesButton(
id = "select_ms_file",
label = "Select file",
title = "Please select the MS data sheet file:",
multiple = F)
),

column(4,
verbatimTextOutput("selected_ms_file")),

server.R

shinyDirChoose(input, "ms_folder", roots = roots, session = session)
selected_ms_folder <- reactive({
parseDirPath(roots, input$ms_folder)
})

output$selected_ms_dir <- renderPrint({
if (is.integer(input$ms_folder)) {
cat("No folder selected")
} else {
selected_ms_folder()
}
})

selected_ms_file <- reactive({
shinyFileChoose(
input = input, "select_ms_file",
roots = c("path" = selected_ms_folder()),
session = session)

req(input$select_ms_file, selected_ms_folder())

return(input$select_ms_file)
})

observeEvent( selected_ms_file(),
{print(str(input$select_ms_file))})

output$selected_ms_file <- renderPrint({
if (is.integer(input$select_ms_file)) {
cat("No files selected")
} else {
selected_ms_file()
}})

Not sure what to expect from "input$select_ms_file", but it is a nested list.
I tries to use "parseFilePaths()" but it returns NA.

Couls someone please help me correct this?

Thanks,