# NOT RUN {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
numericInputIcon(
inputId = "ex1",
label = "With an icon",
value = 10,
icon = icon("percent")
),
actionButton("update", "Random value")
)
server <- function(input, output, session) {
observeEvent(input$update, {
updateNumericInputIcon(
session = session,
inputId = "ex1",
value = sample.int(100, 1)
)
})
}
if (interactive())
shinyApp(ui, server)
# }
Run the code above in your browser using DataLab