r - 在 flexdashboard 中上传文件

Question

我正在尝试在 flexdashboard 中添加一个输入文件，但我有点困惑。之前我创建了一个函数来生成一个绘图，然后我用这个函数调用函数 renderPlot 以便在仪表板中获取绘图。

R flexdashboard and shiny interactive plot

但是现在，如果我创建一个函数来读取文件，我不知道如何调用它。

如何遵循相同的想法，创建一个函数来读取仪表板中带有输入文件的文件，然后在仪表板中执行分析。

我已经生成了这段代码

    ---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
```

Column {.sidebar}
-----------------------------------------------------------------------
```{r, echo = FALSE}
fileInput("file1", "Choose CSV File",
                multiple = TRUE,
                accept = c("text/csv",
                         "text/comma-separated-values,text/plain",
                         ".csv"))


```

有了这个，我获得了一个带有文件输入的侧边栏。但是如何在任何分析中使用该上传的文件并在仪表板中显示结果？

    ---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
```

Column {.sidebar}
-----------------------------------------------------------------------
```{r, echo = FALSE}
fileInput("file1", "Choose CSV File",
                multiple = TRUE,
                accept = c("text/csv",
                         "text/comma-separated-values,text/plain",
                         ".csv"))
df_reac <- reactive({
  read_xlsx(file1$datapath)
})

```

Column{data-width=300}
-----------------------------------------------------------------------
```{r, echo = FALSE}
renderTable(df_reac)


```

Answer 1

这是一个老问题，但这段代码可以让您在 Flexdashboard 上上传文件:

    ---
    title: "Untitled"
    output: 
      flexdashboard::flex_dashboard:
        orientation: columns
        vertical_layout: fill
    runtime: shiny
    ---

    ```{r setup, include=FALSE}
    library(flexdashboard)
    ```

    ```{r}
    dataset <- eventReactive(input$file1,{
      dataset <- read.csv(input$file1$datapath)
    })
    ```

    # Column {.sidebar}

    ```{r, echo = FALSE}
    fileInput("file1", "Choose CSV File",
                    multiple = TRUE,
                    accept = c("text/csv",
                             "text/comma-separated-values,text/plain",
                             ".csv"))
    ```

    # Data 

    ## Row

    ### Table 1 - Show the data recently acquired

    ```{r}
    renderTable({
      dataset <- dataset()
      dataset
    })
    ```

主要问题是创建 react 函数，因为在上传文件之前您不知道数据集。 react 值是 input$file1