shinyDirChoose does not work on shinyapps.io

[chuyaowang]

Hi, I have an app using the following file structure:

- myApp/
    - app.R
    - www/
    - sampledata/
        - dataFolder/
            - data1
            - data2
            - data3

This is how I set up the shinyDirChoose button:

For the ui

shinyDirButton('datadir', label = "Choose Data Directory", title = "Please select data path", multiple = FALSE, width = "100%")

For the server

roots <- c(data = 'sampledata/')
shinyDirChoose(input, "datadir", roots = roots, allowDirCreate = F)

I want to deploy the app to shinyapps.io for a demo and stored some sample data in the dataFolder/. My app has a shinyDirButton to allow the user to choose their own folder containing their data for analysis, and for the demo, they should choose the dataFolder/ inside sampledata/, but the problem is nothing is shown in the file window when I click the button in shinyapps.io.

Here is what it looks like locally:

Here is what it looks like on shinyapps.io:

Please help me identify the problem. Is it a permission issue? The shinyapps.io log does not show any error message😢. This is my repo for your reference: repo link

[EkremBayar]

@chuyaowang I have the same problem. Is there a solution?