From d4e583cd4b06b634fd2a626e2785f5fe77651c1d Mon Sep 17 00:00:00 2001
From: olivroy <olivierroy71@hotmail.com>
Date: Fri, 15 Mar 2024 10:05:31 -0400
Subject: [PATCH] Add a leaflet to avoid ugly failure with view mode.

---
 NAMESPACE                  | 1 +
 R/tmapLeafletComp_charts.R | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/NAMESPACE b/NAMESPACE
index 574df8a3..3852569b 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -92,6 +92,7 @@ S3method(tmapLeafletCompWidth,tm_legend_standard_portrait)
 S3method(tmapLeafletCompWidth,tm_mouse_coordinates)
 S3method(tmapLeafletCompWidth,tm_scalebar)
 S3method(tmapLeafletCompWidth,tm_title)
+S3method(tmapLeafletLegPlot,tm_chart)
 S3method(tmapLeafletLegPlot,tm_chart_histogram)
 S3method(tmapLeafletLegPlot,tm_compass)
 S3method(tmapLeafletLegPlot,tm_credits)
diff --git a/R/tmapLeafletComp_charts.R b/R/tmapLeafletComp_charts.R
index 9d75299b..c42a0c38 100644
--- a/R/tmapLeafletComp_charts.R
+++ b/R/tmapLeafletComp_charts.R
@@ -29,3 +29,8 @@ tmapLeafletCompHeight.tm_chart = function(comp, o) {
 tmapLeafletLegPlot.tm_chart_histogram = function(comp, lf, o) {
 	lf
 }
+#' @method tmapLeafletLegPlot tm_chart
+#' @export
+tmapLeafletLegPlot.tm_chart = function(comp, lf, o) {
+	lf
+}