# NOT RUN {
choropleth <- data.frame(
countries = c(
"France", "Brazil", "China", "Russia", "Canada", "India", "United States",
"Argentina", "Australia"
),
values = round(runif(9, 10, 25))
)
choropleth %>%
e_charts(countries) %>%
e_map(values) %>%
e_visual_map(min = 10, max = 25) %>%
e_map_toggle_select(name = "China", btn = "btn") %>%
e_button("btn", "Select China")
# }
Run the code above in your browser using DataLab