mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-14 01:18:07 -05:00
963471b43f
The unqualified input ID was being used to generate name attributes on radio and checkboxes.
38 lines
1.1 KiB
R
38 lines
1.1 KiB
R
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))
|
|
|
|
})
|