os_type <- function() {
.Platform$OS.type
}
`%||%` <- function(l, r) { if (is.null(l)) r else l }
encode_slash <- function(x) {
gsub("/", "/", x, fixed = TRUE)
}
str_trim <- function(x) {
sub(
"^\\s+",
"",
sub("\\s+$", "", x, perl = TRUE),
perl = TRUE
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.