# Create an action button, toggle button and a button group
# with three buttons with default styling in ui.R
bsActionButton("ab1", label = "bsActionButton"),
bsToggleButton("tb1", label = "bsToggleButton"), tags$p(),
bsButtonGroup("btngrp1", label = "bsButtonGroup", toggle = "radio", value = "right",
bsButton("btn1", label = "Left", value = "left"),
bsButton("btn2", label = "Middle", value = "middle"),
bsButton("btn3", label = "Right", value = "right")
)
# Update the previous buttons/button group to be small
# and of primary style in server.R
updateButton(session, "ab1", style = "primary", size = "small")
updateButton(session, "tb1", style = "primary", size = "small")
updateButtonGroup(session, "btngrp1", style = "primary", size = "small")
Run the code above in your browser using DataLab