如何使用Rshiny右键单击Graph，并显示下载图表中使用的数据集的选项

Question

enter image description here关于Rhiny：

如何启用右键单击图形的功能，显示下载数据集的选项？ 以下是我的代码。我的要求是，当我右键点击图表时，我会选择＆＃34;下载＆＃34;，然后点击＆＃34;下载＆＃34;它应该下载链接到该图表的相应数据集。 （就像我们使用下载按钮或下载链接一样）

library(shiny)
library(googleVis)


City <- c('city1','city2','city3','city4')
Region <- c('Region1','Region2','Region3','Region4')
Income <- c(10,12,17,20)

City_Dataset   <- data.table(City,Income)
Region_Dataset <- data.table(Region,Income)


server <- function(input, output) {

output$City <- renderGvis({
gvisBarChart(City_Dataset,
options = list(title="City",width=600, height=500)
)
})

output$Region <- renderGvis({
gvisBarChart(Region_Dataset,
options = list(title="Region",width=600, height=500)
)
})


}

ui <- shinyUI(fluidPage( 
fluidRow(column(6, htmlOutput("City")),
column(6, htmlOutput("Region"))
)

))

shinyApp(ui = ui, server = server)