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

Calculate closest point on the alpha hull with size of the boxes, and put it outside that point.

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