show_aggrTypes<-function(){
out<-list()
for(i in 1:length(names(valdata$aggr_types))){
out[[i]]<-list()
out[[i]][["name"]]<-names(valdata$aggr_types)[i]
out[[i]][["arguments"]]<-valdata$aggr_types[[i]][["add_args"]]
}
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.