禁用单个表的css样式

问题：目前，我正在使用Shiny中的flatly主题。但是，我不喜欢表格的显示。是否有一种方法可以轻松获得仅用于表的默认主题（另请参见屏幕截图）

当前情况：

目标：

库（“闪亮”）
库（“格式化表”）
shinyApp(
ui=fluidPage(
主题=shinytheme：：shinytheme（“平淡”），
侧栏面板(
formattableOutput（“表格”）
),
主面板(
)
),
服务器=功能（输入、输出）{
test.table不确定您所说的简单方法是什么意思。（；但是为了达到您想要的结果，您可以添加一些自定义css，用默认值覆盖表格样式的规则

为了使示例更有趣，我将您的表格放在live主题选择器示例中，并使用
mtcars
作为示例数据集：

library("shiny")
library("formattable")

shinyApp(
  ui = fluidPage(
    shinythemes::themeSelector(),  # <--- Add this somewhere in the UI
    tags$style(HTML("
      .table > tbody > tr > td,
      .table > tbody > tr > th,
      .table > tfoot > tr > td,
      .table > tfoot > tr > th,
      .table > thead > tr > td,
      .table > thead > tr > th {
        font-family: 'Helvetica Neue', Helvetica,Arial,sans-serif;
        font-size: 14px;
        line-height: 1.42857143;
        color: #333;
        border-bottom: 2px solid #ecf0f1;
        border-collapse: collapse;
        border-spacing: 0;
        padding: 8px;
        margin-bottom: 20px;
        background-color: transparent;
      }
    ")),
    sidebarPanel(
      textInput("txt", "Text input:", "text here"),
      sliderInput("slider", "Slider input:", 1, 100, 30),
      actionButton("action", "Button"),
      actionButton("action2", "Button2", class = "btn-primary")
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("Tab 1"),
        tabPanel("Tab 2")
      ),
      formattableOutput("table")
    )
  ),
  server = function(input, output) {
    test.table <- mtcars
    
    output$table <- renderFormattable({formattable(test.table, list())})
  }
)

库（“闪亮”）
库（“格式化表”）
shinyApp(
ui=fluidPage(
shinythemes:：themeSelector（）#
library("shiny")
library("formattable")

shinyApp(
  ui = fluidPage(
    shinythemes::themeSelector(),  # <--- Add this somewhere in the UI
    tags$style(HTML("
      .table > tbody > tr > td,
      .table > tbody > tr > th,
      .table > tfoot > tr > td,
      .table > tfoot > tr > th,
      .table > thead > tr > td,
      .table > thead > tr > th {
        font-family: 'Helvetica Neue', Helvetica,Arial,sans-serif;
        font-size: 14px;
        line-height: 1.42857143;
        color: #333;
        border-bottom: 2px solid #ecf0f1;
        border-collapse: collapse;
        border-spacing: 0;
        padding: 8px;
        margin-bottom: 20px;
        background-color: transparent;
      }
    ")),
    sidebarPanel(
      textInput("txt", "Text input:", "text here"),
      sliderInput("slider", "Slider input:", 1, 100, 30),
      actionButton("action", "Button"),
      actionButton("action2", "Button2", class = "btn-primary")
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("Tab 1"),
        tabPanel("Tab 2")
      ),
      formattableOutput("table")
    )
  ),
  server = function(input, output) {
    test.table <- mtcars
    
    output$table <- renderFormattable({formattable(test.table, list())})
  }
)