Nothing
printStatus <- function(
##title<< Print a status message
string.in ##<< character string: status message to print
)
##description<< This function prints a given string as a status report to the screen together
## with the current time.
{
cat(paste(Sys.time(),' : ',string.in,'\n',sep=''))
##value<< Nothing is returned but a message is printed to the screen.
}
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.