R/mod_nbinom.R

In zettsu-t/nbinomPlot: Plot negative binomial distributions interactively

#' nbinom UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_nbinom_ui <- function(id) {
  shiny::fluidPage(
    shinyjs::useShinyjs(),
    shiny::titlePanel("Negative Binomial Distribution"),
    shiny::sidebarLayout(
      mod_params_ui(id),
      shiny::mainPanel(mod_main_panel_ui(id))
    )
  )
}

#' nbinom Server Functions
#'
#' @noRd
mod_nbinom_server <- function(id, nbinom_dist, default_max_nbinom_size) {
  mod_params_server(id, nbinom_dist, default_max_nbinom_size)
  mod_main_panel_server(id,
    nbinom_dist = nbinom_dist,
    default_max_nbinom_size = default_max_nbinom_size
  )
}