为什么我会收到“错误：颜色必须是有效颜色”。 在 R 中使用 Flextable？

Question

我正在尝试使用 flextable 创建表格以进入 PowerPoint 进行演示。 但是，一旦我创建了表并一遍又一遍地运行脚本，我就会不断收到一条错误消息，指出“错误：颜色必须是有效颜色”。 这很奇怪，因为我第一次运行脚本时，它运行良好。 但是，当我重新运行脚本时，会弹出错误。 还有其他人有这个问题吗？ 我不知道如何解决问题。

这是我的代码

library(flextable)
library(tidyverse)

MarkI <- tibble(row = 'a',
                column = 'b')

MarkI %>%
  flextable() %>%
  set_flextable_defaults(#big.mark = " ", 
    font.size = 10,
    font.color = 'red'
  )

Answer 1

尝试使用这些块。

a) 没有管道。

library(flextable)
library(tidyverse)

MarkI <- tibble(row = 'a', column = 'b')

ft1 <- flextable(MarkI)
ft1 <- fontsize(ft1, size = 10)
ft1 <- color(ft1, color = "red")
ft1 <- colformat_num(ft1, big.mark=" ")
ft1

b) 带管道。

  MarkI %>%
      flextable() %>%
      fontsize(size = 10) %>%
      color(color = "green") %>%
      colformat_num(big.mark=" ")