Combining renderUI, dataTableOutput, and renderDataTable

Question

Suppose I have the following shiny app that renders a data table from the package DT:

library(shiny)
ui <- fluidPage(uiOutput("abc"))
server <- function(input, output, session) {
  output$abc <- renderUI({DT::dataTableOutput("dt_output")})               # line 4
  output$dt_output <- DT::renderDataTable({data.table(a = 1:3, b = 4:6)})  # line 5
}
runApp(list(ui = ui, server = server))

How would you combine lines 4 and 5, with the constraint that output$abc must remain a uiOutput?

My attempt at combining (the code below) led to an error, "cannot coerce type closure":

output$abc <- renderUI({DT::dataTableOutput(
    DT::renderDataTable({data.table(a = 1:3, b = 4:6)}))})

Pork Chop · Accepted Answer · 2020-04-22 11:57:48Z

2

This should work:

library(shiny)

ui <- fluidPage(
    uiOutput("abc")
)

server <- function(input, output, session) {

    output$abc <- renderUI({
        output$aa <- DT::renderDataTable(head(mtcars))
        DT::dataTableOutput("aa")
    })

}
runApp(list(ui = ui, server = server))

answered Apr 22, 2020 at 11:57

Pork Chop

29.5k5 gold badges69 silver badges81 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

johnny Over a year ago

Haha, I was trying to avoid using two arrows, but this works! Thanks again, Pork Chop!

Collectives™ on Stack Overflow

Combining renderUI, dataTableOutput, and renderDataTable

1 Answer 1

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related