str_format <- function(x,replacements = c('a','b'),prefix = '\\{',suffix = '\\}'){
patterns <- paste0(prefix,seq_along(replacements),suffix)
for(i in seq_along(patterns)){
x <- gsub(pattern = patterns[i],replacement = replacements[i],x=x)
}
return(x)
}
paste_pipe <- function(str){
return(paste(str,collapse = '|'))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.