R/acn_logo.R

In farach/afsPackage: What the Package Does (One Line, Title Case)

#' acn_logo
#'
#' @return adds Accenture logo to bottom left of a plot
#' @export
#'
#' @examples
#'

acn_logo <- function() {
  filename <- system.file("accenture_logo_black.svg", package = "afsPackage")
  grid::grid.raster(
    magick::image_read(filename),
    x = 0.05,
    y = 0.03,
    just = c("left", "bottom"),
    width = grid::unit(1, "inches"),
    height = grid::unit(0.28, "inches")
  )
}