禁用单个表的css样式

Question

问题：目前，我正在使用平面的主题在闪亮。不过，我不喜欢显示这些桌子。是否有一种方法可以轻松地获取表的默认主题(请参见屏幕截图)？

现状：

​

​

目标：

​

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

shinyApp(
  ui = fluidPage(
    theme = shinythemes::shinytheme("flatly"),
    sidebarPanel(
      formattableOutput("table")
    ),
    mainPanel(
    )
  ),
  server = function(input, output) {
    test.table <- data.frame(lapply(1:8, function(x) {1:10}))
    
    output$table <- renderFormattable({formattable(test.table, list())})
  }
)

Answer 1

不清楚您所说的简单方法是什么。(但是为了实现您想要的结果，您可以添加一些自定义css，它用默认值覆盖表样式的规则。

为了使这个示例更有趣，我将您的表放在来自这里的活动主题选择器示例中，并使用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())})
  }
)

​

​