Nothing
context("Tests modules")
test_that("pickerGroup", {
tag <- pickerGroupUI(
id = "my-filters",
params = list(
manufacturer = list(inputId = "manufacturer", title = "Manufacturer:"),
model = list(inputId = "model", title = "Model:"),
trans = list(inputId = "trans", title = "Trans:"),
class = list(inputId = "class", title = "Class:")
)
)
expect_true(inherits(tag, "shiny.tag.list"))
expect_length(tag, 4)
expect_length(tag[[3]]$children[[1]], 4)
})
test_that("pickerGroup (inline)", {
tag <- pickerGroupUI(
id = "my-filters",
params = list(
manufacturer = list(inputId = "manufacturer", title = "Manufacturer:"),
model = list(inputId = "model", title = "Model:"),
trans = list(inputId = "trans", title = "Trans:"),
class = list(inputId = "class", title = "Class:")
),
inline = FALSE
)
expect_true(inherits(tag, "shiny.tag.list"))
expect_length(tag, 4)
expect_length(tag[[3]], 4)
})
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.