r语言 - 是否有可能检索一个文件的原始文件位置，通过在标记下降闪亮参数选择?

Question

通过参数选择文件时，Shiny将所选文件复制到临时位置，以便丢失原始文件路径和名称。是否有一种方法可以查看选择了哪个文件，以便审阅工作的人员可以验证使用了正确的文件?

我四处寻找答案，我能找到的唯一相关的帖子是:https://github.com/rstudio/rmarkdown/issues/919 issuecomment - 415305036

目前，我将继续使用file.choose()，它允许我跟踪所选输入文件的文件路径。

Answer 1

这个问题又出现了，我想出了一个解决办法，我想我会分享。基本上，我依赖于"点击"中的tk_choose.files()。图书馆。我创建了一个调用该命令的操作按钮，然后我使用assign()命令将其移动到我的全局环境中。这使得在RMD的输出文件中显示所选文件的完整文件路径成为可能。

library(shiny)
library(tcltk)
ui <- fluidPage(
titlePanel("Shiny Example"),
helpText("Location of Example Input File"),
verbatimTextOutput("printFilePath"),
actionButton("inputFileButton", "Select File")
)
server <- function(input, output) {      
observeEvent(input$inputFileButton, {
selectedFilePath <-
tk_choose.files(caption = "Select the Example Input File")
output$printFilePath <- renderPrint(selectedFilePath)
assign("selectedFilePath", selectedFilePath, .GlobalEnv)
})      
}
shinyApp(ui, server)

根据我的研究，没有其他人发表过这个解决方法，所以我希望其他人会发现它有用。