Add Card Button Server

Usage

add_card_button_srv(id, reporter, card_fun)

Arguments

id

character(1) this shiny module's id.

reporter

Reporter instance.

card_fun

function which returns a ReportCard instance, the function have atcardargument and optional comment.

Value

shiny::moduleServer

Details

This module allows using a child of ReportCard instead of ReportCard. To properly support this, an instance of the child class must be passed as the default value of the card argument in the card_fun function. See below:

CustomReportCard <- R6::R6Class( # nolint: object_name_linter.
  classname = "CustomReportCard",
  inherit = teal.reporter::ReportCard
)

custom_function <- function(card = CustomReportCard$new()) {
  card
}