如何从R中的huxtable中删除脚注？

Question

一旦通过add_footnote设置了脚注，似乎就很难再摆脱了。

library(magrittr)
library(huxtable)

jams <- hux(
  Type  = c("Strawberry", "Raspberry", "Plum"),
  Price = c(1.90, 2.10, 1.80)
) %>% add_footnote("Tasty stuff!")

我尝试过的一个解决方案是：

head(jams, -1)

不幸的是，huxtable底部的行仍然存在。我想要的是一个返回huxtable的解决方案，就好像脚注从未被设置过一样。

编辑:下面的代码还将删除行：

jams <- head(jams, -1)
attributes(jams)$tb_borders$thickness[nrow(attributes(jams)$tb_borders$thickness), ] <- 0

不过，我不知道这有多有力。

编辑:一个问题是，如果您使用它删除一个从未设置过的脚注，那么您将删除一行数据。

Answer 1

如果您想去掉边框，只需使用相关的函数：

jams <- hux(
  Type  = c("Strawberry", "Raspberry", "Plum"),
  Price = c(1.90, 2.10, 1.80)
) %>% add_footnote("Tasty stuff!")

head(jams, -1) %>% set_bottom_border(final(1), everywhere, 0)