R/hc_theme.R

In stats4good/s4ggthemes: ggplot2 and highcharter themes for the S4G group

#' Veraz theme for highcharts
#' 
#' @param ... Named argument to modify the theme
#' 
#' @export
veraz_hc <- function(...){
  
  theme <-
    list(
      colors = c('#357935', '#4d8e5c', '#6aae7a', '#5cb85c'),
      chart = list(
        style = list(
          fontFamily = "Ubuntu Mono",
        )
      ),
      title = list(
        align = "left",
        style = list(
          fontWeight = "bold",
          color = '#357935',
          fontFamily = 'Ubuntu Mono'
        )
      ),
      subtitle = list(
        align = "left",
        fontFamily = 'Ubuntu Mono'
      ),
      # xAxis = list(
      #   gridLineWidth = 1,
      #   gridLineColor = "#D7D7D8",
      #   labels = list(
      #     style = list(
      #       fontFamily = "Unica One, sans-serif",
      #       color = "#3C3C3C"
      #     )
      #   ),
      #   lineColor = "#D7D7D8",
      #   minorGridLineColor = "#505053",
      #   tickColor = "#D7D7D8",
      #   tickWidth = 1,
      #   title = list(
      #     style = list(
      #       color = "#A0A0A3"
      #     )
      #   )
      # ),
      # yAxis = list(
      #   gridLineColor = "#D7D7D8",
      #   labels = list(
      #     style = list(
      #       fontFamily = "Unica One, sans-serif",
      #       color = "#3C3C3C"
      #     )
      #   ),
      #   lineColor = "#D7D7D8",
      #   minorGridLineColor = "#505053",
      #   tickColor = "#D7D7D8",
      #   tickWidth = 1,
      #   title = list(
      #     style = list(
      #       color = "#A0A0A3"
      #     )
      #   )
      # ),
      # tooltip = list(
      #   backgroundColor = "rgba(0, 0, 0, 0.85)",
      #   style = list(
      #     color = "#F0F0F0"
      #   )
      # ),
      legend = list(
        itemStyle = list(
          fontFamily = 'Ubuntu Mono',
          fontSize = 15
        ) #,
        # itemHiddenStyle = list(
        #   color = "#606063"
        # )
      ),
      credits = list(
        style = list(
          color = "#666"
        )
      ),
      # labels = list(
      #   style = list(
      #     color = "#D7D7D8"
      #   )
      # ),
      
      legendBackgroundColor = "rgba(0, 0, 0, 0.5)",
      # background2 = "#505053",
      # dataLabelsColor = "#B0B0B3",
      # textColor = "#C0C0C0",
      # contrastTextColor = "#F0F0F3",
      # maskColor = "rgba(255,255,255,0.3)"
    )
  
  theme <- structure(theme, class = "hc_theme")
  
  if (length(list(...)) > 0) {
    theme <- hc_theme_merge(
      theme,
      hc_theme(...)
    )
  } 
  
  theme
  
}