change shapefile; add keyboard shortcuts

.gitignore

 shapefiles/
 *.RData
 viz/sa20025WGSfilcth/
+viz/sa20025WGSfil/

viz/app.R

 
 # work_travel <- read_csv("../travel-work.csv")
 load(file="datasets.RData")
-shpf <- readOGR(dsn="sa20025WGSfilcth")
+shpf <- readOGR(dsn="sa20025WGSfil")
 sa.in.dest <- shpf@data$SA22018_V1 %in% work_to$work_code
 sa.in.home <- shpf@data$SA22018_V1 %in% work_from$res_code
 transport.t <- c("Private car", "Passenger in car",
 ui <- fluidPage(
   useShinyjs(),
   leafletjs,
+  keyboardjs,
   tags$style(type = "text/css", extracss),
+  
   leafletOutput("map"),
   absolutePanel(top = 10, right = 10, id="mapcontrol",
                 div(
                 radioButtons("radioeduemp", 
                              label = "Commuters (age 15+) travelling to",
-                             choices = c("Employment", "Education"),
+                             choiceNames = list(
+                               HTML("<span>E<u>m</u>ployment</span>"),
+                               HTML("<span>E<u>d</u>ucation</span>")
+                             ),
+                             choiceValues = list(
+                               "Employment", "Education"
+                             ),
                              inline = TRUE),
                 radioButtons("radioinout", label="Show commuters who",
                              choiceNames = list(
-                               HTML("<p>Commute <b>from</b> selected area</p>"),
-                               HTML("<p>Commute <b>to</b> selected area</p>")),
+                               HTML("<span>Commute <u>f</u>rom selected area</span>"),
+                               HTML("<span>Commute <u>t</u>o selected area</span>")),
                              choiceValues = list(
                                "res",
                                "work"
                 radioButtons("radiocolour",
                              label = "Colour by",
                              choiceNames = list(
-                               HTML("<p>Most common commute method</p>"),
-                               HTML("<p>Number of commuters</p>")
+                               HTML("<span>M<u>o</u>st common commute method</span>"),
+                               HTML("<span>N<u>u</u>mber of commuters</span>")
                              ),
                              choiceValues = list(
                                "type",
     ifelse(lastout == lastover, 0, lastover)
   })
   output$map <- renderLeaflet({
-    leaf <- leaflet(shpf, options = leafletOptions(minZoom = 3, maxZoom = 13)) %>% 
+    leaf <- leaflet(shpf, options = leafletOptions(minZoom = 3, maxZoom = 13,
+                                                   crs = NULL)) %>% 
       addPolygons(color="#000", opacity = 1, weight=1,
                                 fillColor = startcols.res, 
                   layerId = ~SA22018_V1,

viz/extras.R

     "coloured according to the people who commute to or from that area ",
     "(including the people who commute within the area). When no area is ",
     "selected, colouring is according to commutes to or from all ",
-    "localities. Hover over areas for a summary."),
+    "localities. Hover over areas for a summary (on a tablet, hold press)."),
   h4("FAQ"),
   shiny::tags$blockquote("Why are so many areas marked as 'works at ",
                          "home'?"),
     "common type can be determined."),
   div(class="scrollbuffer")
 )
+
+keyboardjs <- tags$head(tags$script(HTML("
+$(function(){ 
+  $(document).keyup(function(e) {
+    switch(e.key) {
+      case 'm':
+        document.getElementsByName('radioeduemp')[0].checked = true;
+        Shiny.onInputChange('radioeduemp', 'Employment')
+        break;
+      case 'd':
+        document.getElementsByName('radioeduemp')[1].checked = true;
+        Shiny.onInputChange('radioeduemp', 'Education')
+        break;
+      case 'f':
+        document.getElementsByName('radioinout')[0].checked = true;
+        Shiny.onInputChange('radioinout', 'res')
+        break;
+      case 't':
+        document.getElementsByName('radioinout')[1].checked = true;
+        Shiny.onInputChange('radioinout', 'work')
+        break;
+      case 'o':
+        document.getElementsByName('radiocolour')[0].checked = true;
+        Shiny.onInputChange('radiocolour', 'type')
+        break;
+      case 'u':
+        document.getElementsByName('radiocolour')[1].checked = true;
+        Shiny.onInputChange('radiocolour', 'number')
+        break;
+      default:
+        break;
+    }
+  });
+})
+")))