按钮背景转换器后面的代码

Question

我有一个library(tidyr) library(dplyr) df %>% separate(flights.duration, c('hours', 'mins', 'seconds'), ':') %>% group_by(year, flights.type) %>% summarise(flights.duration = sum(60 * as.numeric(hours) + as.numeric(mins) + as.numeric(seconds) / 60)) ，它被动态划分为单元格并填充按钮（循环中）。每个Source: local data frame [2 x 3] Groups: year [?] year flights.type flights.duration <int> <chr> <dbl> 1 2000 HR20 216 2 2000 L4 118 都有Grid这是一个数字。我想动态更改按钮背景。例如，所有内容为1的按钮为红色，其他为蓝色，然后将变量切换为2，所有内容为2的按钮为红色，其他为蓝色等。我写了这样的转换器

Button

这适用于按钮内容等于1的情况，我想让它可切换，更重要的是，我不知道如何将背景颜色与转换器绑定。任何提示？

编辑： 解决了动态变化的背景，现在只需要使用单选按钮切换转换器