Better popups

MedicalCentres/app.R

@@ -3,6 +3,7 @@ library(shiny)
 library(leaflet)
 library(dplyr)
 library(shinyWidgets)
+library(htmltools)
 
 leafcols <- c("blue", "red", "darkred", "lightred",
           "orange", "beige", "green", "darkgreen",
@@ -16,7 +17,8 @@ Geo2017$Snargle <- c(TRUE, rep(FALSE, 5))
 DHBs <- sort(unique(Geo2017$dhb_name))
 DHBs <- c(DHBs[DHBs != "Missing"], "Missing")
 
-dhbcols <- leafcols[1:length(DHBs)]
+# dhbcols <- leafcols[1:length(DHBs)]
+dhbcols <- rainbow(length(DHBs))
 names(dhbcols) <- DHBs
 dhbcol <- function(DHB) {
     sdf <- dhbcols[DHB]
@@ -89,21 +91,39 @@ server <- function(input, output) {
         if (input$selcol == "Snargleflagen") {
             gl <- addCircleMarkers(gl, lng = Geo2017$lon,
                        lat = Geo2017$lat,
-                       popup = Geo2017$name,
+                       popup = sprintf("<strong>%s</strong><br/>%s<br/>DHB: %s<br/>%s",
+                                       htmlEscape(Geo2017$name),
+                                       htmlEscape(Geo2017$address),
+                                       htmlEscape(Geo2017$dhb_name),
+                                       ifelse(Geo2017$Snargle,
+                                              "Snargleflagen",
+                                              "Non-snargleflagen")),
                        # color = snargcols[as.character(Geo2017$dhb_name)]
                        col = snargcol(Geo2017$Snargle)
                        )
         } else if (input$selcol == "DHB") {
             gl <- addCircleMarkers(gl, lng = Geo2017$lon,
                        lat = Geo2017$lat,
-                       popup = Geo2017$name,
+                       popup = sprintf("<strong>%s</strong><br/>%s<br/>DHB: %s<br/>%s",
+                                       htmlEscape(Geo2017$name),
+                                       htmlEscape(Geo2017$address),
+                                       htmlEscape(Geo2017$dhb_name),
+                                       ifelse(Geo2017$Snargle,
+                                              "Snargleflagen",
+                                              "Non-snargleflagen")),
                        # color = dhbcols[Geo2017$dhb_name]
                        col = dhbcol(Geo2017$dhb_name)
                        )
         } else {
             gl <- addCircleMarkers(gl, lng = Geo2017$lon,
                        lat = Geo2017$lat,
-                       popup = Geo2017$name,
+                       popup = sprintf("<strong>%s</strong><br/>%s<br/>DHB: %s<br/>%s",
+                                       htmlEscape(Geo2017$name),
+                                       htmlEscape(Geo2017$address),
+                                       htmlEscape(Geo2017$dhb_name),
+                                       ifelse(Geo2017$Snargle,
+                                              "Snargleflagen",
+                                              "Non-snargleflagen")),
                        col= "blue")
         }
         gl