R/myplotly.R

In MarcellGranat/granatlib: Marcell's Personal R Package

myplotly <- function(p, tooltip = c("text"), bgcolor = "#2DA2BF") {

  font = list(
    family = "Alright Sans Regular",
    size = 15,
    color = "black"
  )

  label = list(
    bgcolor = bgcolor,
    bordercolor = "transparent",
    font = font
  )

  if (knitr::is_latex_output() | knitr::pandoc_to("gfm-yaml_metadata_block") | knitr::pandoc_to("docx")) {
    p
  } else {
    plotly::ggplotly(p, tooltip = tooltip) %>%
      plotly::style(hoverlabel = label) %>%
      plotly::layout(font = font) %>%
      plotly::config(displayModeBar = FALSE)
  }

}