if (FALSE) {
# Add snow effect with default values
mapboxgl(...) |> set_snow()
# Add snow effect with custom values
mapboxgl(
style = mapbox_style("standard"),
center = c(24.951528, 60.169573),
zoom = 16.8,
pitch = 74,
bearing = 12.8
) |>
set_snow(
density = 0.85,
flake_size = 0.71,
color = "#ffffff"
)
# Remove snow effect (useful in Shiny)
map_proxy |> set_snow(remove = TRUE)
}
Run the code above in your browser using DataLab