Interactive maps

R Markdown

Leaflet usage

library(leaflet)
cruess <- c(38.54324843583427, -121.75362302981961)
leaflet() %>% 
  addTiles() %>% 
  setView(lng = cruess[2], lat = cruess[1], zoom = 5)

catIcon <- makeIcon(
  iconUrl = "~/Library/CloudStorage/Box-Box/Courses/ANT 109/Lectures/Class 14/cat1.png",
  iconWidth = 100, iconHeight = 100,
  iconAnchorX = 0, iconAnchorY = 0
)
dat <- data.frame(lng = cruess[2], lat = cruess[1])
leaflet() %>%
  addTiles() %>%
  setView(lng = cruess[2], lat = cruess[1], zoom = 20) %>%
  addMarkers(data = dat, icon=catIcon)