R Shiny-下载处理程序-打印数据框-PNG

Question

我想使用downloadHandler将数据帧打印到PNG文件，但是下面的代码只是生成一个空的输出文件。

不确定我在做什么错吗？

任何帮助都会很棒。 谢谢。

output$down_data <- downloadHandler(
    filename = "odata.png",
    content = function(file) {

    png(file)

    indata <- renderTable({

        ddata <-data.frame(Question=c('Age', 'BMI'),
                           Answer=c(input$age, input$bmi))
    })


    output$rtab <- renderText({
        print.data.frame(HTML("<h3>",input$name,"</h3><h4>", 
                         "XXXXXXXXXX"," 
                         </h4>","<br>",indata()))
    })  

    dev.off()

    })

produces an empty PNG output file