RMarkdown内のRShinyダウンロードボタン

Question

のrmarkdown文書で光沢が出るようには見えません。downloadButtonここに私がやっているのと似た例があります。

--- 
title: "R Document" 
runtime: shiny 
--- 

```{r, echo = FALSE} 
numericInput("SS", "Selecr SS", min = 1, max = 100, value = 1) 

RandomSample <- reactive({ 
    data.frame(X = rnorm(100), Y = rnorm(100)) 
}) 

downloadButton("download", "Download") 

renderPlot({ 
    plot(RandomSample()[(1:input$SS), "X"], RandomSample()[(1:input$SS), "Y"]) 
}) 

renderTable({ 
    RandomSample()[(1:input$SS),] 
}) 
``` 

私はRandomSample()をダウンロードし、ダウンロードボタンをたいと思いますが、私もdownloadButtonを表示することができません。

Answer 1

あなたが探しているものはdownloadHandlerだと思います。 RStudioでテストしている間、それは意志のブラウザで実行するときに、あなたのファイル名が尊重されることはありません

--- 
title: "R Document" 
runtime: shiny 
output: html_document 
--- 
```{r, echo=FALSE} 

numericInput("SS", "Selecr SS", min = 1, max = 100, value = 1) 

RandomSample <- reactive({ 
    data.frame(X = rnorm(100), Y = rnorm(100)) 
}) 

downloadHandler(filename = function() { 
    return(paste('Example', input$SS, '.csv', sep='')) 

}, content = function(file) { 
    write.csv(RandomSample(), file) 
}) 

renderPlot({ 
    plot(RandomSample()[(1:input$SS), "X"], RandomSample()[(1:input$SS), "Y"]) 
}) 

renderTable({ 
    RandomSample()[(1:input$SS),] 
}) 
``` 

注：

はここで働いて、それとのあなたの例です。