Leaflet for 6610 Project

library(leaflet)
library(tidyverse)

## Loading tidyverse: ggplot2
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr

## Conflicts with tidy packages ----------------------------------------------

## filter(): dplyr, stats
## lag():    dplyr, stats

#choosing a different tileset:
#https://leaflet-extras.github.io/leaflet-providers/preview/#filter=Thunderforest.Pioneer

living_spaces <- tribble(
  ~lat, ~long, ~popup_text, ~address,
  37.498304, 127.025224, "My 4th place, in Gangnam, Seoul.", "서울시 서초구 서초동 1316-29 타임빌딩 906호",
  37.577763, 127.008990, "My 3rd place, in Jongno, Seoul.", "서울시 종로구 창신동 626-9 201호",
  37.643098, 126.787260, "My 2nd place, in Baekseok, Goyang.", "경기도 고양시 일산동구 백석동 1331 영림브레아오피스텔 609호",
  37.656739, 127.305644, "My 1st place, in Maseok, Namyangju.", "경기도 남양주시 화도읍 마석우리 366-4 오렌지빌 302호"
)

m <- leaflet() %>%
  addTiles(urlTemplate = "//{s}.tile.thunderforest.com/pioneer/{z}/{x}/{y}.png?apikey=bd6117441d9e485cb384fa024cf6414f") %>%
  addMarkers(lng=living_spaces$long, lat=living_spaces$lat, popup=paste(living_spaces$popup_text, "<br>", living_spaces$address))
m