Nothing
c_character <- function(...)
{
x <- c(...)
if (is_empty(x))
return(character())
if (!is.character(x))
stop("Character input expected", call. = FALSE)
x
}
#' Flag a character string as a Kusto identifier
#' @param ... character strings to flag as Kusto identifiers
ident <- function(...)
{
x <- c_character(...)
structure(x, class = c("ident", "character"))
}
setOldClass(c("ident", "character"), ident())
#' Pass an already-escaped string to Kusto
#' @param ... character strings to treat as already-escaped identifiers
ident_q <- function(...)
{
x <- c_character(...)
structure(x, class=c("ident_q", "ident", "character"))
}
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.