Shiny App 问题，ShinyDirButton 无响应

Question

此代码应生成一个弹出窗口，允许为闪亮的应用选择目录。

但是，当我运行代码时，按钮会出现，但在 R-studio 查看器和在网络浏览器中运行时均无响应。

代码对您有用吗？有什么我做的不对吗？

library(shiny)
library(shinyFiles)

ui <- fluidPage(
  shinyDirButton('folder', 'Select a folder', 'Please select a folder', FALSE)
)
server <- function(input, output){
  volumes = getVolumes() # this makes the directory at the base of your computer.
  observe({
    shinyDirChoose(input, 'folder', roots=volumes, filetypes=c('', 'txt'))
    print(input$folder)
  })
}
shinyApp(ui=ui, server=server)

提前谢谢你

Answer 1

我发现了一个不同的函数，choose.dir()。

library(shiny)
library(shinyFiles)

ui <- fluidPage( 
actionButton("dir", 'select a folder'),  
textOutput("wd") #display working directory 
)

server <- function(input, output) { 
observeEvent(input$dir, {   
setwd(choose.dir("c:/")) #selecting a directory   
output$wd <- renderText(getwd())})
}

shinyApp(ui = ui, server = server)