Input slider has some bugs when used through uiOutput

server.R

library(shiny)

## Example
# shinyServer(function(input, output) {
#  output$value <- renderPrint({ input$sliderId })
# }) 

## uiOutput
shinyServer(function(input, output) {
  output$slider <- renderUI({
    sliderInput("sliderId", label = h3("Slider Range"), min = 0, max = 100, 
                value = c(25, 75))
  })
  output$value <- renderPrint({ input$sliderId })
})

ui.R

library(shiny)

## Example
#  shinyUI(fluidPage(
#    sliderInput("sliderId", label = h3("Slider Range"), min = 0, max = 100, 
#                value = c(25, 75)),
#    fluidRow(column(3, verbatimTextOutput("value")))
#  ))

## uiOutput
shinyUI(fluidPage(
  uiOutput("slider"),
  fluidRow(column(3, verbatimTextOutput("value")))
))