Nothing
tests/testthat/test-searchbar.R
In shinySearchbar: Shiny Searchbar - An Input Widget for Highlighting Text and More
#' Given a named list, extract the elements with `name`
#' and concatenate them with a space.
#'
#' Works for named lists with repeating names (such as those from
#' Shiny tagLists)
attribute <- function(name, el) {
attr <- c()
for (i in 1:length(el)) {
key <- names(el[i])
value <- el[[i]]
if (key == name)
attr <- c(attr, value)
}
return(paste(attr, collapse=" "))
}
test_that("Basic HTML structure", {
# Generates the searchbar widget HTML tag
# Contains a <head> (singleton) and <div> (container) element
inputId = "sb"
contextId = "text"
tag <- searchbar(inputId, contextId=contextId, counter=FALSE, cycler=FALSE)
# The singleton includes the JS/CSS dependencies
head <- tag[[1]]
# Extract dependencies from the singleton
deps <- lapply(head$children ,function(el) {
if (el$name == "script")
return(el$attribs$src)
else
return(el$attribs$href)
})
dep <- unlist(deps, use.name=FALSE)
expect_true( "shinySearchbar/jquery.mark.min.js" %in% deps )
expect_true( "shinySearchbar/shinySearchbarBinding.js" %in% deps )
expect_true( "shinySearchbar/shinySearchbar.css" %in% deps )
# The container includes the remaining widget tags
container <- tag[[2]]
# <div class="form-group shiny-input-container">
expect_true( grepl("shiny-input-container", container$attribs) )
label <- container$children[[1]]
# <label class="control-label" for="sb"></label>
expect_equal( "label", label$name )
expect_equal( inputId, label$attribs$`for` )
expect_true( grepl("control-label", label$attribs$class) )
widget <- container$children[[2]]
# <div id="sb" class="shiny-sb" data-context=... data-cycler=... data-counter=... data-mark-options=...>
expect_equal( inputId, widget$attribs$id )
expect_equal( contextId, widget$attribs$`data-context` )
expect_equal( "shiny-sb", widget$attribs$class )
expect_true( "data-counter" %in% names(widget$attribs) )
expect_true( "data-cycler" %in% names(widget$attribs) )
expect_true( "data-mark-options" %in% names(widget$attribs) )
searchbar <- widget$children[[1]][[1]]
# <input class="form-control" type="text" id="sb_keyword"/>
expect_equal( "input", searchbar$name )
expect_equal( "text", searchbar$attribs$type )
expect_equal( "form-control", searchbar$attribs$class )
expect_equal( inputId %_% "keyword", searchbar$attribs$id )
})
Try the shinySearchbar package in your browser
Any scripts or data that you put into this service are public.
shinySearchbar documentation built on July 1, 2020, 11:10 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.
#' Given a named list, extract the elements with `name`
#' and concatenate them with a space.
#'
#' Works for named lists with repeating names (such as those from
#' Shiny tagLists)
attribute <- function(name, el) {
attr <- c()
for (i in 1:length(el)) {
key <- names(el[i])
value <- el[[i]]
if (key == name)
attr <- c(attr, value)
}
return(paste(attr, collapse=" "))
}
test_that("Basic HTML structure", {
# Generates the searchbar widget HTML tag
# Contains a <head> (singleton) and <div> (container) element
inputId = "sb"
contextId = "text"
tag <- searchbar(inputId, contextId=contextId, counter=FALSE, cycler=FALSE)
# The singleton includes the JS/CSS dependencies
head <- tag[[1]]
# Extract dependencies from the singleton
deps <- lapply(head$children ,function(el) {
if (el$name == "script")
return(el$attribs$src)
else
return(el$attribs$href)
})
dep <- unlist(deps, use.name=FALSE)
expect_true( "shinySearchbar/jquery.mark.min.js" %in% deps )
expect_true( "shinySearchbar/shinySearchbarBinding.js" %in% deps )
expect_true( "shinySearchbar/shinySearchbar.css" %in% deps )
# The container includes the remaining widget tags
container <- tag[[2]]
# <div class="form-group shiny-input-container">
expect_true( grepl("shiny-input-container", container$attribs) )
label <- container$children[[1]]
# <label class="control-label" for="sb"></label>
expect_equal( "label", label$name )
expect_equal( inputId, label$attribs$`for` )
expect_true( grepl("control-label", label$attribs$class) )
widget <- container$children[[2]]
# <div id="sb" class="shiny-sb" data-context=... data-cycler=... data-counter=... data-mark-options=...>
expect_equal( inputId, widget$attribs$id )
expect_equal( contextId, widget$attribs$`data-context` )
expect_equal( "shiny-sb", widget$attribs$class )
expect_true( "data-counter" %in% names(widget$attribs) )
expect_true( "data-cycler" %in% names(widget$attribs) )
expect_true( "data-mark-options" %in% names(widget$attribs) )
searchbar <- widget$children[[1]][[1]]
# <input class="form-control" type="text" id="sb_keyword"/>
expect_equal( "input", searchbar$name )
expect_equal( "text", searchbar$attribs$type )
expect_equal( "form-control", searchbar$attribs$class )
expect_equal( inputId %_% "keyword", searchbar$attribs$id )
})
Try the shinySearchbar package in your browser
Any scripts or data that you put into this service are public.
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.