Как использовать блестящие выходные функции в блестящем материале разборные

Question

Я пытаюсь создать приложение из блестящего материала и столкнулся с несколькими проблемами с разборным содержимым. Кажется, что обычные функции вывода (uiOutput, plotOutput, textOutput) не работают в сворачиваемом теле. Вот пример;

library(shiny)
library(shinymaterial)

ui <- material_page(
  material_row(
    tags$ul(class = "collapsible",
            tags$li(
              div(class = "collapsible-header",
                  "Collapser 1"
              ),
              div(class = "collapsible-body",
                  uiOutput("uiTest")
              )
            )
    ),
    tags$ul(class = "collapsible",
            tags$li(
              div(class = "collapsible-header",
                  "Collapser 2"
              ),
              div(class = "collapsible-body",
                  material_radio_button(input_id = "rbtn2", label = "Test button", choices = LETTERS[1:3])
              )
            )
    )
  )
)

server <- function(input, output) {
  output$uiTest <- renderUI({
    material_radio_button(input_id = "rbtn", label = "Test button", choices = LETTERS[1:3])
  })

  observeEvent(input$rbtn2,{
    print(paste0("Button 2 work with value: ", input$rbtn2))
  })
} 

shinyApp(ui,server)

Есть ли способ заставить разборный элемент работать с функциями вывода? (желательно в несколько автономной и многократно используемой манере)