tests/testthat/test-ui.R
In ymd526442121/Rproject_shiny: Web Application Framework for R
context("UI")
test_that("selectInput options are properly escaped", {
si <- selectInput("quote", "Quote", list(
"\"Separators\"" = list(
"None" = "",
"Double quote" = "\"",
"Single quote" = "'"
)
))
si_str <- as.character(si)
expect_true(any(grepl("<option value=\""\">", si_str, fixed = TRUE)))
expect_true(any(grepl("<option value=\"'\">", si_str, fixed = TRUE)))
expect_true(any(grepl("<optgroup label=\""Separators"\">", si_str, fixed = TRUE)))
})
ymd526442121/Rproject_shiny documentation built on May 4, 2019, 5:31 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("UI")
test_that("selectInput options are properly escaped", {
si <- selectInput("quote", "Quote", list(
"\"Separators\"" = list(
"None" = "",
"Double quote" = "\"",
"Single quote" = "'"
)
))
si_str <- as.character(si)
expect_true(any(grepl("<option value=\""\">", si_str, fixed = TRUE)))
expect_true(any(grepl("<option value=\"'\">", si_str, fixed = TRUE)))
expect_true(any(grepl("<optgroup label=\""Separators"\">", si_str, fixed = TRUE)))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.