position_romans <- function (x) {
sapply(gsub("^\\[", "", gsub("\\]$", "", x)), function (xi) {any(is.roman(unlist(strsplit(xi, "-"), use.names = FALSE)))})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.