context("input")
test_that("test uiinput", {
# type
expect_is(uiinput(), "shiny.tag")
# text input
si_str <- as.character(uiinput())
expect_true(any(grepl("<div class=\"ui input\">", si_str, fixed = TRUE)))
})
test_that("test text_input", {
# type
expect_is(text_input("text_input", "Text Input"), "shiny.tag")
# empty input
expect_error(text_input())
# text input
si_str <- as.character(text_input("text_input", "Text Input"))
expect_true(any(grepl("<div class=\"ui input\">\n <label>Text Input</label>\n ",
si_str, fixed = TRUE)))
# text value
si_str <- as.character(text_input("text_input", "Text Input", value ="x"))
expect_true(any(grepl("value=\"x\"",
si_str, fixed = TRUE)))
})
test_that("test textInput", {
# type
expect_is(textInput("text_input", "Text Input"), "shiny.tag")
# empty input
expect_error(textInput())
# text input
si_str <- as.character(textInput("text_input", "Text Input"))
expect_true(any(grepl("<div class=\"ui form\">\n <div class=\"field\">",
si_str, fixed = TRUE)))
})
test_that("test textAreaInput", {
# type
expect_is(textAreaInput("ta_input", "Text Area Input"), "shiny.tag")
# empty input
expect_error(textAreaInput())
# text input
si_str <- as.character(textAreaInput("ta_input", "Text Area Input"))
expect_true(any(grepl("<textarea id=\"ta_input\"",
si_str, fixed = TRUE)))
})
test_that("test numeric_input", {
# type
expect_is(numeric_input("number_input", "label", 20), "shiny.tag")
# empty input
expect_error(numeric_input())
# text input
expect_error(numeric_input("number input", "label","Text input"))
# non-character and non NULL placeholder
expect_error(numeric_input("number input", "label", NULL, placeholder = 4))
# number input
si_str <- as.character(numeric_input("number_input", "label", 20))
expect_true(any(grepl("<input id=\"number_input\" value=\"20\" type=\"number\"/>",
si_str, fixed = TRUE)))
# all parameters
expect_is(numeric_input("number_input", "label", 20, min = 10, max = 40, step = 1,
placeholder = "please type an input"),
"shiny.tag")
})
test_that("test numericInput", {
# type
expect_is(numericInput("numberinput", "NLabel", 20), "shiny.tag")
# empty input
expect_error(numericInput())
expect_error(numericInput("a", "label"), "either 'value' or 'placeholder' should be defined")
})
test_that("test file_input", {
# type
expect_is(file_input("file_input", "label", 20), "shiny.tag")
# empty input
expect_error(file_input())
# file input
si_str <- as.character(file_input("file_input", "File Input Label"))
expect_true(grepl("<input id=\"file_input\".*type=\"file\".*/>", si_str))
# all parameters
expect_is(
file_input(
"file_input", "File Label", multiple = TRUE, accept = c("*.csv", "*.xlsx"), type = "tiny",
button_label = "Button", placeholder = "files needed"
),
"shiny.tag"
)
})
test_that("test fileInput", {
# type
expect_is(fileInput("fileinput", "Label"), "shiny.tag")
# empty input
expect_error(fileInput())
expect_error(fileInput("fileinput"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.