plotCirc = function(xy, r, ...) {
sq = seq(0, 2 * pi, length.out = 100)
lines(xy[1] + r * cos(sq), xy[2] + r * sin(sq), ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.