Nothing
PolarPlot <-
function(theta,r,degrees=FALSE,method=plot,geographical=FALSE,...)
{
if(degrees){theta=theta*pi/180}
if(geographical){
x = r * sin(theta)
y = r * cos(theta)
}else{
x = r * cos(theta)
y = r * sin(theta)
}
method(x,y,asp=1,...)
}
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.