如何從 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

如果想去掉邊框，就用相關的function：

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)