add condition to add background map

sebastien-plutniak · Feb 21, 2024 · d27fcc8 · d27fcc8
1 parent cd893ec
commit d27fcc8
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -666,14 +666,16 @@ app_server <- function(input, output, session) {
     )
 
     # : add background map ----
-    fig <- add_paths(fig, x= ~x, y= ~y,
-                     z = coords$zmax,
-                     split = ~group,
-                     data = getShinyOption("background.map"),
-                     color = I("black"),
-                     hoverinfo = "skip",
-                     showlegend = FALSE, inherit = F)
 
+    if( ! is.null(getShinyOption("background.map")) ){
+      fig <- add_paths(fig, x= ~x, y= ~y,
+                       z = coords$zmax,
+                       split = ~group,
+                       data = getShinyOption("background.map"),
+                       color = I("black"),
+                       hoverinfo = "skip",
+                       showlegend = FALSE, inherit = F)
+    }
 
     # : add refits lines  ----
     plot3d.refits <- sum(c(input$plot3d.refits,