Создание таблицы с суммами столбцов, которые могут быть переданы в Kable

Question

У меня есть df, который я хотел бы включить в отчет с rmarkdown в формате html:

df <- structure(list(n = 1:4, nn = c(14695L, 4304L, 264L, 36L)), class = c("tbl_df", "tbl", "data.frame"), 
                row.names = c(NA, -4L), .Names = c("n","nn"))



# A tibble: 4 x 2
      n    nn
  <int> <int>
1     1 14695
2     2  4304
3     3   264
4     4    36

Я хотел бы добавить дополнительную строку в нижней части со следующей информацией:

df %>% 
  summarise(total = sum(nn))

# A tibble: 1 x 1
  total
  <int>
1 19299

А затем передать результат в kable.Я хотел бы, чтобы сумма была выделена жирным шрифтом.Как мне этого добиться?Благодарю.

Answer 1

library(kableExtra)
options(knitr.kable.NA = '')
df %>% 
  bind_rows(., tibble(nn = sum(.[["nn"]]))) %>%
  kable() %>%
  row_spec(5, bold = TRUE)