old_2014_version_of_archivist/R/addQR2ggplot.R

In pbiecek/archivist2: Tools for Storing, Restoring and Searching for R Objects

addQR2ggplot <- function(textm, width = 0.16, height = 0.16, x=0.92, y=0.08, ..., border=0) {
  qrcode <- getQRcode(textm, border=border)
  qrplot <- ggplot(melt(qrcode), aes(x=Var1, y=Var2, fill=!value)) + geom_tile() + scale_fill_grey(start = 0, end = 1) + 
    theme(line = element_blank(),
          text = element_blank(),
          line = element_blank(),
          title = element_blank(),
          panel.background = element_blank(), 
          panel.border = element_blank(), 
          plot.margin=unit(c(-2,-2,-2,-2),"lines"),
          axis.ticks.length = unit(0.001, "mm"),
          legend.position = "none") + labs(x=NULL, y=NULL)
  vp <- viewport(width = width, height = height, x=x, y=y, ...)
  print(qrplot, newpage=FALSE, vp=vp)
}