R Formattable -> 导出的 .png 和导出的 html 小部件不匹配

如何解决R Formattable -> 导出的 .png 和导出的 html 小部件不匹配

我正在使用此代码导出格式化表格的 .png 和 HTML 版本。

.png 出来的很好 (What the table should look like)，但 HTML 导出看起来像这样，即使它在查看器窗格中很好：https://rpubs.com/Drewnonymous/739404

第二个不太重要的问题是我也真的很想摆脱 NA，但我所做的每一种方式都搞砸了制作表格或删除了数字格式。

在 20 多年没有编码（从大学开始）之后，我对这一切仍然很陌生，所以请保持温和。我仍然处于“从别人那里借用代码并试图弄清楚它是如何以及为什么工作的阶段”。

非常感谢任何和所有帮助。

percent_change_formatter1 <- 
  formatter("span",style = x ~ formattable::style(
              font.weight = ifelse(x>0 | x<0,"bold",""),color = ifelse(x > 0,customGreen,ifelse(x < 0,customred,"black"))),x ~ icontext(ifelse(x>0,"arrow-up","arrow-down"),x)
  )
percent_change_formatter2 <- 
  formatter("span",color = ifelse(x < 0,ifelse(x > 0,x)
  )


i_tcp <- formattable(i_tcp,align =c("c","r","l","l"),list(
  `7-day averages for USA` = formatter("span",style = ~ style(color = "grey",font.weight = "bold")),`Tests`= color_bar(customGreen0,proportion,1),` % chng.`= percent_change_formatter1,`New cases`= color_bar(CustomOrange0,`% chng. `= percent_change_formatter2,`% positive`= color_bar(CustomPink0,`% chng.`= percent_change_formatter2
))

export_formattable <- function(f,file,width = 690,height = 330,background = "",delay = 0.2)
{
  w <- as.htmlwidget(f,width = width,height = height)
  path <- html_print(w,background = background,viewer = NULL)
  url <- paste0("file:///",gsub("\\\\","/",normalizePath(path)))
  webshot(url,file = file,selector = ".formattable_widget",delay = delay)
}

dir.create(paste(today),recursive = T)
setwd(paste(today))
export_formattable(i_tcp,paste(today,"_us_tcp_table.png"))
saveWidget(as.htmlwidget(i_tcp,height = 330),"_us_tcp_table.htm"),selfcontained = F,libdir = "libdir")
setwd("..")