R/utils.R

In shinyalert: Easily Create Pretty Popup Messages (Modals) in 'Shiny'

getSession <- function() {
  session <- shiny::getDefaultReactiveDomain()

  if (is.null(session)) {
    stop("Could not find a Shiny session object", call. = FALSE)
  }

  session
}