R shiny 的应用程序无法下载格子图

downloadButton('downloadPlot2', 'Save lattice plot locally')
.
.
.
tabPanel(names(panel_choices)[2], value = panel_choices[[2]], plotOutput("plot2"))

output$plot2 <- renderPlot({
    print(plotInput2())
  })
  
  plotInput2 <- reactive({
    md <- mydata()
    md.long <- melt(md, id = "ID", measure = colnames(md)[-1])
    xyplot(value~md.long[,1],data = md.long,main="visualization of data from csv file",ylim = c(input$value[1],input$value[2]),
           xlab = "ID",ylab = "values of variables")
  })

output$downloadPlot2 <- downloadHandler(
    filename = '',
    content = function(file) {
      png(file)
      print(plotInput2())
      dev.off()
    })

R相关问答推荐

在位置周围设定一个半径并识别该半径内的其他位置

在R中替换函数中的特定符号

基于多列将值链接到NA

使用sf或terra的LINESTRAING的累积长度

未识别时区

使用data.table：：fcase()而不是dplyr：：case_When()时保持值

在使用bslb和bootstrap5时，有没有办法更改特定dt行的 colored颜色 ？

R中有约束的优化问题：如何用复数和对数效益函数解决问题？

识别连接的子网(R-igraph)

R -在先前group_by级别汇总时获取最大大小子组的计数

从多个可选列中选取一个值到一个新列中

SHILINY中DT列的条件着色

用满足特定列匹配的另一行替换NA行

TidyVerse中长度不等的列结合向量

按镜像列值自定义行顺序

我已经运行了几个月的代码的`Palette()`中出现了新的gglot错误

按两个条件自动过滤数据

在一个multiplot中以非对称的方式在R中绘制多个图

根据用户输入更改标记大小和 colored颜色 (R)

有没有一种方法可以在pivot_longer()中 Select 最后一列，而不需要命名或给出索引号？