我想修改单元格一部分的格式,同时保留未修改的剩余文本以包含在.docx报告中:
例如,Brill( Scophthalmus rhombus )在细分22-32(波罗的海)
我的数据是使用HTML标记设置的,我一直尝试使用display()
功能进行修改。我的例子(显然)修改了整个单元格。我希望可以使用pattern
修改{{moustaches}}
参数,以使嵌套格式成为可能,但我没有运气。
library(flextable)
library(officer)
library(dplyr)
data <- structure(list(Description = c("Brill (<em>Scophthalmus rhombus</em>) in subdivisions 22-32 (Baltic Sea)",
"Cod (<em>Gadus morhua</em>) in subdivisions 22-24, western Baltic stock (western Baltic Sea)",
"Cod (<em>Gadus morhua</em>) in subdivisions 25-32, eastern Baltic stock (eastern Baltic Sea)",
"Dab (<em>Limanda limanda</em>) in subdivisions 22-32 (Baltic Sea)",
"Flounder (<em>Platichthys flesus</em>) in subdivisions 22 and 23 (Belt Seas and the Sound)",
"Flounder (<em>Platichthys flesus</em>) in subdivisions 24 and 25 (west of Bornholm and southwestern central Baltic)"),
SpeciesScientificName = c("Scophthalmus rhombus", "Gadus morhua", "Gadus morhua", "Limanda limanda", "Platichthys flesus", "Platichthys flesus")),
.Names = c("Description", "SpeciesScientificName"),
row.names = c(NA, 6L), class = "data.frame")
data %>%
mutate(Description = gsub("<em>.*?</em>", "%s", Description)) %>%
flextable() %>%
display(col_key = "Description", pattern = "{{sp_italics}}",
formatters = list(sp_italics ~ sprintf(Description, SpeciesScientificName)),
fprops = list(sp_italics = fp_text(italic = TRUE)))
答案 0 :(得分:2)
显示功能定义显示值。它不允许仅格式化单元格中的一部分文本,它定义段落内容及其格式。我将从整洁的 data.frame开始。
data <- structure(list(id = c("Brill", "Cod", "Cod", "Dab", "Flounder",
"Flounder"), SpeciesScientificName = c("Scophthalmus rhombus",
"Gadus morhua", "Gadus morhua", "Limanda limanda", "Platichthys flesus",
"Platichthys flesus"), subdivision = c("22-32", "22-24, western Baltic stock",
"25-32, eastern Baltic stock", "22-32", "22 and 23", "24 and 25"
), location = c("Baltic Sea", "western Baltic Sea", "eastern Baltic Sea",
"Baltic Sea", "Belt Seas and the Sound", "west of Bornholm and southwestern central Baltic"
)), class = "data.frame", .Names = c("id", "SpeciesScientificName", "subdivision", "location"),
row.names = c(NA, -6L))
> data
id SpeciesScientificName subdivision
1 Brill Scophthalmus rhombus 22-32
2 Cod Gadus morhua 22-24, western Baltic stock
3 Cod Gadus morhua 25-32, eastern Baltic stock
4 Dab Limanda limanda 22-32
5 Flounder Platichthys flesus 22 and 23
6 Flounder Platichthys flesus 24 and 25
location
1 Baltic Sea
2 western Baltic Sea
3 eastern Baltic Sea
4 Baltic Sea
5 Belt Seas and the Sound
6 west of Bornholm and southwestern central Baltic
您的示例是在一个段落中连接4个信息,参数formatters
将需要4个参数...
ft <- data %>%
flextable(col_keys = c("dummy_col", "SpeciesScientificName")) %>%
display(col_key = "dummy_col", pattern = "{{id_}} ({{sciname_}}) in {{subdivision_}} ({{location_}})",
formatters = list(id_ ~ id, sciname_ ~ SpeciesScientificName, subdivision_ ~ subdivision, location_ ~ location ),
fprops = list(sciname_ = fp_text(italic = TRUE), location_ = fp_text(color="red") )) %>%
set_header_labels(dummy_col="whatever") %>%
theme_booktabs() %>% autofit()
read_docx() %>% body_add_flextable(ft) %>% print("test.docx")
答案 1 :(得分:0)
可能有更简单的解决方案。使用 ftExtra
和 colformat_md()
可以让你做 Markdown 格式(虽然它似乎不允许纯 HTML)
https://ardata-fr.github.io/flextable-book/extensions.html#ftextra
library(ftExtra)
data.frame(x = c("**bold**", "*italic*"),
y = c("^superscript^", "~subscript~"),
z = c("***^ft^~Extra~** is*", "*Cool*")) %>%
flextable() %>%
colformat_md()