Я пытаюсь добавить входной файл в flexdashboard, но я немного запутался. Ранее я создал функцию для создания графика, а затем вызываю функцию renderPlot с этой функцией, чтобы получить график на панели инструментов.
R flexdashboard и блестящий интерактивный сюжет
Но теперь, если я создаю функцию для чтения файла, я не понимаю, как ее вызвать.
Как следовать той же идее, создать функцию, которая считывает файл с входным файлом на панели инструментов, а затем выполняет анализ на панели инструментов.
Я сгенерировал этот код
---
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)
```