inst/template/R/input-handlers.R

In devOpifex/leprechaun: Create Simple 'Shiny' Applications as Packages

#---------------------------------------------#
# DO NOT EDIT THIS FILE OR ADD ANYTHING TO IT #
#---------------------------------------------#

#' Input Dataframe
#'
#' Converts the input received from the WebSocket
#' to a data.frame.
#'
#' @param data Input data received from WebSocket.
#'
#' @keywords internal
leprechaun_handler_df <- function(data) {
  do.call("rbind", lapply(data))
}

#' Input List
#'
#' Forces the input received from the WebSocket
#' to a list. This should really not be needed as
#' it is handled like so by default.
#'
#' @param data Input data received from WebSocket.
#'
#' @keywords internal
leprechaun_handler_list <- function(data) {
  return(data)
}

.onAttach <- function(...) {
  shiny::registerInputHandler(
    "#PKGNAME#.list",
    leprechaun_handler_list,
    force = TRUE
  )

  shiny::registerInputHandler(
    "#PKGNAME#.df",
    leprechaun_handler_df,
    force = TRUE
  )
}

#---------------------------------------------#
# DO NOT EDIT THIS FILE OR ADD ANYTHING TO IT #
#---------------------------------------------#