distPointToCircle <- function(circle, p){
## Finds a point on a circle at a minimum distance from some point in space
# Project point p onto circle plane
ppp <- pointPlaneProj(p, circle$C, circle$N)
# Re-scale vector to point as circle radius
new_p <- circle$R*uvector(ppp-circle$C) + circle$C
# Get distance
distPointToPoint(p, new_p)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.