Nothing
#' @importFrom stats terms
processInput_group_order = function(formula, group_order){
#set group_order if it is null
if(is.null(group_order)){
if(sum(charToRaw(labels(terms(formula))) == charToRaw('$')) == 0){
group_order = sort(unique(eval(get(all.vars(formula)[3]))))
}else if(sum(charToRaw(labels(terms(formula))) == charToRaw('$')) >= 1){
group_order = sort(unique(eval(parse(text = labels(terms(formula))))))
}
}
return(group_order)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.