setMethodS3("endsWith", "default", function(this, suffix, ...) {
suffix <- as.character(suffix);
res <- regexpr(paste(suffix,"$",sep=""), as.character(this));
(res[[1]] != -1);
}, conflict="quiet")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.