gt table - 单元格中的换行符

gt table - newline in cell

我尝试使用 R gt 包在 gt 单元格中强制换行。在 gt 文档中,描述了使用 cols_label()

可以对列标签执行此操作
 # example
 gt_tbl %>%
  cols_label(
    col = html("text1,<br>text2")
   )

但是在单元格中我找不到办法做到这一点。我尝试添加 \n 或
但没有成功。

library(gt)

# dummy data
dat <- tibble(
  a=1:3,
  b=c("a","b c","d e f")
)

# A tibble: 3 x 2
      a b    
  <int> <chr>
1     1 a    
2     2 b c  
3     3 d e f

# with \n
dat %>% 
  mutate(b=str_replace_all(b," ","\n")) %>% 
  gt()

# with <br>
dat %>% 
  mutate(b=str_replace_all(b," ","<br>")) %>% 
  gt()

始终与生成的 table 相同:

预期结果:

有什么想法吗?

谢谢

我们需要调用fmt_markdown,见下文:

Any Markdown-formatted text in the incoming cells will be transformed to the appropriate output type during render when using fmt_markdown().

dat %>% 
  mutate(b = str_replace_all(b, " ", "<br>")) %>% 
  gt() %>% 
  fmt_markdown(columns = TRUE)


或解决方法:拆分成新行然后调用 gt():

dat %>% 
  separate_rows(b) %>% 
  mutate(a = ifelse(duplicated(a), "", a)) %>% 
  gt()