Nothing
context("utility inputs")
test_that("actionGroupButtons", {
tagbtn1 <- actionGroupButtons(
inputIds = c("id01", "id02", "id03"),
labels = c("A", "B", "C")
)
expect_length(tagbtn1$children[[1]], 3)
tagbtn2 <- actionGroupButtons(
inputIds = c("id01", "id02", "id03"),
labels = c("A", "B", "C"),
status = "primary",
size = "lg"
)
expect_true(grepl(pattern = "btn-primary", as.character(tagbtn2)))
tagbtn3 <- actionGroupButtons(
inputIds = c("id01", "id02", "id03"),
labels = c("A", "B", "C"),
direction = "vertical"
)
expect_true("btn-group-vertical" %in% unlist(tagbtn3$attribs, use.names = FALSE))
tagbtn4 <- actionGroupButtons(
inputIds = c("id01", "id02", "id03"),
labels = c("A", "B", "C"),
fullwidth = TRUE
)
expect_true("btn-group-justified" %in% unlist(tagbtn4$attribs, use.names = FALSE))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.