Nothing
ruleList2Exec <-
function(X,allRulesList){
typeX = getTypeX(X)
ruleExec <- unique(t(sapply(allRulesList,singleRuleList2Exec,typeX=typeX)))
ruleExec <- t(ruleExec)
colnames(ruleExec) <- "condition"
return(ruleExec)
}
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.