Filter<-R6::R6Class("Filter",
#Class that encapuslates filter and all its properties
public = list(
initialize=function(filterstring, label) {
private$filterstring_<-filterstring
private$label_<-label
}
),
active = list(
filterstring = function() {private$filterstring_},
label = function() {private$label_}
),
private = list(
filterstring_=NA_character_,
label_=NA_character_
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.