如何在RShiny中链接打开文件夹

e3bfsja2  于 12个月前  发布在  其他
关注(0)|答案(1)|浏览(79)

我想使用一个actionButton链接打开一个文件夹在一个新的标签在我的闪亮的应用程序。
我使用“file:“标签来做这件事,但是这个标签只在用户右键单击actionButton并选择“在新标签中打开”时打开文件夹,否则它不会打开文件夹。
下面是一个演示代码,展示了我使用的方法:

ui <- fluidPage( 
  uiOutput("OpenFolderUi")
)
server <- function(input, output){
  output$OpenFolderUi <- renderUI({   
    tags$a(
      href = "file:C:Users/orcunoltulu/Desktop",
      target = "_blank",
      "Open Folder"
    )
  })
}
shinyApp(ui = ui, server = server)

字符串
先谢谢你了!

watbbzwu

watbbzwu1#

我不太确定它是否解决了你的问题。你可以使用shinyFiles包。下面是解决方案:

library(shiny)
library(shinyFiles)

ui <- fluidPage( 
  shinyDirButton('dir', 'Folder select', 'Please select a folder')
)
server <- function(input, output){
  shinyDirChoose(input, "dir", , root=c(root='your/file/path/'))
}
shinyApp(ui = ui, server = server)

字符串
希望能帮上忙。

相关问题