2017-03-06 124 views
0

我希望能夠將圖像下載爲圖像(PNG或JPEG)。讓我們假設我的數據幀是DF將圖像下載爲圖像r

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) 
    } 
) 
+1

你的問題是什麼?你的代碼不工作?你會得到什麼錯誤? –

+0

問題是我有一個按鈕,點擊時會下載表格的圖像,我不知道該怎麼做。上面的代碼不會工作,因爲沒有下載的情節。 – wittywillis

回答

0

下載表格作爲圖像可以使用grid.table功能從庫gridExtra。這裏是您可以用作模板的代碼:

​​

希望它有幫助!