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()
我尝试使用 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()