inst/edapp/server.R

library(shiny)
library(shinydashboard)
source("helpers_shiny.R")
source("main_source.R")
# Define server logic required to draw a histogram ----
server <- function(input, output) {
  output$contents <- renderTable({
    # input$file1 will be NULL initially. After the user selects
    # and uploads a file, it will be a data frame with 'name',
    # 'size', 'type', and 'datapath' columns. The 'datapath'
    # column will contain the local filenames where the data can
    # be found.
    inFile <- input$file1
    
    if (is.null(inFile))
      return(NULL)
    
    read.csv(inFile$datapath, header = input$header)
  })
}
r2rahul/expdata documentation built on May 18, 2019, 2:36 a.m.