material_slider doesn't update in renderUI

[davidaarmstrong]

Note in the app below that the material_slider doesn't ever update if it's included in the UI through a renderUI - uiOutput combination.

library(shiny)
library(shinydashboard)
library(htmltools)
library(shinymaterial)

ui <- material_page(
  title="Example",
  material_row( 
    material_column(width=3, 
                    material_card(
                      h5("Controls"),
                      br(),
                      uiOutput("bins")
                    )
    ),
    material_column(width=9, 
                  material_card(
                      p("Note that the output never changes from NULL when you move the slider"),
                      br(),
                      verbatimTextOutput("myBins"),
                    )
    )
  )
)
server <- function(input, output, session) { 
  library(shinymaterial)
  output$bins <- renderUI({
    material_slider("nbins", "Number of Bins", min_value = 2, max_value = 25, initial_value = 10)
  })
  
  output$myBins <- renderPrint({
    input$nbins
  })
  
}

shinyApp(ui, server)