# fly to CECC
mapboxgl(style = mapbox_style("standard-satellite"), centre=c(-97.6,25.4)) %>%
fly_to(center = c(-78.7303, 44.379), zoom = 16.7, pitch = 75, bearing = 136.8, duration=16000)
Output will be in RStudio Viewer, select Export Save as Web Page for the HTML
# fly to CECC
mapboxgl(style = mapbox_style("standard-satellite"), centre=c(-97.6,25.4)) %>%
fly_to(center = c(-78.7303, 44.379), zoom = 16.7, pitch = 75, bearing = 136.8, duration=16000)
Output will be in RStudio Viewer, select Export Save as Web Page for the HTML