イメージをテーブルとしてダウンロードr

Question

イメージ（PNGまたはJPEG）としてテーブルをダウンロードしたいと考えています。のは、私のデータフレームを使用して、ライブラリgridExtraからgrid.table機能を使用することができますイメージとして表をダウンロードするには

output$statsTable <- renderTable({ 
    #Printing the table 
    df 
}) 

output$downloadStatsTable <- downloadHunter(
    filename = function() { 
     paste(getwd(), '/test.png', sep = '') 
    }, 

    content = function(con) { 
     p <- grid.table(df) 
     device <- function(..., width, height) grDevices::png(..., width = 12, height = 9, res = 300, units = "in") 
     ggsave(file, plot = p, device = device) 
    } 
) 

Answer 1

dfをあると仮定しよう。テンプレートとして使用できるコードは次のとおりです。

​​

希望します。