Nothing
`%fl%` <- function(x, y) {
if (!all(file.exists(x))) {
y
} else {
x
}
}
stop0 <- function(...) {
stop(..., call. = FALSE)
}
if_any <- function(condition, x, y) {
if (condition) {
x
} else {
y
}
}
warn0 <- function(...) {
warning(..., call. = FALSE)
}
with_safe_path <- function(path, code) {
if (!is.null(path) && !is.na(path) && path != "") {
withr::with_path(path, code)
} else {
code
}
}
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.