Shiny App 问题，ShinyDirButton 无响应

Posted 2023-02-18

【中文标题】Shiny App 问题，ShinyDirButton 无响应

【英文标题】：Shiny App Issue, ShinyDirButton is unresponsive

【发布时间】：2021-02-23 09:36:33

【问题描述】：

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

但是，当我运行代码时，按钮会出现，但在 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)

提前谢谢你

【参考方案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)