extractYear <- function(valueOrVector, centuries=c(19,20)) {
regEx <- paste0(".*((",
paste0(seq(min(centuries), max(centuries)), collapse="|"),
")\\d{2}).*");
return(sub(regEx, "\\1", valueOrVector));
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.