Added popup for info, Delimiter changed to semicolon, Updated schedul…

…e, info

assets/_child-info.qmd

@@ -1,6 +1,10 @@
-```{r,echo=FALSE}
-htmltools::tagList(leaflet(height = 450, width = "auto", elementId=paste0("leaflet-",p)) %>%
-            addTiles(urlTemplate = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png") %>%
-            addAwesomeMarkers(lat = dfr1$lat, lng = dfr1$lon, label = dfr1$label, popup = dfr1$address, icon = icons) %>%
-            setView(lat = dfr1$lat[1], lng = dfr1$lon[1], zoom = 13))
+```{r}
+#| echo: false
+htmltools::div(
+  style = "margin-bottom:1em;",
+  htmltools::tagList(leaflet(height = 450, width = "auto", elementId = paste0("leaflet-", p)) %>%
+    addTiles(urlTemplate = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png") %>%
+    addAwesomeMarkers(lat = dfr1$lat, lng = dfr1$lon, label = dfr1$label, popup = dfr1$popup, icon = icons) %>%
+    setView(lat = dfr1$lat[1], lng = dfr1$lon[1], zoom = 13))
+)
 ```

home_info.qmd

@@ -30,7 +30,8 @@ for (i in seq_along(loc)) {
 
     if(p %in% dfr$location){
       dfr1 <- dfr[dfr$location %in% p, , drop = FALSE]
-      dfr1$address <- gsub(",", "<br>", dfr1$address)
+      dfr1$address <- gsub(";|; ", "<br>", dfr1$address)
+      dfr1$popup <- gsub(";|; ", "<br>", dfr1$popup)
       icons <- awesomeIcons(icon = dfr1$marker_icon, markerColor = dfr1$marker_colour, iconColor = "#FFFFFF", library = "fa")
       if(p != "online") {
         cat(knitr::knit_child(input = "assets/_child-info.qmd", envir = environment(), quiet = TRUE))