Nothing
checkSelction <-
function(){
#This function builds a message telling the user they
#still need to specify variable names and values
#If the message is modified by this function it will
#display the message to the user and not let them move on
#' @export
msg<-'You still need to select:\n'
if (.RSCABSEnv$TreatmentVar=='' ||.RSCABSEnv$TreatmentVar=='Not Used' )
{msg<-paste(msg,'A Treatment Variable\n')
}
return(msg)
}
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.