# NOT RUN {
#Only run these examples if the `magick` package is installed.
if (length(find.package("magick", quiet = TRUE)) > 0) {
# }
# NOT RUN {
#Create a flat body of water for Monterey Bay
montbay = montereybay
montbay[montbay < 0] = 0
#Generate base map with no lines
basemap = montbay %>%
height_shade() %>%
add_water(detect_water(montbay), color="dodgerblue") %>%
add_shadow(texture_shade(montbay, detail=1/3, brightness = 15, contrast = 5),0) %>%
add_shadow(lamb_shade(montbay,zscale=50),0)
plot_map(basemap)
#Add waterlines
basemap %>%
add_overlay(generate_waterline_overlay(montbay)) %>%
plot_map()
#Change minimum line distance:
basemap %>%
add_overlay(generate_waterline_overlay(montbay, min = 0.02)) %>%
plot_map()
#Change maximum line distance
basemap %>%
add_overlay(generate_waterline_overlay(montbay, max = 0.4)) %>%
plot_map()
#Smooth waterlines
basemap %>%
add_overlay(generate_waterline_overlay(montbay, max = 0.4, smooth=2)) %>%
plot_map()
#Increase number of breaks
basemap %>%
add_overlay(generate_waterline_overlay(montbay, breaks = 20, max=0.4)) %>%
plot_map()
#Make lines evenly spaced:
basemap %>%
add_overlay(generate_waterline_overlay(montbay, evenly_spaced = TRUE)) %>%
plot_map()
#Change variable distance between each line
basemap %>%
add_overlay(generate_waterline_overlay(montbay, falloff=1.5)) %>%
plot_map()
#Turn off fading
basemap %>%
add_overlay(generate_waterline_overlay(montbay, fade=FALSE)) %>%
plot_map()
#Fill up the entire body of water with lines and make them all 50% transparent
basemap %>%
add_overlay(generate_waterline_overlay(montbay, fade=FALSE, max=1, alpha = 0.5, color="white",
evenly_spaced = TRUE, breaks=50)) %>%
plot_map()
# }
# NOT RUN {
}
# }
Run the code above in your browser using DataLab