R闪亮文件：如何在Windows系统中选择目录

Question

我想使用 R 包选择一个目录

shinyFiles

。在我的MAC系统下可以用，但在我的windows系统下不行。

例如，我想在D盘中找到一个文件夹，但我看不到它。

这是我的演示：

library(shiny)
library(shinyFiles)

ui <- shinyUI(bootstrapPage(
  shinyDirButton(id = 'folder', label = 'Folder select', title = 'Select a folder'),
  verbatimTextOutput('filepaths')
))
server <- function(input, output){
  shinyFiles::shinyDirChoose(input, id = "folder", roots = c(wd = "/", home = "~"))
  output$filepaths <- renderPrint(input$folder)
}
shinyApp(ui=ui, server=server)

Answer 1

要获取系统上可用的卷（磁盘），您必须使用

getVolumes

功能。该函数返回一个函数，您必须执行

getVolumes()()

才能获取可用卷的命名向量：

library(shinyFiles)
getVolumes()()

在我的系统上，我得到：

Windows (C:)         (Q:)         (Y:)         (Z:) 
       "C:/"        "Q:/"        "Y:/"        "Z:/" 

因此您必须在应用程序中执行以下操作：

shinyDirChoose(input, id = "folder", roots = c(getVolumes()(), wd = "/", home = "~"))