Nothing
# gsCP test functions
"test.gsCP.x" <- function()
{
checkException(gsCP(x="abc"), msg="Checking for incorrect variable type", silent=TRUE)
}
"test.gsCP.r" <- function()
{
checkException(gsCP(r="abc"), msg="Checking for incorrect variable type", silent=TRUE)
checkException(gsCP(r=0), msg="Checking for out-of-range variable value", silent=TRUE)
checkException(gsCP(r=81), msg="Checking for out-of-range variable value", silent=TRUE)
checkException(gsCP(r=rep(1,2)), msg="Checking for incorrect variable length", silent=TRUE)
}
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.