如何在 flextable save_as_image 例程中显示特殊字符

Question

Flextable 的save_as_image函数似乎只能理解 ASCII 字符。 有解决方法吗？

最小的工作示例

library(flextable)
library(officer)
ft <- flextable(
  head(mtcars),
  col_keys = c("mpg"))
ft <- set_header_labels(ft, mpg = "n°")
ft

library(webshot)
if( require("webshot") ){
  save_as_image(x = ft, path = "./test.png")
}

预期产出

实际输出

Answer 1

["

library(flextable)
library(officer)
ft <- flextable(
  head(mtcars),
  col_keys = c("mpg"))
ft <- set_header_labels(ft, mpg = "n\u00b0")
ft

library(webshot)
if( require("webshot") ){
  save_as_image(x = ft, path = "./test.png")
}