introduce decorators for tm_data_table

[m7pr]

Part of insightsengineering/teal#1370

Working Example

devtools::load_all("../teal")
devtools::load_all(".")

# general data example
data <- teal_data()
data <- within(data, {
  require(nestcolor)
  iris <- iris
})

custom_table_decorator_interactive <- teal_transform_module(
  ui = function(id) {
    ns <- NS(id)
    div(
      selectInput(
        ns("style"), 
        "Table Style", 
        choices = c("Default", "Striped", "Hover"), 
        selected = "Default"
      )
    )
  },
  server = function(id, data) {
    moduleServer(id, function(input, output, session) {
      reactive({
        req(data(), input$style)
        within(data(), 
               {
                 if (style == "Striped") {
                   table <-
                     DT::formatStyle(
                       table,
                       columns = attr(table$x, "colnames")[-1],
                       target = 'row',
                       backgroundColor = '#f9f9f9'
                     )
                 } else if (style == "Hover") {
                   table <-
                     DT::formatStyle(
                       table,
                       columns = attr(table$x, "colnames")[-1],
                       target = 'row',
                       backgroundColor = '#f0f0f0'
                     )
                 }
               }, 
               style = input$style
        )
      })
    })
  }
)

app <- init(
  data = data,
  modules = modules(
    tm_data_table(
      variables_selected = list(
        iris = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species")
      ),
      dt_args = list(caption = "IRIS Table Caption"),
      decorators = list(custom_table_decorator_interactive)
    )
  )
)
if (interactive()) {
  shinyApp(app$ui, app$server)
}

[m7pr]

Hey @averissimo this PR is done, however I would need some extra pair of 👁️ eyes.

This example for for non-ineractive decorator. However it fails for interactive decorator because inside the within function, it can not find input$style. It is empty. So I think I put UI part in the wrong place inside the code.

Would you maybe be able to take a look?

[averissimo]

Show R code is not working and there will be a linter error

[averissimo]

The **CURRENT** implementation of data-table has for each of the datanames:

• 1 call of decorator UI/SRV
  • So each may have a different UI with options specific to each tab

Q: Do we want to try and create a "singleton" UI that then applies to each one dataname?

In practice: Do we want to have a single UI for options applied to each dataname, or a UI for each of the datanames (as is now)

Consequences: We need get inputs from 1-level above as the srv_teal_transform_data is called from within the dataname prefixed namespace (data_table-{iris,mtcars, ...})

---

Current implementation vs. Q

edit: note that every sub-box is a tab in the module.

[averissimo]

LGTM 🎉