subsetting_add<-function(data){
variable<-select.list(colnames(data))
valor<-select.list(levels(unlist(data[variable])))
marks_selected<-subset(data, data[variable]==valor)
marks_subsetted<-NULL
marks_subsetted<-rbind(marks_subsetted, marks_selected)
marks_subsetted<-as.matrix(marks_subsetted)
marks_subsetted<<-as.data.frame(marks_subsetted)
stop(subsetting_DB_menu_bis())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.