viz/app.R

@@ -112,7 +112,7 @@ ui <- fluidPage(
                  status_off = "primary",
                  value = TRUE)
   ),
-  absolutePanel(top = 40, right = 6, id="control2", title="Toggle panel",
+  absolutePanel(top = 40, right = 6, id="control2", title="Toggle pane(L)",
                 prettySwitch("controlswitch", value=TRUE, label = NULL,
                              slim = FALSE,
                                inline=TRUE, status="info",
@@ -348,8 +348,13 @@ server <- function(input, output) {
     updateMap()
   })
   observeEvent(input$controlswitch, ignoreInit = TRUE, {
-    shinyjs::toggleElement("mapcontrol", anim=TRUE,
-                           time = 0.5)
+    if (input$controlswitch) {
+      shinyjs::showElement("mapcontrol", anim=TRUE,
+                             time = 0.5)
+    } else {
+      shinyjs::hideElement("mapcontrol", anim=TRUE,
+                             time = 0.5)
+    }
   })
   observeEvent(input$mapinfobutton, ignoreInit = TRUE, {
     if (input$mapinfobutton) {

viz/extras.R

@@ -169,7 +169,7 @@ infotext <- div(class="overflowable", id="infoint", tabindex="2",
     "https://datafinder.stats.govt.nz/data/category/census/2018/commuter-view/", 
     "commuter data"), 
   "to help visualise transport ",
-    "connections. It is ", a(href="http://petras.space/page/cv/", title="Hire me!",
+    "connections. It is ", a(href="http://petras.space", title="Hire me!",
     "Petra Lamborn's"),
     " entry for the ", em("There and Back Again"),
     a(href=
@@ -196,8 +196,9 @@ again-data-visualisation-competition", "data visualisation competition",
     a(href=paste0(
 "http://archive.stats.govt.nz/methods/classifications-and-standards/",
 "classification-related-stats-standards/geographic-areas/pg4.aspx#gsc.tab=0"),
-   "Statistical Area 2", .noWS = "after"), ". ",
-    "SA2 boundaries typically enclose areas with a population of a few ",
+   "Statistical Area 2", .noWS = "after"), ".",
+    shiny::tags$abbr(title = "Statistical Area 2", "SA2"),
+    "boundaries typically enclose areas with a population of a few ",
     "thousand, corresponding approximately to urban suburbs and rural towns. ",
     "The shapes of these areas have been heavily simplified in this map ",
     "to reduce bandwidth and memory usage. ",