Hello,
ha ok
. I found this alternative shinyFiles
library(shiny)
library(shinyFiles)
ui <- fluidPage(
bootstrapPage(
shinyDirButton(id="folder", label="folder", title="folder",
buttonType = "default",
class = NULL, icon = NULL, style = NULL),
verbatimTextOutput("directorypath")
)
)
server <- function(input, output,session) {
volumes <- c(Home = fs::path_home(), "R Installation" = R.home(), getVolumes()())
shinyDirChoose(input, "folder", roots = volumes,
session = session,
restrictions = system.file(package = "base"))
output$directorypath <- renderPrint({
parseDirPath(volumes, input$folder)
})
}
shinyApp(ui, server)