Shiny Download Plot - htmファイルのみを取得する（pngなし）

Question

私の人生は何が起こっているのか理解できません。私はプロット（pngファイル）のための私のアプリにダウンロードボタンを含める。私は次のコードを持っています。ダウンロードボタンを押すと、「download.htm」というポップアップが表示されます。ボタンをグラフ化してダウンロードして関連

tabPanel("BOOKINGS", 
br(), br(), 
fluidRow(column(12, "BOOKINGS", 
tabsetPanel(
tabPanel("Plot", plotOutput("mcsoPlot")), 
tabPanel("Table", dataTableOutput("BOOKINGS")), 
br(), 
downloadButton(outputId = "down", label = "Download the plot") 

server.Rパーツ：downloadbuttonと

ui.Rパーツ：エラーがどこにあるか誰でも見ることができます

buildplot <- function(){ 
p <- ggplot(selectedData(), aes(x = MONTH, group = TYPE, color = TYPE)) + 
geom_line(stat = "count", size = 1.5) 
p 
} 

output$down <- downloadHandler(
filename = "Shinyplot.png", 

content = function(file) { 
png(file) # open the png device 
buildplot() 
dev.off() # turn the device off 

} 
) 

誰が何をI見ることができる場合間違っていると本当に感謝しています。ありがとう。

Answer 1

私は他の投稿でこれを実行しなかったので、私はそれを理解して回答を投稿したいと思い、誰かが同じ間違いをするかもしれません。

ui.Rスクリプトでは、ダウンロードボタンスクリプトをプロットと同じfluidRow内に配置することはできません。私は本質的に別のfluidRowを作成し、そこにダウンロードボタンを配置しました。最終的なui.Rの例は次のようになります：

fluidRow(column(12, "BOOKINGS", 
tabsetPanel(
tabPanel("Plot", plotOutput("mcsoPlot")), 
tabPanel("Table", dataTableOutput("BOOKINGS")), 
br(), 
fluidRow(column(12, "", 
downloadButton(outputId = "down", label = "Download the plot"))) 
))))