flag_special_articles <- function(metadata) {
metadata %>%
mutate(special_article = dplyr::case_when(
stringr::str_detect(.$article_title, "(E|e)rrat(a|um)") ~ "erratum",
TRUE ~ "none"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.