Javascript 将文件夹中的文件链接到
我想做的是一个闪亮的应用程序,显示文件夹中的文件,并允许用户点击打开/下载。假设我在一个文件夹中有3个文件,如:Javascript 将文件夹中的文件链接到,javascript,html,r,shiny,Javascript,Html,R,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">file
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>
这必须动态完成,所以当我点击一个按钮时,它会刷新文件夹中的文件列表,让我下载它们
谢谢 如果需要文件夹中的文件列表,可以使用
yourFiles这里有一个简单的程序,可以浏览文件、打开文件并显示其内容
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)
库(闪亮)
#定义用户界面
ui我添加了一个JS标记,因为这个解决方案很可能需要它