Add Card Button Server

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 has optional card and comment arguments. If the card argument is added then the ReportCard instance is automatically created for the user. If the comment argument is not specified then it is added automatically at the end of the Card.

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
}