split_right <- function(x,pattern)
{
#to keep right of the splitting pattern
require(stringr, quietly = T)
str_sub(x,str_locate(x,pattern)[,2]+1,-1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.