diff --git a/R/02_place.R b/R/02_place.R
index 6dfa4fb..f867fe0 100644
--- 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
index 508a66b..40ca488 100644
--- 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\\)")