R Shiny - downloadHandler - Печать данных кадра - 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