Nothing
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"))
}
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.