inst/countfitteR/utils.R

In countfitteR: Comprehensive Automatized Evaluation of Distribution Models for Count Data

library(shinyWidgets)
library(shiny)
library(shinythemes)

withCustomSpinner <- function(widget) {
  shinycssloaders::withSpinner(widget)
}

plotWithSpinner <- function(plotId, ...) {
  withCustomSpinner(plotOutput(plotId), ...)
}

dataTableWithSpinner <- function(dataTableId, ...) {
  withCustomSpinner(DT::dataTableOutput(dataTableId), ...)
}