Extra_Credit_ANT_109

knitr::opts_chunk$set(echo = TRUE)

library(leaflet)
alaska <- c(63.588, -154.4931)##coordinates obtained using google map, right click, copy
leaflet() %>% 
  addTiles() %>% 
  setView(lng = alaska[2], lat = alaska[1], zoom = 3.45)

#add markers
dat <- data.frame(lng = alaska[2], lat = alaska[1])
leaflet() %>%
  addTiles() %>%
  setView(lng = alaska[2], lat = alaska[1], zoom = 3.45) %>%
  addMarkers(data = dat) 

Idk, I’m tired. This is as far as I could get without throwing my computer.