read_file <- function(path) {
rawToChar(readBin(path, raw(), file.size(path)))
}
read_csv <- function(...) {
read.csv(..., stringsAsFactors = FALSE)
}
`%||%` <- function(a, b) {
if (is.null(a)) b else a
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.