Nothing
#' Test for sr_facet class
#' @export
#' @param x Input
#' @rdname is-sr
is.sr_facet <- function(x) inherits(x, "sr_facet")
#' Test for sr_high class
#' @export
#' @rdname is-sr
is.sr_high <- function(x) inherits(x, "sr_high")
#' Test for sr_search class
#' @export
#' @rdname is-sr
is.sr_search <- function(x) inherits(x, "sr_search")
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.