examples/shiny_syntax/numericInput.R

In Appsilon/shiny.semantic: Semantic UI Support for Shiny

library(shiny)
library(shiny.semantic)

ui <- shinyUI(
  semanticPage(
    numericInput("text_ex", "Label", min = 1, max = 20, value = 1.5, step = 0.1, width = "300px",
                 icon = icon("cat"), type = "small"),# numericinput specific params
    textOutput("text_ex"),
    actionButton("change", "Change Label")
  )
)

server <- shinyServer(function(input, output, session) {
  output$text_ex <- renderText({
    input$text_ex
  })
  observeEvent(input$change, {
    updateNumericInput(session, "text_ex", label = "New label", value = 10, step = 1)
  })
})

shiny::shinyApp(ui, server)