M1.R

library('shiny')

observeEvent(input$sampledata, {
  data('endosim')
  loadedData(endosim)
  
  textobj(paste(textobj(),'Using the Sample Data provided by RealROC.',' ', sep='<br/>'))
  
})

listentofile <- reactive({list(input$main, input$sep, input$quote, input$header)})

mydata <- eventReactive(listentofile(),{
  req(input$main$datapath)
  read.csv(
    input$main$datapath,
    header = input$header,
    sep = input$sep,
    quote = input$quote
  )
})

observeEvent(mydata(),{
  loadedData(mydata())
})


observe({
  req(input$main$datapath) 
  try({
    if (file_ext(input$main$datapath) == 'csv') {
      loadedData(
          mydata()
        )
      
    } else {
      loadedData(read_excel(input$main$datapath,
                            sheet = input$sheetId))
    }
    
  })
})

observeEvent(listentoDataInputs(), {
  output$filetable <- renderDataTable({
    DT::datatable(loadedData())
  })
})