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)
}
Run the code above in your browser using DataLab