# NOT RUN {
#Add the included `sf` object with roads to the montereybay dataset
# }
# NOT RUN {
if(all(length(find.package("sf", quiet = TRUE)) > 0,
length(find.package("magick", quiet = TRUE)) > 0)) {
monterey_city = sf::st_sfc(sf::st_point(c(-121.893611, 36.603056)))
montereybay %>%
height_shade() %>%
add_overlay(generate_point_overlay(monterey_city, color="red", size=12,
attr(montereybay,"extent"), heightmap = montereybay)) %>%
add_shadow(ray_shade(montereybay,zscale=50),0.3) %>%
plot_map()
}
# }
Run the code above in your browser using DataLab