Add Card Button Server — add_card_button

server for adding views/cards to the Report.

For more details see the vignette: vignette("simpleReporter", "teal.reporter").

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
}