td <- c("shouldnt", "ive gone home & you")
key <- paste0("\\b", corrections$key, "\\b")
for (i in 1:length(key)) {
td <- gsub(key[i], corrections$value[i], td, ignore.case = TRUE)
}
td <- gsub("\\&", 'and', td)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.