From bd2a2a52e6cd5a9b3c317f0731660fa5be730808 Mon Sep 17 00:00:00 2001
From: George Moroz <agricolamz@gmail.com>
Date: Sat, 7 Oct 2023 07:08:52 +0300
Subject: [PATCH] update

---
 DESCRIPTION     | 2 +-
 NEWS            | 3 +++
 R/map.feature.R | 4 +++-
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index b3c5958..2e4a788 100755
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: lingtypology
 Type: Package
 Title: Linguistic Typology and Mapping
-Version: 1.1.15
+Version: 1.1.16
 Depends: R (>= 3.5.0)
 Imports:
     leaflet,
diff --git a/NEWS b/NEWS
index 6a7d3ff..caa979a 100755
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+lingtypology 1.1.16
+- fix not empty popup display whith minicharts
+
 lingtypology 1.1.14
 - update glottolog to v. 4.8
 
diff --git a/R/map.feature.R b/R/map.feature.R
index b5e69f2..60e35bc 100644
--- a/R/map.feature.R
+++ b/R/map.feature.R
@@ -823,7 +823,9 @@ map.feature <- function(languages,
       tables <- do.call(paste, df_args)
     }
 
-    mapfeat.df$link <- paste0(mapfeat.df$link, tables)
+    if(popup == ""){
+      mapfeat.df$link <- paste0(mapfeat.df$link, tables)
+    }
 
     m <- m |> leaflet::addCircleMarkers(
       lng = mapfeat.df$long,