# These functions are for internal use only
str_c <- function(..., sep = "", collapse = NULL) {
paste(..., sep = sep, collapse = collapse)
}
str_detect <- function(string, pattern) {
grepl(pattern, string)
}
str_replace <- function(string, pattern, replacement) {
sub(pattern, replacement, string)
}
str_replace_all <- function(string, pattern, replacement) {
gsub(pattern, replacement, string)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.