R/send_message.R

Defines functions send_message

#' @author richard.kunze
#' @keywords internal
send_message <- function(type, ids, ...) {
  session <- shiny::getDefaultReactiveDomain()
  if (!is.null(session)) {
    for (id in ids) {
      session$sendCustomMessage(
        type = type, message = list(id = id, retry = TRUE, ...)
      )
    }
  }
}
daqana/dqshiny documentation built on Sept. 1, 2020, 4:31 p.m.