R Shiny：下载现有文件

library(shiny)

app <- list(
  ui = fluidPage(
    titlePanel(""),
    sidebarLayout(
      sidebarPanel(
        downloadButton("downloadData", label = "Download")
      ),
      mainPanel(h6("Sample download", align = "center"))
    )
  ),

  server = function(input, output) {  
    output$downloadData <- downloadHandler(
      filename <- function() {
        paste("output", "zip", sep=".")
      },

      content <- function(file) {
        # not sure what to put here???
      },
      contentType = "application/zip"
    )
  }
)

shiny::runApp(app)

output$downloadData <- downloadHandler(
  filename <- function() {
    paste("output", "zip", sep=".")
  },

  content <- function(file) {
    file.copy("out.zip", file)
  },
  contentType = "application/zip"
)

R相关问答推荐

如果报名日期和考试日期相同，如何获得最高分的考试

使用split.zoo界定xts物体的降水事件

有没有方法将paste 0功能与列表结合起来？

工作流程_set带有Dplyrr风格的 Select 器，用于 Select 结果和预测因子R

r—绘制相交曲线

删除具有相同标题的tabPanel(shinly)

为什么我的基准测试会随着样本量的增加而出现一些波动？

从所有项的 struct 相同的两级列表中，将该第二级中的所有同名项绑定在一起

使用R中的正则表达式将一列分割为多列

R Read.table函数无法对制表符分隔的数据正常工作

当我添加美学时，geom_point未对齐

如何将Which()函数用于管道%>；%

如何使这些react 表对象相互独立？

将数据集旋转到长格式，用于遵循特定名称模式的所有变量对

如何删除设置大小的曲线图并添加条形图顶部数字的百分比

将统计检验添加到GGPUBR中的盒图，在R

循环遍历多个变量，并将每个变量插入函数R

错误包arrowR：READ_PARQUET/OPEN_DATASET&QOT；无法反序列化SARIFT：TProtocolException：超出大小限制&Quot；

R基于变量组合创建新的指标列

如何使用ggplot2根据绘图中生成的斜率对小平面进行排序？