lastC <- function (x) { y <- sub(" +$", "", x) p1 <- nchar(y) cc <- substr(y, p1, p1) return(cc) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.