Nothing
menuA<-function (choices, stInd, showLine)
{
## written by Dr. Jie Hao, Imperial College London
## menue function, for internal use
nc <- length(choices)
cat(showLine)
cat(as.character(choices))
ind <- 0
while (ind < 1 || ind > 3){
ind <- readline("\nSelection: ")
#ind<- scan(n=1, quiet = TRUE)
#ind <- as.integer(ind)
ind <- ifelse(grepl("\\D",ind),-1,as.integer(ind))
#if(is.na(ind)){break} # breaks when hit enter
}
return(ind)
}
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.