openxlsx 是否提供 bullet/key 积分功能？

Question

我需要使用 openxlsx R 包以项目符号格式输出一些文本行。似乎没有用于执行此操作的 createStyle() 选项。有人知道使用 openxlsx 执行此操作的方法吗？

Answer 1

在没有可重现数据的情况下，我制作了一个小数据框。您可以使用 excel 公式执行此操作，使用访问 unicode 字符的 excel CHAR() 函数。该示例使用实心点，但您可以使用任何有吸引力的项目符号。

library(openxlsx)

dat <- data.frame(txt = c("This is some text", "Oneword", "1 a number"))


dat$bullet <-  paste("+CHAR(149)", paste0("\"", dat$txt, "\""), sep = "&")

class(dat$bullet) <- c(class(dat$bullet), "formula")


wb <- createWorkbook()
addWorksheet(wb, "Sheet 1")
writeData(wb, "Sheet 1", x = dat)
saveWorkbook(wb, "bullet-eg.xlsx", overwrite = TRUE)

这导致：

^{由 reprex package (v2.0.1)}

创建于 2022-05-06

openxlsx 是否提供 bullet/key 积分功能？

does openxlsx offer bullet/key point functionality?

r

openxlsx