tests/unattached.R

In tdhock/directlabels: Direct Labels for Multicolor Plots

if(require(ggplot2)){
  if("package:directlabels" %in% search()){
    detach("package:directlabels")
  }
  no.labels <- ggplot(iris, aes(Petal.Length, Petal.Width, color=Species))+
    geom_point()
  with.labels <- no.labels+
    directlabels::geom_dl(aes(label=Species), method="smart.grid")
  print(with.labels)
  detach("package:ggplot2")
  directlabels::direct.label(no.labels, "smart.grid")
}