Working with fmt_txt()

[JanMarvin]

This SO question asked how to apply inline cell styling. This is possible in openxlsx2 using fmt_txt() and an example is the following:

library(openxlsx2)

string1 <- fmt_txt("when ") +
  fmt_txt("typing", underline = TRUE) +
  fmt_txt(" into ") +
  fmt_txt("Excel", bold = TRUE, underline = TRUE) +
  fmt_txt(" manually ") +
  fmt_txt("it's", color = wb_color("red")) +
  fmt_txt(" possible to ") +
  fmt_txt("format", strike = TRUE, color = wb_color("blue")) +
  fmt_txt(" parts of a ") +
  fmt_txt("single", bold = TRUE) +
  fmt_txt(" cell ") +
  fmt_txt("differently", italic = TRUE)

string2 <- "This possible using openxlsx2."

wb <- wb_workbook()$add_worksheet()$add_data(x = c(string1, string2))

if (interactive()) wb$open()

How it looks: