使用 kableExtra 設計 apa_table

Question

根據描述，apa_table從knitr::kable中取了arguments。 但是當我想使用 kableExtra 的功能時（在我的示例中，將第二列中的條目格式化為粗體），我收到一條錯誤消息。

library(tidyverse)
library(papaja)
library(kableExtra)
#> 
#> Attaching package: 'kableExtra'
#> The following object is masked from 'package:dplyr':
#> 
#>     group_rows

holiday_schedule <- tibble(
  day1 = c("surfing", "siesta", "cocktails"),
  day2 = c("beach", "walk", "restaurant")
)

apa_table(holiday_schedule,
          format = "latex") %>%
  column_spec(2, bold = TRUE)
#> Error in if (!kable_format %in% c("html", "latex")) {: argument is of length zero

^{由reprex package (v2.0.0) 創建於 2021-09-23}

這就像設置格式（格式 =“乳膠”）沒有被考慮在內。 我怎么能go一下這個？

Answer 1

來自apa_table()的 output object 沒有設置“格式”屬性，這就是為什么來自kableExtra package 的 column_spec column_spec()無法識別 output 的原因。解決方法是手動設置該屬性。 對於您的簡單示例，這看起來像：

apa_table(holiday_schedule,
          format = "latex") %>%
          `attr<-`("format", "latex") %>%
  column_spec(2, bold = TRUE)

但是，請注意apa_table()可以產生更復雜的 output，這與knitr::kable()產生的不同； 我認為kableExtra遲早會崩潰。