library(sf)
library(here)

frigo_table3 <- read.csv("frigo_table.csv")

frigo_table_sf <- sf::st_as_sf(frigo_table3, coords = c("lon", "lat"))

frigo_table_sf %>% sf::write_sf("frigo_table_sf.geojson")

library(leaflet)
library(htmltools)

l <- leaflet(data = frigo_table_sf) %>%
  addTiles() %>%
  addMarkers(popup =  ~ paste0(
    '<h2>',
    Quoi,
    '</h2><p>',
    Adresse,
    "</p>",
    Particularités %>%
      str_replace_all("\\n", "<br>")
  ))

library(htmlwidgets)
saveWidget(l, file="frigo_carte.html")