Nothing
library(nws)
library(grid)
options(device='X11')
grid.newpage()
ws <- netWorkSpace(Sys.getenv('PF_WORKSPACE'))
nwsStore(ws, 'seq', 'ready')
ignore <- nwsFind(ws, 'go')
source('sportfolio.R')
ignore <- grid.locator()
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.