up

Author: TuomasBorman

DESCRIPTION

@@ -6,4 +6,5 @@ Imports:
     dplyr,
     kableExtra,
     knitr,
+    leaflet,
     readr

pages/travel-information.qmd

@@ -8,78 +8,102 @@ The venue is **[BioCity Turku](https://biocityturku.fi/)**.
 
 
 ```{r}
+#| label: map
 #| echo: false
 #| message: false
 #| warning: false
 
 library(leaflet)
+library(dplyr)
 
 places <- data.frame(
-  name = c(
-    "BioCity Turku (venue)",
-    "Kupittaa railway station",
-    "Turku Central railway station",
-    "Turku bus station"
-  ),
-  lat = c(
-    60.449245,  # BioCity Turku
-    60.450278,  # Kupittaa station
-    60.456560,  # Turku Central station
-    60.456720   # Turku bus station
-  ),
-  lng = c(
-    22.293052,
-    22.296944,
-    22.260760,
-    22.266810
-  )
-)
+    name = c(
+        "BioCity Turku (venue)",
+        "Kupittaa railway station",
+        "Turku Central railway station",
+        "Turku bus station"
+    ),
+    lat = c(60.449245, 60.450278, 60.456560, 60.456720),
+    lng = c(22.293052, 22.296944, 22.260760, 22.266810)
+) |>
+    mutate(is_venue = grepl("venue", name, ignore.case = TRUE))
 
 leaflet(places) |>
-  addProviderTiles("OpenStreetMap.Mapnik") |>
-
-  # Blue markers
-  addCircleMarkers(
-    ~lng, ~lat,
-    radius = 8,
-    color = "#2b7bff",
-    fillColor = "#2b7bff",
-    fillOpacity = 0.9,
-    stroke = FALSE
-  ) |>
-
-  # Text always visible
-  addLabelOnlyMarkers(
-    ~lng, ~lat,
-    label = ~name,
-    labelOptions = labelOptions(
-      noHide = TRUE,
-      direction = "top",
-      textOnly = TRUE,
-      style = list(
-        "font-size" = "12px",
-        "font-weight" = "bold",
-        "color" = "#2b2b2b",
-        "background-color" = "rgba(255,255,255,0.85)",
-        "padding" = "2px 4px",
-        "border-radius" = "4px"
-      )
+    addProviderTiles("OpenStreetMap.Mapnik") |>
+    # Other places (secondary, but clearly visible)
+    addCircleMarkers(
+        data = filter(places, !is_venue),
+        ~lng, ~lat,
+        radius = 7,
+        color = "#4a5568",
+        fillColor = "#4a5568",
+        fillOpacity = 0.8,
+        stroke = FALSE
+    ) |>
+    addLabelOnlyMarkers(
+        data = filter(places, !is_venue),
+        ~lng, ~lat,
+        label = ~name,
+        labelOptions = labelOptions(
+            noHide = TRUE,
+            direction = "top",
+            textOnly = TRUE,
+            style = list(
+                "font-size" = "12px",
+                "font-weight" = "500",
+                "color" = "#2d3748",
+                "background-color" = "rgba(255,255,255,0.8)",
+                "padding" = "3px 5px",
+                "border-radius" = "4px"
+            )
+        )
+    ) |>
+    # Venue halo
+    addCircleMarkers(
+        data = filter(places, is_venue),
+        ~lng, ~lat,
+        radius = 22,
+        color = "#2b7bff",
+        fillColor = "#2b7bff",
+        fillOpacity = 0.18,
+        stroke = FALSE
+    ) |>
+    # Venue core
+    addCircleMarkers(
+        data = filter(places, is_venue),
+        ~lng, ~lat,
+        radius = 11,
+        color = "#1f5eff",
+        fillColor = "#1f5eff",
+        fillOpacity = 1,
+        stroke = FALSE
+    ) |>
+    # Venue label
+    addLabelOnlyMarkers(
+        data = filter(places, is_venue),
+        ~lng, ~lat,
+        label = ~name,
+        labelOptions = labelOptions(
+            noHide = TRUE,
+            direction = "top",
+            offset = c(0, -16),
+            textOnly = TRUE,
+            style = list(
+                "font-size" = "15px",
+                "font-weight" = "bold",
+                "color" = "#1a365d",
+                "background-color" = "rgba(255,255,255,0.95)",
+                "padding" = "5px 7px",
+                "border-radius" = "6px",
+                "box-shadow" = "0 0 6px rgba(43,123,255,0.5)"
+            )
+        )
+    ) |>
+    fitBounds(
+        lng1 = min(places$lng), lat1 = min(places$lat),
+        lng2 = max(places$lng), lat2 = max(places$lat)
     )
-  ) |>
-
-  # Optional hover popup
-  addPopups(
-    ~lng, ~lat,
-    popup = ~name
-  ) |>
-
-  fitBounds(
-    lng1 = min(places$lng), lat1 = min(places$lat),
-    lng2 = max(places$lng), lat2 = max(places$lat)
-  )
-
 ```
-<!-- <iframe width="425" height="350" src="https://www.openstreetmap.org/export/embed.html?bbox=22.29103982448578%2C60.448813382240864%2C22.29458034038544%2C60.450019815404964&amp;layer=mapnik&amp;marker=60.44941660442382%2C22.292810082435608" style="border: 1px solid black"></iframe><br/><small><a href="https://www.openstreetmap.org/?mlat=60.449417&amp;mlon=22.292810#map=19/60.449417/22.292810">View Larger Map</a></small> -->
 
 ## How to travel to Turku