.fun.blocksnames<-function(data,listname,myblock){
vardispo<-colnames(data)[!colnames(data)%in%unlist(listname[!names(listname)%in%myblock])]
return(list(vardispo=vardispo))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.