我已经使用 RStudio 中的 reactable 包构建了一个表。第一列包含文本，所有其他列包含货币值。我添加了一个页脚，其中包含除第一列之外的每一列的总数。对于表格的主体，我在数字中添加了分隔符（因为它们是大数字）使用

colDef（格式 = colFormat（前缀 = “£”，分隔符 = TRUE，数字 = 2）

但这不适用于页脚，我不知道如何以相同格式获取页脚中的数字。页脚是使用

sprintf("£%.2f", sum(values))

所以有正确的前缀和小数位，但没有分隔符。有谁知道如何做到这一点？谢谢！

我正在使用reactableR 中的包来显示按多个组排序的数据。有没有办法显示所有给定子组的所有计数的总和？

这是一个例子：

所以 ID 列的第一行指的是组中的 7 个子ideal组。我不想显示现有子组的数量，而是希望在第一行显示所有子组计数的总和。所以sum(67, 7, 42, 57, 46, 73, 41)

有没有办法做到这一点？

原始问题

（请参阅下面的部分解决方案更新。）

我有一个 RMarkdown 文档，它按组总结了有多少记录（行）具有各种属性。我希望能够通过在汇总之前进行过滤来操纵表中包含哪些记录。我在下面创建了一个最小但类似的模型。

我想要的是一个交互式复选框，可以有效地“注释或取消注释”行

以下。

我知道我可以用 Shiny 做到这一点，但我需要能够直接与同事共享生成的 HTML 文件（在我的例子中是通过共享的 Box 文件夹），所以 Shiny 解决方案不可行，至少现在是这样。另外，我考虑过使用DT/的功能datatable，但据我所知，过滤需要在它到达那里之前进行（尽管我愿意被证明我错了）。

我见过像htmltools,htmlwidgets和crosstalk这样的包，它们似乎可以促进这一点，但我对它们还不够熟悉，似乎无法在网上找到足够接近的示例来为我的目的进行修改。

实际上，我有多个条件我希望能够过滤，并且我想从过滤后的数据中生成多个表和图，但我希望下面的最小示例可以作为一个可行的起点。

我怎样才能添加这样一个复选框（或类似的）来创建这种类型的交互而不诉诸闪亮？

演示 RMarkdown：

生成的 HTML：

使用部分解决方案更新

我从@user2554330 的建议中得到了一个几乎可行的解决方案：

不幸的是，过滤不会影响聚合（见屏幕截图）。

选择所有记录的屏幕截图：

仅选择了重记录的屏幕截图：

过滤影响组计数，但不影响is_ready频率聚合。我希望过滤也会影响此列，结果如下：

^{由reprex 包于 2021-12-14 创建(v1.0.0)}

我究竟做错了什么？

我正在尝试使用 R 中的“reactablefmtr”包生成一个包含几页的大表。它在 RStudio 查看器中生成表格，但不在新窗口中生成 HTML 输出。Microsoft Edge 是我在 RStudio 中的默认 Web 浏览器。这与我的代码有关，因为我使用“reactablefmtr”和 Microsoft Edge 成功生成了其他几个表。

以下是我的代码：

我reactable 在 Rmarkdown 文档中有一个表格，单元格中有图表。默认情况下，这些单元格的高度为 500 像素。我怎样才能控制这个高度？

代码就是这个答案https://stackoverflow.com/a/66271453/10624798给出了我的意思的一个例子。理想情况下，我希望密度图只有 200px 高。

下面的代码生成下表：

目标是能够在制造商列中选择一个类别（例如/别克），并选择 4 款车型（2 款来自中型车，2 款来自大型车）。现在，全选功能仅适用于按类型分组的模型。

我尝试了什么： ActionButton 和 observeEvent updateReactable("table", selected = ...)问题是我想让用户能够从多个制造商类别中选择所有 模型（例如/用户选择 Acura 下的所有行和别克下的所有行）。我尝试过的操作按钮仅适用于一个类别，如果单击另一个按钮，表格会重新设置。如果有帮助，很高兴包含这个失败的代码。

代码：

请参阅下面一个非常简单的 R 闪亮应用程序，它呈现可反应。

https://kormir.shinyapps.io/reactable_example/

在 tags$head 中，您可以看到我尝试旋转标题，但结果很糟糕：

有没有更简单的方法来正确旋转标题？

谢谢

For this week's TidyTuesday challenge, I have been trying to make a table using reactable package. To this end, I looked at some blog posts on making tables with reactable in R and I made some progress, particularly with regard to customizing background colors and etc. However, although I tried for two-three days, I could not manage to add and customize titles in reactable package. The blogs I have looked at gave some examples. For instance, in one example, the following code chunk is given to make a beautiful table.

Although I was able to reproduce the same table until the beginning of the div code chunk, I did this in a R Markdown document as I read that it does not work in raw R, I was unable to do so in the remainder. I cannot add titles and other cool stuff to my table as it was done in this example. I hope I am clear about my problem, and I profoundly appreciate your help in reproducing this example.

下面的代码来自 Kyle Cuilla 的主题页面https://kcuilla.github.io/reactablefmtr/articles/themes.html

在他页面上显示的输出中，它显示了一个不错的无衬线字体。但是当我运行它时，我得到了某种 Times 字体。我查看了文档，看不到默认字体的设置位置（我很感激我可能没有安装，但我很确定它以前可以工作）。

在下面来自https://glin.github.io/reactable/articles/examples.html#cross-widget-interactions的代码中，我希望能够通过单击地图图标来突出显示行条目，即与单击表格条目相反。

这可能吗（没有Shiny）？