R/pie_legend.R

In adepro: A 'shiny' Application for the (Audio-)Visualization of Adverse Event Profiles

#' pie_legend - Function to create legend for displayed adverse events
#'
#' @description
#' Creates legend object for base R plots
#'
#' @param aes chosen adverse events to display (character)
#' @param colors Colors for slices (this should be maximally 8) (character)
#'
#' @keywords internal

pie_legend <- function(aes, colors = c("#e43157", "#377eb8", "#4daf4a", "#984ea3",
                                     "#ff7f00", "#ffff33", "#a65628", "#f781bf")) {
  on_ex <- par("oma", "mar", "font")
  on.exit(par(on_ex))
  par(oma = c(0, 0, 0, 0), mar = c(0, 0, 0, 0), font = 1)
  u <- par("usr")
  graphics::rect(u[1], u[3], u[2], u[4], col = "#383838", border = "#383838")
  if (length(aes) > 0) {
    graphics::legend("topleft", legend = aes, col = colors[1:length(aes)],
           lwd = 15, cex = 1, bty = "n",
           bg = "#383838", box.col = "#383838", text.col = "#ffffff")
  }
}