title: “Untitled”

output:

flexdashboard::flex_dashboard:

orientation: columns

vertical_layout: fill

runtime: shiny

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

Column

Choose CSV File

Browse...

Data

Row

Table 1 - Show the data recently acquired

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