Загрузка файла в rMarkdown и вызов файла для генерации сводки статистики - PullRequest
Новая
       30

Загрузка файла в rMarkdown и вызов файла для генерации сводки статистики

1 голос
/ 26 марта 2020

Я новичок и пытаюсь выучить R, я создал приложение, в которое вы можете загрузить свой файл .csv, но я не могу понять, как вызывать данные для генерации сводки, сюжет и т. Д. c. Я буду признателен за вашу помощь, чтобы понять систематический c подход в том, как действовать. Код прилагается ниже. Заранее спасибо. Коды следующие: 

---
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.
```
...