directlabels - utility.function - Positioning Method - outside.chull

Calculate closest point on the convex hull and put it outside that point. Assume d is the center for each point cloud and then use orig.data to calculate hull.

outside.chull <- function(d,...){
  edges.to.outside(chull.points(d),visualcenter(d),...)
}