Nothing
context("colorSelectorInput")
test_that("Default", {
choices <- c("steelblue", "cornflowerblue",
"firebrick", "palegoldenrod",
"forestgreen")
tagcs <- colorSelectorInput(
inputId = "mycolor1", label = "Pick a color :",
choices = choices
)
tagchoices <- gregexpr(pattern = "btn btn-color-sw", text = as.character(tagcs))[[1]]
expect_length(tagchoices, length(choices))
expect_true(grepl(pattern = "label", x = as.character(tagcs)))
})
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.