szechno

# data available from DfT website
library(mapgl)
library(sf)
library(dplyr)
library(osmdata)
library(magrittr)

geodata <- "./data/west sussex_tss_review_20250714a_esuid.gpkg"
st_layers(geodata)
dft <- read_sf(geodata, layer = "DfT Counts")

szechno

library(sf)
library(dplyr)
library(mapgl)
library(units)

d <- read_sf("./data/STRLIGHT/STRLIGHT.shp")

maplibre(style = carto_style("dark-matter-no-labels")) |> 
  fit_bounds(d) |> 
  add_circle_layer(id = "Streetlighting2",

szechno

# https://wikishire.co.uk/lookup/
# https://wikishire.co.uk/wiki/Sussex
# https://en.wikipedia.org/wiki/Rape_(county_subdivision)
# https://britishcountyflags.com/2020/09/14/_the-rapes-of-sussex/

library(sf)
library(dplyr)
library(mapgl)
library(units)

szechno

library(mapgl)
library(sf)
library(stringr)
library(dplyr)
library(readr)
library(lubridate)
library(tidyr)

# read in data and tidy up
locations <- read_csv("./data/afghanistan.csv") |> 

szechno

library(rnaturalearth)
library(rnaturalearthdata)
library(mapgl)
library(mapview)
library(sf)
library(dplyr)

antartic10 <- ne_download(scale = 50, type = 'antarctic_ice_shelves_polys', 
                       category = 'physical')
antartic10l <- ne_download(scale = 50, type = 'antarctic_ice_shelves_lines', 

szechno

library(mapgl)
library(sf)
library(stringr)
library(dplyr)
library(magrittr)
library(osmdata)

map_start <- c(-0.404549247616387, 50.9365654134795)
initial_zoom <- 10

szechno

library(rnaturalearth)
library(rnaturalearthdata)
library(mapgl)
library(sf)
library(dplyr)
library(rmapshaper)

# https://www.naturalearthdata.com/features/

rivers50 <- ne_download(scale = 50, type = 'rivers_lake_centerlines', 

szechno

library(sf)
library(shiny)
library(dplyr)
library(readr)
library(units)
library(mapgl)
library(stringr)

# d |> filter((end >= set_units(2020, "year")) & (end <= set_units(2029, "year"))| is.na(end)) |> View()
# 

szechno

library(sf)
library(readr)
library(dplyr)
library(stringr)
library(units)
library(mapview)

d <- read_csv("powerstation_locations.csv",
              col_types = cols(
                `Site Name` = col_character(),

szechno