Question

我正在构建RShiny应用程序，我希望用户能够导航到目录，然后希望能够在函数中使用此目录名称。有几个类似的问题，但我无法解决我的问题。我创建了一个简单的可复制示例。

在此示例中，我希望能够使用path_prefix并将其传递给系统命令，以便可以切换到该目录。我正在使用功能在“闪亮”窗口中打印path_prefix，并且所打印的内容是合适的。但是，我正在使用的功能将路径变成一个列表，其中每个文件夹都用引号引起来。有没有人建议如何工作？

library(shiny)
library(shinyFiles)

# UI
ui <- fluidPage(
  shinyDirButton('path_prefix', 'Select a directory', title='Select a directory'),
  textOutput('path_prefix'),
  actionButton("run", "run test")
)
# Server
server <- function(input, output, session) {
  volumes <- getVolumes()
  shinyDirChoose(input, 'path_prefix', roots=volumes, session=session)
  dirname <- reactive({parseDirPath(volumes, input$path_prefix)})


  # Observe input dir
  observe({
    #fileinfo <- parseSavePath(volumes, input$path_prefix)
    if(!is.null(dirname)){
      print(dirname())
      output$path_prefix <- renderText(dirname())
    }
  })

  observeEvent(input$run, {
    system(paste0("cd ", input$path_prefix))
  })

}
shinyApp(ui = ui, server = server)

R使用shinyFiles获取我可以在函数中使用的路径名

0 个答案: