add search etc

viz/app.R

                                 fillColor = startcols.res, 
                   layerId = ~SA22018_V1,
                   label = shpf@data$SA22018__1,
-                  fillOpacity = 1) %>%
+                  fillOpacity = 1, group = "polys") %>%
       setView(174, -41, 6) %>%
-        addResetMapButton() %>%
+      addResetMapButton() %>%
+      addSearchFeatures("polys", 
+                        options = searchFeaturesOptions(
+                          hideMarkerOnCollapse = TRUE,
+                          autoCollapse = FALSE,
+                          openPopup = FALSE,
+                          zoom=11,
+                          position="topleft")) %>%
       addLegend(position = "topleft",
                 colors = c(tencols, "#808080"),
                 labels = transport.t, opacity = 1,
             ttype <- ifelse(is.na(fdf$MAX) || nrow(fdf) == 0, 0, fdf$MAX)
             pmp <- ""
             if (ttype != 0) {
-              pmp <- sprintf("Primary mode of transport: %s", 
+              pmp <- sprintf("Most common mode of transport: %s", 
                              transport.t[ttype])
             }
             HTML(sprintf("%s<p><em>%d people commute to employment from 
             ttype <- ifelse(is.na(fdf$MAX) || nrow(fdf) == 0, 0, fdf$MAX)
             pmp <- ""
             if (ttype != 0) {
-              pmp <- sprintf("Primary mode of transport: %s", 
+              pmp <- sprintf("Most common mode of transport: %s", 
                              transport.t[ttype])
             }
             HTML(sprintf("%s<p><em>%d people commute to employment in 
             ttype <- ifelse(is.na(fdf$MAX) || nrow(fdf) == 0, 0, fdf$MAX)
             pmp <- ""
             if (ttype != 0) {
-              pmp <- sprintf("Primary mode of transport: %s", 
+              pmp <- sprintf("Most common mode of transport: %s", 
                              edu.t[ttype])
             }
             HTML(sprintf("%s<p><em>%d people commute to education from 
             ttype <- ifelse(is.na(fdf$MAX) || nrow(fdf) == 0, 0, fdf$MAX)
             pmp <- ""
             if (ttype != 0) {
-              pmp <- sprintf("Primary mode of transport: %s", 
+              pmp <- sprintf("Most common mode of transport: %s", 
                              edu.t[ttype])
             }
             HTML(sprintf("%s<p><em>%d people commute to education in 
             ttype <- ifelse(is.na(fdf$MAX) || nrow(fdf) == 0, 0, fdf$MAX)
             pmp <- ""
             if (ttype != 0) {
-              pmp <- sprintf("Primary mode of transport: %s", 
+              pmp <- sprintf("Most common mode of transport: %s", 
                              transport.t[ttype])
             }
             HTML(sprintf("%s<p><em>%d people commute to employment 
             ttype <- ifelse(is.na(fdf$MAX) || nrow(fdf) == 0, 0, fdf$MAX)
             pmp <- ""
             if (ttype != 0) {
-              pmp <- sprintf("Primary mode of transport: %s", 
+              pmp <- sprintf("Most common mode of transport: %s", 
                              transport.t[ttype])
             }
             HTML(sprintf("%s<p><em>%d people commute to employment 
             ttype <- ifelse(is.na(fdf$MAX) || nrow(fdf) == 0, 0, fdf$MAX)
             pmp <- ""
             if (ttype != 0) {
-              pmp <- sprintf("Primary mode of transport: %s", 
+              pmp <- sprintf("Most common mode of transport: %s", 
                              edu.t[ttype])
             }
             HTML(sprintf("%s<p><em>%d people commute to education 
             ttype <- ifelse(is.na(fdf$MAX) || nrow(fdf) == 0, 0, fdf$MAX)
             pmp <- ""
             if (ttype != 0) {
-              pmp <- sprintf("Primary mode of transport: %s", 
+              pmp <- sprintf("Most common mode of transport: %s", 
                              edu.t[ttype])
             }
             HTML(sprintf("%s<p><em>%d people commute to education 

viz/extras.R

   margin-bottom: 10px;
   border-top: 1px solid #000;
 }
+.leaflet-control-search {
+  box-shadow: none;
+}
 "
 
 attribhtml <- '