Grand Targhee - WBP Habitat Suitability

leaflet() %>% 
  addProviderTiles("OpenTopoMap") %>% 
  addRasterImage(prob$targhee_prob, opacity = .5, colors = "inferno")