Nothing
checkNames <- function( testNames, allNames ) {
inAllNames <- testNames %in% allNames
if( !all( inAllNames ) ) {
stop( "object(s) '",
paste( testNames[ !inAllNames ], collapse = "', '" ),
"' not found." )
}
}
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.