在 reactablefmtr 中分配的图标数量不正确 icon_assign

Incorrect No of Icons Assigned in reactablefmtr icon_assign

附加代码应该根据 responseCount 显示蓝色圆圈的数量(0 到 4 之间),但它没有。我不明白为什么。

即使选择的最大值较低,我也总是希望总共有 4 个(蓝色 + 灰色)。

library(reactable)
library(reactablefmtr)
areas <- data.frame(name = c("One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten"))
areas$responseCount <- round(runif(nrow(areas), min = 0, max = 1) * 4)

reactable(
  areas,
  columns = list(
    responseCount = colDef(name = "Responses",
                           cell = icon_assign(areas, buckets = 4, 
                                              show_values = "left")
    )
  )
)

我认为 reactablefmtr 需要整数值而不是小数。

尝试

areas$responseCount <- sample(0L:4L, nrow(areas))

在使用 runif() 时也设置种子以获得一致的输出。

我向 reactablefmtr 包所有者 Kyle Cuilla 报告了以下问题:如果所有值为零且未包含存储桶,它会在 seq 'by' 参数错误中产生错误的符号。

Kyle 迅速将更新推送给开发人员以修复它:)

所以现在下面的作品...

library(reactable)
remotes::install_github("kcuilla/reactablefmtr", force = TRUE)
library(reactablefmtr)
areas <- data.frame(name = c("One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten"))
areas$responseCount <- round(runif(nrow(areas), min = 0, max = 1) * 4)

reactable(
  areas,
  columns = list(
    responseCount = colDef(name = "Responses",
                           cell = icon_assign(areas,
                                              show_values = "left")
    )
  )
)