R/cone_logo_pic.R

Defines functions cone_logo_pic add_pic_logo

Documented in add_pic_logo cone_logo_pic

#' @title Draw Cone Health Logo
#' @description Draw Image of Cone
#'
#' @export
#'

cone_logo_pic <- function(){
  logo_fig <- cowplot::ggdraw()+
    cowplot::draw_image(pkg_resource("cone_logo.svg"))

  cowplot::plot_grid(cowplot::ggdraw(),
                     cowplot::ggdraw(),
                     logo_fig, ncol = 3)

}

#' @title Draw Cone Health Logo
#' @description Draw Image of Cone
#' @param fig plot figure to which to add a logo
#' @export
#'
 <- function(fig){
  gridExtra::grid.arrange(fig, cone_logo_pic(), ncol = 1, heights = c(30, 1))
}
medewitt/conethemes documentation built on Sept. 2, 2019, 1:28 a.m.