library(apexcharter)
# Not in Shiny but you can still click on bars
data.frame(
month = month.abb,
value = sample(1:100, 12)
) %>%
apex(aes(month, value)) %>%
set_input_click("month_click", multiple = TRUE)
# Interactive examples:
if (interactive()) {
run_demo_input("click")
}
Run the code above in your browser using DataLab