Shiny 在rMarkdown中上载文件并调用该文件以生成统计摘要

我是新来的，正在尝试学习R，我制作了一个应用程序，您可以上传您的file.csv文件，但我不知道如何调用数据以生成摘要、绘图等。我将感谢您帮助我理解如何进行的系统方法。代码附在下面。提前谢谢。 代码如下：

---
title: "Data Visualization"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
    #storyboard: true
runtime: shiny
---

```{r setup, include=FALSE}

library(flexdashboard)
library(shiny)
library(shinyWidgets)
library(DT)
library(formattable)
library(Hmisc)
library(tidyverse)
library(plotly)
library(ggplot2)
```

Sidebar {.sidebar}
=====================================================

```{r}
fileInput('file1', 'Choose a file to upload',
        accept = c(
          'text/csv',
          'text/comma-separated-values',
          'text/tab-separated-values',
          'text/plain',
          '.csv',
          '.tsv')
        )

```

Page 1
=========================================================

Column {data-width=350}
------------------------------------------------------------

### Dataset

```{r}
rv <- reactiveValues(data = NULL)

observe( {
  req(input$file1)

  inFile <- input$file1
  data2 <- read.csv(inFile$datapath, stringsAsFactors=FALSE)
  save(data2, file = "dataread.RData")

  rv$data <- data2
})

DT::renderDataTable({
  req(rv$data)
  rv$data
})
```

------------------------------------------------------------

### Data Summary

```{r}

summary(???)

#how to call the data, if PLOT, is it:

#plot(inFile$file) # In the code chunk it also called: 
#data2 <-     read.csv(inFile$datapath, #stringsAsFactors=FALSE) 
#if I write plot(data2),     it doesn't generate a plot, neither for summary.
```

---
标题：“数据可视化”
输出：
flexdashboard:：flex_仪表板：
方向：列
垂直布局：滚动
#故事板：真的
运行时间：闪亮
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（闪亮）
图书馆（shinyWidgets）
图书馆（DT）
库（格式化表）
图书馆（Hmisc）
图书馆（tidyverse）
图书馆（绘本）
图书馆（GG2）
```
边栏{.Sidebar}
=====================================================
```{r}
fileInput（'file1'，'选择要上载的文件'，
接受=c(
“文本/csv”，
“文本/逗号分隔值”，
“文本/制表符分隔值”，
“文本/纯文本”，
“.csv”，
“.tsv”）
)
```
第1页
=========================================================
列{数据宽度=350}
------------------------------------------------------------
###数据集
```{r}
我通过观看youtube视频来解决这个问题。感谢所有的贡献者。