fix credit/caption img export ifelse

epicentre-msf · Nov 30, 2023 · 7f16bc7 · 7f16bc7
1 parent a32a019
commit 7f16bc7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/02_place.R b/R/02_place.R
@@ -926,6 +926,7 @@ get_geo_counts <- function(
     df %>% dplyr::mutate(total = .data[[count_lab]])
   }
 
+#' @noRd 
 get_map_circle_df <- function(
   df,
   is_agg,

diff --git a/R/utils.R b/R/utils.R
@@ -186,8 +186,8 @@ my_hc_export <- function(
   subtitle <- set_hc_val(subtitle, hc$x$hc_opts$subtitle$text)
   colors <- set_hc_val(colors, hc$x$hc_opts$colors)
   credits <- set_hc_val(credits, hc$x$hc_opts$credits$text)
-  show_credits <- ifelse(length(credits), FALSE, TRUE)
-  show_caption <- ifelse(length(caption), FALSE, TRUE)
+  show_credits <- ifelse(length(credits), TRUE, FALSE)
+  show_caption <- ifelse(length(caption), TRUE, FALSE)
 
   legend_title <- stringr::str_remove(hc$x$hc_opts$legend$title$text, "\\(click to filter\\)")