directlabels - utility.function - Positioning Method - enlarge.box

Make text bounding box larger by some amount.

enlarge.box <- function(d,...){
  if(!"h"%in%names(d))stop("need to have already calculated height and width.")
  calc.borders(within(d,{
    w <- w+h
    h <- h+h
  }))
}