inst/shiny-itcare/server.R

In jomuller/ITCARES: an Interactive Tool for Case-crossover Analyses of electronic medical REcords for patient Safety

library(DT)

shinyServer(function(input, output) {
  
  obj0 <- reactive({ 
    
    simulate_ep_data()
    
  })
  
  obj1 <- reactive({ 
    
    
    first_case(
      data = obj0(),
      diagnoses_case = input$diagnosis_case,
      diagnoses_exclusion = input$diagnosis_exclusion,
      exclude_in_case_stay = as.logical(input$exclude_in_case_stay),
      n_of_stays_max = 20
    )
    
  })
  
  
  obj2 <- reactive({ 
    
    age_study_period_restrictions(
      data = obj0(),
      cases = obj1(),
      starting_year = input$years[1],
      final_year = input$years[2],
      age_min = input$age[1],
      age_max = input$age[2]
    )

  })
  
  
  obj3 <- reactive({ 
    
    case_crossover(
      case_stay = obj2(),
      data = obj0(),
      exposure_diagnoses = '',
      exposure_procedures = input$exposure_procedures,
      screening_index_stay = as.logical(input$screening_index_stay),
      unique_exposure = as.logical(input$unique_exposure),
      interval_length = input$interval_length,
      number_of_interval = input$number_of_interval,
      wash_out = 365,
      los_max = input$los_max
    )
    
    
  })
  
  
  obj4 <- function(){ 
    
    sorties <- obj3()
    sorties$graphique
    
  }
  
  
  output$table <- renderDataTable({
    
    sorties <- obj3()
    datatable(style = 'bootstrap',
                sorties$table,
              rownames = FALSE)

  })
  
  
  output$graph <- renderPlot({
    
    sorties <- obj3()
    sorties$graph

        
  })
  
   
  
  
} 
)