R/add_logo.R

In gpetrini/Cecon: Funções e rotinas para uso interno Cecon/Unicamp

#' @title add_logo
#' @aliases add_logo
#' @author Arthur Welle
#' @description Adiciona logo do cecon aos graficos
#' @import ggplot2
#' @import plotly
#' @import dplyr
#' @param grafico Grafico gerado pelo ggplot. Por padrao, usa o ultimo grafico gerado
#' @return Um grafico interativo em html (plotly)
#' @export

add_logo <- function (grafico = last_plot())
{
    grafico %>% ggplotly() %>% layout(images = list(list(source = "http://i.imgur.com/2e3FQaz.png",
        xref = "paper", yref = "paper", x = 0.02, y = 1, sizex = 0.25,
        sizey = 0.25, opacity = 0.5))) %>% config(displayModeBar = TRUE)
}