闪亮和RMarkdown：渲染多个块

Question

我想创建一个Shiny-RMarkdown应用程序，允许上传自己的数据集。数据集有时不仅会影响一个块，可以通过renderPlot（）（或类似的）重新渲染，但有时会有两个或更多的块。请看下面的例子：

--- 
title: Render multiple chunks 
output: html_document 
runtime: shiny 
--- 

```{r echo=FALSE} 
library(shiny) 
fileInput('file1', 'Choose your own CSV File instead of provided 
data',accept=c('text/csv', 'text/comma-separated-values,text/plain', 
'.csv')) 

go1<-reactive({ 
    dpath <- "CurrentBiologyData.txt" 
    if(!is.null(input$file1)){ 
    dpath <- input$file1$datapath 
    } 
    CB.dat <- read.table(dpath, header = TRUE) #choose 'CurrentBiologyData.txt' 
    plot(CB.dat) 
}) 
``` 

```{r echo=FALSE} 
renderPlot({ 
     go1() 
}) 
``` 

```{r} 
    renderPlot({ 
    print(CB.dat) 
    }) 
``` 

所以我如果我上传一个新的数据集，其受影响的三个组块。问题是，第三块没有看到CB.dat填充在第一小盘：

Error: Object 'CB.dat' not found 

任何想法如何，我可以使这项工作？

Answer 1

应用到你的例子我在我的评论

意味着把文件读入一个反应再使用它，无论你需要它

--- 
title: Render multiple chunks 
output: html_document 
runtime: shiny 
--- 

```{r echo=FALSE} 
library(shiny) 
fileInput('file1', 'Choose your own CSV File instead of provided 
data',accept=c('text/csv', 'text/comma-separated-values,text/plain', 
'.csv')) 

CB.dat<-reactive({ 
    dpath <- "CurrentBiologyData.txt" 
    if(!is.null(input$file1)){ 
    dpath <- input$file1$datapath 
    } 
    read.table(dpath, header = TRUE) #choose 'CurrentBiologyData.txt' 
}) 
``` 

```{r echo=FALSE} 
renderPlot(plot(CB.dat()) 
``` 

```{r} 
renderTable(CB.dat()) 
```