removelist<-function(x,list){
if(tolower(x) %in% tolower(list)){
out<-tolower(list)[!(tolower(list) %in% tolower(x))]
return(out)}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.