R/get_reactive_data.R

In suvi-subra/viewtrial: Centralized monitoring RShiny template

#' Get reactive data
#'
#' @param input inputs from UI
#' #@param output
#' #@param session
#' @return
#' @noRd
get_reactive_data <- function(input, data){

  data <- data
  
  random_period <- reactive(

    if(input$center != "All"){
      filter(data$all, centre.short == input$center & rando_date.date >= input$period[1] & rando_date.date <= input$period[2])

    } else{
      filter(data$all, rando_date.date >= input$period[1] & rando_date.date <= input$period[2])
    })
  
  ## Save reactive dataframes into list

  reactive_data <- list(
      rx_random = random_period
  )

  return(reactive_data)
}