paso a server el cambio de simon

reflejar · Dec 1, 2023 · 0b32dd4 · 0b32dd4
1 parent 5fa8d95
commit 0b32dd4
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/apps/testeos/server.R b/apps/testeos/server.R
@@ -51,6 +51,7 @@ palette <- colorBin('Reds', domain = honeycomb_count$n_colli, bins = 5)
 # palette(4)
 
 hover=lapply(honeycomb_count$Tooltip, htmltools::HTML)
+hover_popup=lapply(honeycomb_count$Popup, htmltools::HTML)
 hover_markers=lapply(amb$Tooltip, htmltools::HTML)
 
 style <- "
@@ -155,8 +156,8 @@ shinyServer(function(input, output, session) {
     leaflet()%>%setView(lat = lat,lng=long,zoom = 7)%>%
       addMapPane("HexPane",zIndex = 400)%>%
       addPolygons(data=honeycomb_count,fillColor = ~palette(n_colli),
-                  label = hover,popup = hover,
-                  popupOptions = popupOptions(maxHeight ="300",minWidth = "250",
+                  label = hover,popup = hover_popup,
+                  popupOptions = popupOptions(maxHeight ="300",minWidth = "300",
                                               closeOnClick = TRUE),
                   fillOpacity = 0.5,color="black",opacity=1,weight=1,group="Hex",
                   options = pathOptions(pane = "HexPane"),