examples/counter_button/app.R

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

library(shiny)
library(shiny.semantic)

ui <-semanticPage(
    counter_button("counter", "How many dogs?",
                   icon = icon("dog"),
                   size = "big", color = "green"),
     h1("Dog count:"),
     h2(shiny::textOutput("dogs"))
 )

server <- function(input, output) {
  output$dogs <- renderText({
    input$counter
  })
}

shinyApp(ui, server)