Nothing
newgraphwindow <-
function() {
# This function aims to create graphics windows on different OS's where possible
graphoutcome <- try(windows(),silent=TRUE)
if(length(graphoutcome) > 0) graphoutcome <- try(quartz(),silent=TRUE)
if(length(graphoutcome) > 0) graphoutcome <- try(x11(),silent=TRUE)
if(length(graphoutcome) > 0) print("Graphics unavailable on this workstation")
}
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.