Adds decorate functionality to module output

[gogonzo]

closes #1383 #1384

Companion PRs:

• 🗃️ decorators feature branch teal.modules.general#795

example tmg app

pkgload::load_all("teal")
pkgload::load_all("teal.modules.general")
library(teal.widgets)

data <- teal_data()
data <- within(data, {
  require(nestcolor)
  ADSL <- rADSL
})
join_keys(data) <- default_cdisc_join_keys[c("ADSL")]

footnote_regression <- teal_transform_module(
  server = make_teal_transform_server(expression(
    plot <- plot + labs(caption = deparse(summary(fit)[[1]]))
  ))
)

fact_vars_adsl <- names(Filter(isTRUE, sapply(data[["ADSL"]], is.factor)))
vars <- choices_selected(variable_choices(data[["ADSL"]], fact_vars_adsl))

app <- init(
  data = data,
  modules = modules(
    tm_a_regression(
      label = "Regression",
      response = data_extract_spec(
        dataname = "ADSL",
        select = select_spec(
          label = "Select variable:",
          choices = "BMRKR1",
          selected = "BMRKR1",
          multiple = FALSE,
          fixed = TRUE
        )
      ),
      regressor = data_extract_spec(
        dataname = "ADSL",
        select = select_spec(
          label = "Select variables:",
          choices = variable_choices(data[["ADSL"]], c("AGE", "SEX", "RACE")),
          selected = "AGE",
          multiple = TRUE,
          fixed = FALSE
        )
      ),
      ggplot2_args = ggplot2_args(
        labs = list(subtitle = "Plot generated by Regression Module")
      ),
      decorators = list(footnote_regression)
    )
  )
)

shinyApp(app$ui, app$server)

[averissimo]

I'm not seeing the plot

[llrs-roche]

The commit 2fd5402#diff-e0580713ebab38629323af94a681f70a14d5651b6294a0a941c8d8b31848d01bR683-R685 looks good, just a minor comment.

[averissimo]

Awesome work @gogonzo and @kpagacz on designing this, 🎩 off.

Thanks for the whole team working on reviewing and improving to what it is now and @m7pr for leading the effort 💪

Note: PR failing due to missing link of vignette that is created with this PR.. it's a 🐔 or 🥚 :-)

[m7pr]

🔥