使用 gtsave() 将表保存到 .RTF 文件会产生不同的表输出吗？右

Question

我正在使用该gt包制作表格广告并将其保存为 .RTF。我正在使用函数 gt::gtsave() 但保存的表格看起来与我的查看器中的表格或输出到 HTML 的表格非常不同。

Lin：我正在使用的文档 https://gt.rstudio.com/reference/gtsave.html

这是我正在做的桌子

library(gt)
library(tidyverse)
library(glue)

# Define the start and end dates for the data range
start_date <- "2010-06-07"
end_date <- "2010-06-14"

# Create a gt table based on preprocessed
# `sp500` table data
tab <- sp500 %>%
  filter(date >= start_date & date <= end_date) %>%
  select(-adj_close) %>%
  gt() %>%
  tab_header(
    title = "S&P 500",
    subtitle = glue("{start_date} to {end_date}")
  ) %>%
  fmt_date(
    columns = date,
    date_style = 3
  ) %>%
  fmt_currency(
    columns = c(open, high, low, close),
    currency = "USD"
  ) %>%
  fmt_number(
    columns = volume,
    suffixing = TRUE
  )

这是它出现在我的查看器中或使用时gtsave(tab,"tab.html")

但当我这样做时

gtsave(tab,"tab.rtf")

这是输出： 正如您所看到的，表格的左侧和右侧有单元格边框，并且间距不一样。知道这是为什么吗？是否可以导出 .rtf 并使表格与查看器/html 完全相同？