Nothing
getPDEscreen<-function(pde = '/home/lees/Site/Santiaguito/pdq.eqs')
{
spde = scan(file=pde, what="", sep="\n")
kpde = list()
for(i in 1:length(spde))
{
kpde[[i]] = parse.pde(spde[i])
}
invisible(kpde)
}
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.