R/mod_exploratory.R

In marton-balazs-kovacs/tppr: Shiny app to show real-time results of the TPP project

#' exploratory UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_exploratory_ui <- function(id){

  tagList(
    h1("Histogram overlay of the expected and observed distribution of successful guess rate", class = "tab-title"),
    plotOutput(NS(id, "plot")),
    hr(),
    mod_footer_ui(NS(id, "footer"))
  )
}
    
#' exploratory Server Function
#'
#' @noRd 
mod_exploratory_server <- function(id, push_time, refresh_time, current, at_checkpoint){
  moduleServer(id, function(input, output, session) {
    waiter <- waiter::Waiter$new(
      id = "exploratory-plot",
      html = tagList(
        div(
          tags$img(src = "www/favicon.png", height = "150px"),
          h5("Loading the plot...", style = "color: #6d5c7c;"),
          style="display:inline-block; width: 150px;")
      ),
      color = "#FBEEEF")
    
    # Generate plot ---------------------------
    output$plot <- renderPlot({
      waiter$show()
      tppr::plot_exploratory(success_rates_theoretical_prop = current()$exploratory$success_rates_theoretical_prop,
                             success_rates_empirical_prop = current()$exploratory$success_rates_empirical_prop,
                             possible_success_rates = current()$exploratory$possible_success_rates)
      })
    
    # Add footer ---------------------------
    mod_footer_server("footer",
                      push_time = push_time,
                      refresh_time = refresh_time,
                      current = current,
                      at_checkpoint = at_checkpoint)
  })
}
    
## To be copied in the UI
# mod_exploratory_ui("exploratory")
    
## To be copied in the server
# mod_exploratory_server("exploratory")