Nothing
capitalize <- function(x) {
x <- tolower(x)
substr(x, 1, 1) <- toupper(substr(x, 1, 1))
x
}
string_sub_expression <- function(x) {
x <- gsub("^expression\\(", "", x)
x <- gsub("\\)$", "", x)
x
}
produce_lines <- function(x) {
lines <- unlist(strsplit(as.character(x), split = "\n"))
if_any(
length(x),
paste(lines, collapse = "\n "),
tar_deparse_safe(x)
)
}
paste_list <- function(x) {
if_any(
length(x),
paste0(names(x), ": ", x),
list()
)
}
truncate_character <- function(x, n) {
index <- !is.na(x) & (nchar(x) > n)
x[index] <- substr(x[index], start = 0L, stop = n - 3L)
x[index] <- paste0(x[index], "...")
x
}
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.