context("Update input controls")
test_that("Radio buttons and checkboxes work with modules", {
createModuleSession <- function(moduleId) {
session <- as.environment(list(
ns = NS(moduleId),
sendInputMessage = function(inputId, message) {
session$lastInputMessage = list(id = inputId, message = message)
}
))
session
}
sessA <- createModuleSession("modA")
updateRadioButtons(sessA, "test1", label = "Label", choices = letters[1:5])
resultA <- sessA$lastInputMessage
expect_equal("test1", resultA$id)
expect_equal("Label", resultA$message$label)
expect_equal("a", resultA$message$value)
expect_true(grepl('"modA-test1"', resultA$message$options))
expect_false(grepl('"test1"', resultA$message$options))
sessB <- createModuleSession("modB")
updateCheckboxGroupInput(sessB, "test2", label = "Label", choices = LETTERS[1:5])
resultB <- sessB$lastInputMessage
expect_equal("test2", resultB$id)
expect_equal("Label", resultB$message$label)
expect_null(resultB$message$value)
expect_true(grepl('"modB-test2"', resultB$message$options))
expect_false(grepl('"test2"', resultB$message$options))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.