Nothing
runStdSubset<-function(Data){
#' @export
#This will subset the data for the analysis
if (identical(.RSCABSEnv$GenderVar,'Not Used')==FALSE){
Data<-subsetDataKeep(Data,.RSCABSEnv$GenderVar,.RSCABSEnv$GenderVal);
}
if (identical(.RSCABSEnv$GenerationVar,'Not Used')==FALSE){
Data<-subsetDataKeep(Data,.RSCABSEnv$GenerationVar,.RSCABSEnv$GenerationVal);
}
if (identical(.RSCABSEnv$AgeVar,'Not Used')==FALSE){
Data<-subsetDataKeep(Data,.RSCABSEnv$AgeVar,.RSCABSEnv$AgeVal);
}
return(Data)
}
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.