R/add_legend.R

In oseipep/pcdbayeslm: Bayesian analysis of paired comparison data

#' @importFrom graphics par legend
#' @keywords internal
add_legend<-function(...) 
{
  opar<-par(fig=c(0, 1, 0, 1),oma=c(0, 0, 0, 0),
            mar=c(0, 0, 0, 0),new=TRUE)    
  on.exit(par(opar))
  plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')
  legend(...)
}