Nothing
polar2cart <-
function (x, y, dist, bearing, as.deg = FALSE)
{
if (as.deg) {
bearing = bearing * pi/180
}
newx <- x + dist * sin(bearing)
newy <- y + dist * cos(bearing)
return(list(x = newx, y = newy))
}
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.