Nothing
#' Logical tests
#'
#' @export
#' @name logicaltests
#' @param .data input. This can be JSON input, or an object of class
#' \code{jqr} that has JSON and query params combined, which is passed
#' from function to function when using the jqr DSL.
#' @examples
#' # any
#' '[true, false]' %>% anyj
#' '[false, false]' %>% anyj
#' '[]' %>% anyj
#'
#' # all
#' '[true, false]' %>% allj
#' '[true, true]' %>% allj
#' '[]' %>% allj
#'
#' ## many JSON inputs
#' '[true, false] [true, true] [false, false]' %>% anyj
#' '[true, false] [true, true] [false, false]' %>% allj
#' @export
#' @rdname logicaltests
allj <- function(.data) {
pipe_autoexec(toggle = TRUE)
dots <- comb(tryargs(.data), structure('all', type = "all"))
structure(list(data = getdata(.data), args = dots), class = "jqr")
}
#' @export
#' @rdname logicaltests
anyj <- function(.data) {
pipe_autoexec(toggle = TRUE)
dots <- comb(tryargs(.data), structure('any', type = "any"))
structure(list(data = getdata(.data), args = dots), class = "jqr")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.