format_triad <- function(triad) {
chk_vector(triad)
check_values(triad, "")
check_dim(triad, values = 3)
chk_unique(triad)
paste(triad[1], "=", triad[2], "+", triad[3])
}
add <- function(data, table, conn) {
DBI::dbWriteTable(conn, table, data, append = TRUE)
invisible(data)
}
is_even <- function(x) {
x %% 2 == 0
}
is_odd <- function(x) {
!is_even(x)
}
in_commas <- function(x) {
paste0("IN ('", paste0(x, collapse = "','"), "')")
}
punctuate <- function(x, qualifier = "or") {
chk_string(qualifier)
if (is.logical(x) || is.integer(x) || is.numeric(x)) {
x <- as.character(x)
} else
x <- paste0("'", as.character(x), "'")
if (length(x) == 1)
return(x)
n <- length(x)
paste(paste(x[-n], collapse = ", "), qualifier, x[n])
}
plural <- function(x, n = 1L, end = "") {
chk_string(x)
chk_whole_number(n)
chk_gte(n)
n <- as.integer(n)
chk_string(end)
paste0(x, ifelse(n != 1L, "s", ""), end)
}
as_tibble <- function(data) {
if (requireNamespace("tibble", quietly = TRUE)) {
data <- tibble::as_tibble(data)
}
data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.