Author

George Girton

Published

June 1, 2024

More chargers?

Show the R libraries used

library(leaflet)
library(sf)
library(tidyverse)
library(RColorBrewer)

ChargersLayer <- st_read(paste0(here::here(),"/posts/MoreChargers/mapdata/SF_Two.gpkg"), layer = "May2024Chargers",quiet=TRUE)

Here’s a shot at more chargers

Show the Leaflet make-a-point map code

leaflet() |> 
  addProviderTiles(providers$CartoDB.Positron) |> 
 addCircles(data = ChargersLayer,
             weight = 4,
             color = "red",
             fill = FALSE,
            popup = ~paste("Location name: ", ChargersLayer$KEY))

Warning: sf layer has inconsistent datum (+proj=longlat +ellps=GRS80 +no_defs).
Need '+proj=longlat +datum=WGS84'

So that is more

— all photos Copyright © 2022-2024 George D Girton all rights reserved

---
title: "More Chargers"
author: "George Girton"
date: "2024-06-01"
categories: [ Chargers, R ]
image: "Emergency.png"
execute:
  cache: true
code-fold: show
draft: false
---

# More chargers?


```{r}
#| code-fold: true
#| code-summary: "Show the R libraries used"
#| 
library(leaflet)
library(sf)
library(tidyverse)
library(RColorBrewer)

ChargersLayer <- st_read(paste0(here::here(),"/posts/MoreChargers/mapdata/SF_Two.gpkg"), layer = "May2024Chargers",quiet=TRUE)

```


## Here's a shot at more chargers

```{r}
#| code-summary: "Show the Leaflet make-a-point map code"   
#|      
leaflet() |> 
  addProviderTiles(providers$CartoDB.Positron) |> 
 addCircles(data = ChargersLayer,
             weight = 4,
             color = "red",
             fill = FALSE,
            popup = ~paste("Location name: ", ChargersLayer$KEY))

```

So that is more