RShiny下载按钮在RMarkdown

Question

我似乎无法得到闪亮downloadButton的rmarkdown文档中工作与runtime: shiny。这里是一个类似于我正在做的例子。

--- 
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。

下面是它的例子的工作：

--- 
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),] 
}) 
``` 

注意，尽管在RStudio测试，但在浏览器中它会在运行时文件名的时候就不会得到尊重。