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