r - Flexdashboard で光沢のある、変数としてのデータフレーム

Question

Flexdashboard 内で Shiny を使用して、このデータフレームがサイドバーの入力からの変数であるデータフレームをプロットして表示したい:

Inputs {.sidebar}
-----------------------------------------------------------------------

```{r}
selectInput("df", label = h3("Select df"),  choices = list("january" = "df1", "february" = "df2"))
```

次に、タブセット内にデータフレームをプロットして表示しています。

Row {.tabset}
-----------------------------------------------------------------------

### Plot
```{r}
renderPlot({
plot(fread(paste("/Users/woshitom/Desktop/shiny/",input$df,".csv",sep="")),type="o", col="blue")
})
```

### Data
```{r}
renderTable(fread(paste("/Users/woshitom/Desktop/shiny/",input$df,".csv",sep="")))
```

ご覧のとおり、csv を 2 回読み込んでいます。

fread(paste("/Users/woshitom/Desktop/shiny/",input$df,".csv",sep=""))

代わりに、変数に格納したいと思います：

my_df <- fread(paste("/Users/woshitom/Desktop/shiny/",input$df,".csv",sep=""))

しかし、そうすると、次のエラーが発生します。

Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)

このデータフレームをどのように保存すればよいですか?