r - gt 表中的字体在 Rshiny 应用程序中不起作用

Question

当我们运行以下代码时，正在反映对 gt 表的字体更改

    mtcars%>%
          head()%>%
          gt()%>%
          opt_table_font(
            font="Georgia"
  )

字体正常工作的表格

但是，当使用 R 闪亮的应用程序运行相同的事情时，字体不会正确反映

library(shiny)
library(gt)

ui <- fluidPage(
  gt_output("table")
)

server = function(input, output, session) {
  
  output$table <- gt::render_gt({

    data<-mtcars%>%
      head()%>%
      gt()%>%
      opt_table_font(
        font="Georgia"
      
  )

  } 
  )

}

shinyApp(ui, server)

Answer 1

不是这方面的专家，但据我所知，问题在于设置的字体系列的 CSS 规则gt被默认的闪亮 CSS 覆盖。获得“Georgia”字体的一种选择是添加一些自定义 css 来为gt表格设置字体系列，如下所示：

library(shiny)
library(gt)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      .gt_table {
        font-family: 'Georgia'
      }
    "))
  ),
  
  gt_output("table")
)

server = function(input, output, session) {
  
  output$table <- gt::render_gt({
    data<-mtcars%>%
      head()%>%
      gt()
  } 
  )
  
}

shinyApp(ui, server)