如何使用handle_click更改填充？

Question

我有一个像这样的条形图

iris %>% ggvis(~Species, ~Petal.Width)

我希望使用handle_click()将单个栏的fill更改为红色。例如，如果我点击杂色，它应该看起来像这样

iris %>% ggvis(~Species, ~Petal.Width) %>% layer_bars(fill=~Species) %>% scale_nominal("fill", range = c("#333333","red", "#333333"))

我知道我需要处理点击事件，但我无法通过查看文档来理解。我从这开始，但我不知道如何设置barRed()：

barRed <- function(data, location, session, ...) {
}

iris %>% ggvis(~Species, ~Petal.Width) %>%
  handle_click(on_click=barRed)