r - huxtable 表的单元格内的换行符

Question

我最近开始使用 huxtable用于表的 R 包，我对它印象深刻。然而，我似乎无法弄清楚的一件事是如何在单元格内获得换行符。这是我尝试过的

library(tidyverse)
library(huxtable)
cars <- mtcars %>% 
  mutate(car = rownames(.),
         car = str_replace(car, " ", "\n")) %>% 
  slice(1:5) %>% 
  select(car, cyl, hp)

cars

# A tibble: 5 x 3
  car                    cyl    hp
  <chr>                <dbl> <dbl>
1 "Mazda\nRX4"          6.00 110  
2 "Mazda\nRX4 Wag"      6.00 110  
3 "Datsun\n710"         4.00  93.0
4 "Hornet\n4 Drive"     6.00 110  
5 "Hornet\nSportabout"  8.00 175 

ht <- as_hux(cars, add_colnames = TRUE)
escape_contents(ht) <- TRUE
ht

但这最终没有换行符，如下面的屏幕截图所示


escape_contents部分似乎没有什么区别。

我不确定我想要的是否可行，但我知道它在其他包中(例如， DT::datatable )。如果可能的话，我真的很想使用 huxtable，因为我喜欢包的设计和灵活性。

任何想法都会很棒。

编辑:我应该指定我希望让它适用于 PDF。

Answer 1

根据 Escaping HTML or LaTeX ,
您应该使用 escape_contents(ht) <- FALSE并使用 <br>标签而不是 \n

library(tidyverse)
library(huxtable)
cars <- mtcars %>% mutate(car = rownames(.),
                          car = str_replace(car, " ", "<br>")) %>% 
                   slice(1:5) %>% select(car, cyl, hp)

 ht <- as_hux(cars, add_colnames = TRUE)
 escape_contents(ht) <- FALSE
 ht

请注意，输出是 Rmarkdown 文档，感谢您提供包信息。这看起来不错的样子。以下是我的输出