Nothing
`%||%` <- function(l, r) {
if (is.null(l)) r else l
}
null_or_any_na <- function(x) {
is.null(x) || any(is.na(x))
}
#' @importFrom utils head
drop_last <- function(x) {
head(x, length(x) - 1)
}
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.