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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.