change colours; hide control panel

scratch.R

@@ -90,8 +90,8 @@ work_simp %>%
     total = sum(ifelse(total < 0, 0, total)), .groups="drop"
   ) -> work_to
 
-tencols <-  c("#a6cee3", "#1f78b4", "#b2df8a", "#33a02c", "#fb9a99", 
-              "#e31a1c", "#fdbf6f", "#ff7f00", "#cab2d6", "#6a3d9a")
+tencols <-  c("#6a3d9a", "#1f78b4", "#b2df8a", "#33a02c", "#fb9a99", 
+              "#e31a1c", "#fdbf6f", "#ff7f00", "#cab2d6", "#a6cee3")
 tencols[which.max(work_from[1, 5:14])]
 
 

viz/app.R

@@ -4,6 +4,7 @@ library(leaflet)
 library(rgdal)
 library(dplyr)
 library(leaflet.extras)
+library(shinyWidgets)
 
 source("leafletfunctions.R")
 
@@ -97,6 +98,9 @@ ui <- fluidPage(
                              inline = FALSE),
                 div(id="locinfo",
                     htmlOutput("lochtml"))),
+  absolutePanel(top = 25, right = 10, id="control2",
+                materialSwitch("controlswitch", value=TRUE, right=TRUE,
+                               inline=TRUE, status="info")),
   absolutePanel(bottom = 30, left = 10, id="loading",
                 p("Loading..."))
 )
@@ -235,6 +239,10 @@ random rounding</a>
   observeEvent(input$radiocolour, ignoreInit = TRUE, {
     updateMap()
   })
+  observeEvent(input$controlswitch, ignoreInit = TRUE, {
+    shinyjs::toggleElement("mapcontrol", anim=TRUE,
+                           time = 0.5)
+  })
   output$lochtml <- renderUI({
     seled <- sel.SA2.code()
     seled <- ifelse(is.na(seled), 0, seled)