Enable reactableOutput to be used in shiny.fluent

[Patrikios]

Motivation

library(shiny.fluent)
library(reactable)

if (interactive()) {
  options <- list(
    list(key = "A", text = "Option A"),
    list(key = "B", text = "Option B"),
    list(key = "C", text = "Option C")
  )
  
  shinyApp(
    ui = div(
      Stack(
        tokens = list(childrenGap = 20),
        Dropdown.shinyInput("dropdown", value = "A", options = options#, dropdownWidth = 500
                          )
      ),
      textOutput("dropdownValue"),
      reactableOutput("r1"),
    ),
    server = function(input, output) {
      output$dropdownValue <- renderText({
        sprintf("Value: %s", input$dropdown)
      })
      
      output$r1 <- renderReactable(mtcars)
    }
  )
}

Feature description

Would be nice to have reactableOutputs to partake in shin.fluent framework.

Implementation ideas

No response

Impact

No response

Comments

Some packages are allowed, like leaflet, some are not, as they probably need proper wrapping around react componects.

[timelyportfolio]

@Patrikios I believe this works with one minor change in your example.

output$r1 <- renderReactable({ reactable(mtcars) })

[Patrikios]

Of course, my bad, wonderfull, done!