if (FALSE) { # requireNamespace("leaflet", quietly = TRUE)
data("wq_demo", package = "tikatuwq")
d2 <- wq_demo |>
validate_wq() |>
iqa(na_rm = TRUE)
d2$year <- as.integer(format(d2$data, "%Y"))
# Marcadores padrao + legenda de IQA
plot_map(d2, color_by = "IQA", group_by = "year", popup = "ponto",
legend_title = "IQA (0–100)")
}
Run the code above in your browser using DataLab