Nothing
DrawArc<-function(C, r, angle1, angle2, color="black"){
angle1_=min(c(angle1,angle2))
angle2_=max(c(angle1,angle2))
angle1_rad=2*pi*angle1_/360
angle2_rad=2*pi*angle2_/360
partition=seq(angle1_rad,angle2_rad,(angle2_rad-angle1_rad)/100)
P1=c(C[1]+r*cos(partition[1]),C[2]+r*sin(partition[1]))
for (t in partition[2:length(partition)]){
P2=c(C[1]+r*cos(t),C[2]+r*sin(t))
segments(P1[1],P1[2],P2[1],P2[2],col=color)
P1=P2
}
return()
}
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.