我想创建一个应用程序，它允许下载我放在目录中的任何类型的文件。
我提出的唯一方法是使用mvn dependency:analyze。例如：
html tags。
但是，我有10个文件并且放置10个链接是不合适的解决方案。
可以找到我想要做的并行示例here.在这种情况下使用tags$a(href = "file_name.extension", "Press for downloading" )，而不是文件构成服务器。
有没有办法在data.frames方创建function，允许选择文件，然后使用server下载文件，例如button的示例}？
我想为任何类型的文件复制data.frames示例，例如data.frames，xlsx，png，...
另外，我附上代码示例，以便更容易理解问题。
zip编辑：
我已经找到了如何使用rm(list = ls())
library(shiny)
library(shinydashboard)
# Header -----------------------------------------------------------
header <- dashboardHeader(title="Dashboard")
# Sidebar --------------------------------------------------------------
sm <- sidebarMenu(
menuItem(
text="Download",
tabName="Download",
icon=icon("home")
)
)
sidebar <- dashboardSidebar(sm)
# Body --------------------------------------------------
body <- dashboardBody(
# Layout --------------------------------------------
tabItems(
tabItem(
tabName="Download",
fluidPage(
fluidRow(
h1("Some files to download:"),
#### 2 files for downloading
tags$a(href = "cat1.xlsx", "Cat picture" ),
HTML("<br/>"),
tags$a(href = "cat2.xlsx", "Second cat picture" )
)
)
)
)
)
# Setup Shiny app UI components -------------------------------------------
ui <- dashboardPage(header, sidebar, body, skin="black")
# Setup Shiny app back-end components -------------------------------------
server <- function(input, output) {
}
# Render Shiny app --------------------------------------------------------
shinyApp(ui, server)
来解决它。
这段代码解决了这个问题，但有没有办法如何使用html优化它？
server