ends_with <- function (x, char, ignore_case = FALSE)
{
if (ignore_case) {
x <- toupper(x)
char <- toupper(char)
}
substr(x, start = nchar(x) - nchar(char) + 1, stop = nchar(x)) ==
char
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.