feat: new highchart jerusalem theme

.Rbuildignore

@@ -7,3 +7,4 @@
 ^data-raw$
 ^docs$
 ^pkgdown$
+^Makefile$

DESCRIPTION

@@ -42,4 +42,4 @@ Config/Needs/website: nenuial/geopkg
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

NAMESPACE

@@ -23,6 +23,7 @@ export(ggeopal_pal_to_gradient)
 export(ggeopal_to_gradient)
 export(ggeosave)
 export(ggeotheme)
+export(hc_jerusalem_theme)
 export(hc_purple_theme)
 export(hc_samarqand_theme)
 export(hc_web_theme)

R/ggplot_themes.R

@@ -71,7 +71,6 @@ ggeotheme <- function(
  color = ggeodata$themes[[theme]][[mode]]$line
  ),
  panel.grid = ggplot2::element_blank(),
-
  plot.background = ggplot2::element_rect(fill = "transparent", color = NA),
  plot.caption = ggplot2::element_text(
  family = ggeodata$themes[[plot]]$caption$family,

R/highcharter_themes.R

@@ -190,6 +190,89 @@ hc_samarqand_theme <- function(hc) {
  highcharter::hc_add_theme(theme)
 }
 
+#' @rdname hc_purple_theme
+#' @export
+hc_jerusalem_theme <- function(hc) {
+ base_colors <- list(
+ main_color = "#FAE3A0",
+ axis_color = "#c0d9eb",
+ title_color = "#699CB6"
+ )
+
+ base_text_style <- list(
+ fontFamily = "Fira Sans",
+ fontWeight = "100",
+ fontSize = "24px",
+ color = base_colors$main_color
+ )
+
+ axis_title_style <- list(
+ fontFamily = "Fira Sans",
+ fontWeight = "300",
+ fontSize = "24px",
+ color = base_colors$axis_color
+ )
+
+ theme <- highcharter::hc_theme(
+ colors = wesanderson::wes_palette("GrandBudapest2"),
+ chart = list(
+ backgroundColor = "transparent"
+ ),
+ title = list(
+ style = list(
+ color = base_colors$title_color,
+ fontFamily = "Fira Sans",
+ fontSize = "52px",
+ fontWeight = "400"
+ )
+ ),
+ subtitle = list(
+ style = list(
+ color = base_colors$title_color,
+ fontFamily = "Fira Sans",
+ fontSize = "38px",
+ fontWeight = "300"
+ )
+ ),
+ legend = list(
+ itemStyle = base_text_style,
+ itemHoverStyle = list(
+ color = base_colors$main_color
+ )
+ ),
+ tooltip = list(
+ headerFormat = "<span style='font-size: 24px'>{point.key}</span><br/>",
+ style = list(
+ fontFamily = "Fira Sans",
+ fontWeight = "200",
+ fontSize = "28px"
+ )
+ ),
+ caption = list(
+ style = base_text_style
+ ),
+ xAxis = list(
+ labels = list(
+ style = base_text_style
+ ),
+ title = list(
+ style = axis_title_style
+ )
+ ),
+ yAxis = list(
+ labels = list(
+ style = base_text_style
+ ),
+ title = list(
+ style = axis_title_style
+ )
+ )
+ )
+
+ hc |>
+ highcharter::hc_add_theme(theme)
+}
+
 #' @rdname hc_purple_theme
 #' @export
 hc_web_theme <- function(hc) {