circleButton | R Documentation |
Create a rounded action button.
circleButton(inputId, icon = NULL, status = "default", size = "default", ...)
inputId |
The |
icon |
An icon to appear on the button. |
status |
Color of the button. |
size |
Size of the button : default, lg, sm, xs. |
... |
Named attributes to be applied to the button. |
if (interactive()) {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
tags$h3("Rounded actionBution"),
circleButton(inputId = "btn1", icon = icon("gear")),
circleButton(
inputId = "btn2",
icon = icon("sliders"),
status = "primary"
),
verbatimTextOutput("res1"),
verbatimTextOutput("res2")
)
server <- function(input, output, session) {
output$res1 <- renderPrint({
paste("value button 1:", input$btn1)
})
output$res2 <- renderPrint({
paste("value button 2:", input$btn2)
})
}
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.