光沢のあるファイルをダウンロード

Question

ヘッダーを含む表形式のファイルをダウンロードし、2つの検索ウィジェットを一番上に表示します。出力は、80％（High-low）と95％（High-low）の信頼区間とともに予測値です。5列、5行（デフォルト）です。しかし、私はここで2つの課題を抱えています。

チャレンジ1： "ファイルをダウンロードする"をクリックした後、ファイル名は拡張子のないダウンロードデータとして表示されますが、ファイル名はpng拡張子で "予測"されているはずですが、 .png

チャレンジ2：ファイルを保存している間に拡張子としてpngを入力すると、ファイルは保存されますが、何も印刷されません。

私は様々なフォーラムで検索し、それらを複製しようとしましたが、何も動作していないようです。

お勧めします。

光沢のあるUI

library(shiny)  
downloadButton(outputId = "downloaddata" ,label ="Download the file"), 

光沢のあるサーバー

output$downloaddata<-downloadHandler(

    filename = function(){ 
     paste("forecasted","png",sep=",") 
    }, 
    content = function(file){ 
     png(file) 
     h <-input$fst 
     tab<-forecast(Model_mape(),h) 
     datatable(as.data.frame(tab), options = list(
     columnDefs = list(list(targets = c(1, 3), searchable = FALSE)), 
     pageLength = 10)) 
     dev.off() 

    } 

) 

Answer 1

多分それはあなたを助けることができる（それは簡単な例です）：

宇井：

library(shiny) 

shinyUI(fluidPage(

    mainPanel(plotOutput("plot1"), 
      downloadButton("downloadplot","Download your plot")) 

)) 

サーバー：

library(shiny) 

shinyServer(function(input, output) { 
    your_plot = function(){ 
    (plot(rnorm(1000,0,1))) 
    } 


    output$plot1 <- renderPlot({ 
    your_plot() 
    }) 

    output$downloadplot <- downloadHandler(
    filename = "plot_exemple.png", 
    content = function(file) { 
     png(file, width = 1200, height = 800) 
     print(your_plot()) 
     dev.off() 
    }) 

    }) 

これで、簡単にpngをダウンロードできます（ブラウザで開くことができます）。