Nothing
pc_and <- function(..., sep = "") {
x <- paste(..., sep = sep, collapse = NULL)
lx <- length(x)
if (lx == 0L)
""
else if (lx == 1L)
x
else if (lx == 2L)
paste0(x, collapse = " and ")
else
paste0(paste0(x[-lx], collapse = ", "), ", and ", x[lx])
}
pc_or <- function(..., sep = "") {
x <- paste(..., sep = sep, collapse = NULL)
lx <- length(x)
if (lx == 0L)
""
else if (lx == 1L)
x
else if (lx == 2L)
paste0(x, collapse = " or ")
else
paste0(paste0(x[-lx], collapse = ", "), ", or ", x[lx])
}
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.