Nothing
legitWPX<-function(twpx, quiet=TRUE)
{
### test to see if there are real picks in the WPX list
### message("test legit")
### message(data.frame(twpx))
if(is.null(twpx))
{
return(0)
}
tval = all(is.na(twpx$name))
if(tval)
{
if(!quiet) warning("ERROR WPX (no picks)", sep="\n")
return(0)
}
else
{
return(1)
}
}
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.