add basic tour tab with text box

Author: RWParsons

0_utils.R

@@ -88,4 +88,4 @@ download_data_files <- list(
 
 dropdown_width <- "100%"
 
-citation <- "iTRAQI: injury Treatment & Rehabilitation Accessibility Queensland Index version 1.2"
+citation <- "iTRAQI: injury Treatment & Rehabilitation Accessibility Queensland Index version 1.2"

4_tour.R

@@ -0,0 +1,9 @@
+tour_text <- list(
+  c("text 1"),
+  c("text 2"),
+  c("text 3"),
+  c("text 5"),
+  c("text 6")
+)
+
+n_tour_windows <- length(tour_text)

server.R

@@ -2,7 +2,42 @@ library(leaflet)
 library(dplyr)
 
 function(input, output, session) {
-  rvs <- reactiveValues(to_load=NULL, map=NULL, to_load_rehab=NULL, map_rehab=NULL, map_complete=FALSE, map_rehab_complete=FALSE)
+  rvs <- reactiveValues(to_load=NULL, map=NULL, to_load_rehab=NULL, map_rehab=NULL, map_complete=FALSE, map_rehab_complete=FALSE, map_tour=NULL, tour_tab=1)
+  
+  output$map_tour <- renderLeaflet({
+    rvs$map_tour <- 
+      leaflet(options=leafletOptions(minZoom=5)) %>%
+      setMaxBounds(lng1 = 115, lat1 = -45.00, lng2 = 170, lat2 = -5) %>%
+      addSearchOSM(options=searchOptions(moveToLocation=FALSE, zoom=NULL)) %>%
+      addMapPane(name = "layers", zIndex = 200) %>%
+      addMapPane(name = "maplabels", zIndex = 400) %>%
+      addMapPane(name = "markers", zIndex = 205) %>%
+      addProviderTiles("CartoDB.VoyagerNoLabels") %>%
+      addProviderTiles("CartoDB.VoyagerOnlyLabels",
+                       options = leafletOptions(pane = "maplabels"),
+                       group = "map labels")
+    rvs$map_tour
+  })
+  
+  output$nextButtonControl <- renderUI({
+    if(rvs$tour_tab != n_tour_windows) actionButton("nextButton", "Next") else NULL
+  })
+  
+  output$backButtonControl <- renderUI({
+    if(rvs$tour_tab != 1) actionButton("backButton", "Back") else NULL
+  })
+  
+  observeEvent(input$nextButton, {
+    rvs$tour_tab <- rvs$tour_tab + 1
+  })
+  
+  observeEvent(input$backButton, {
+    rvs$tour_tab <- rvs$tour_tab - 1
+  })
+  
+  output$tourText <- renderUI({
+    HTML(tour_text[[rvs$tour_tab]])
+  })
 
   output$map <- renderLeaflet({
     rvs$map <- 

ui.R

@@ -18,13 +18,36 @@ source("0_utils.R")
 source("1_functions.R")
 source("2_pallettes.R")
 source("3_load_data.R")
+source("4_tour.R")
+# styles.css from https://github.com/rstudio/shiny-examples/tree/main/063-superzip-example
 
-navbarPage("iTRAQI", id="nav",
-           
+navbarPage(
+  "iTRAQI", id="nav",
+  
+  tabPanel(
+    "tour",
+    div(class="outer",
+      tags$head(
+        includeCSS("styles.css")
+      ),
+      leafletOutput("map_tour", width="100%", height="100%"),
+      absolutePanel(
+        id = "tour_controls", class = "panel panel-default", fixed = TRUE,
+        draggable = TRUE, top=80, left = "auto", right = 10, bottom = "auto",
+        width = 330, height = 350,
+        splitLayout(
+          cellWidths = 270,
+          uiOutput("backButtonControl"),
+          uiOutput("nextButtonControl")
+        ),
+        uiOutput("tourText")
+      )
+    )
+  ),
+  
   tabPanel("Main map",
     div(class="outer",
       tags$head(
-        # styles.css from https://github.com/rstudio/shiny-examples/tree/main/063-superzip-example
         includeCSS("styles.css")
       ),
       leafletOutput("map", width="100%", height="100%"),