javascript - 使用 Shiny 链接文件夹中的文件

Question

我想要做的是一个 Shiny 的应用程序，它显示文件夹中的文件，并允许用户点击它打开/下载。假设我在一个文件夹中有 3 个文件，例如:

file1.txt  file2.bmp  file3.jpg

我想要的是我的应用程序向我显示这些文件并让我单击它们以下载/打开。如果它只有 html，它就像

<a href="file1.txt">file1</a><a href="file2.bmp">file2</a><a href="file3.jpg">file3</a>

这必须动态完成，所以当我单击一个按钮时，它会刷新文件夹中的文件列表并让我下载它们。

谢谢!

Answer 1

这是一个浏览文件、打开文件并显示其内容的简单程序。

library(shiny)
# Define UI
ui <- pageWithSidebar(
# App title ----
headerPanel("Open a File and Show Contents"),
# Sidebar panel for inputs ----
    sidebarPanel(
    label="Data Source",fileInput("fileName", "File Name")),

# Main panel for displaying outputs ----
mainPanel(
    textOutput(outputId = "text"))
)

# Define server logic
server <- function(input, output) {

inputData <- reactive ({
  if (is.null(input$fileName)) return(NULL)
  inFile <- input$fileName
  conInFile <- file(inFile$datapath,open='read')
  inData <- readLines(conInFile)
  close (conInFile)
  return (inData)
})

output$text <- renderText ({
  inData <- inputData()
  inData
})
}

shinyApp(ui, server)