1

有没有办法隐藏格式表的列名？我想过

  • 更改格式化选项中的属性。在文档或 SO 中没有找到有关它的内容。
  • 将标题的字体颜色更改为白色。我想这对于 CSS 专家来说可能是一件容易的事。作为外行，我找不到合适的资源来做这件事。

也许还有另一个我没有想到的选择？提前感谢您的帮助。

下面的示例代码。应该隐藏右表的标题。

library(shiny)
library(formattable)

df <- data.frame(A = LETTERS[1:10], B = 1:10)

server <- function(input, output) {
  output$table1 <- renderFormattable({
    formattable(df)
  })

  output$table2 <- renderFormattable({
    formattable(df)
  })
}

ui <- fluidPage(
  fluidRow(
    column(6,
      h6("Table with header"),
      formattableOutput("table1")
    ),
    column(6,
      h6("Table without header"),
      formattableOutput("table2")
    )
  )
)

shinyApp(ui = ui, server = server)

附加：如果有一种方法可以像在 Excel 中那样为正确的表格设置单元格边框，也将不胜感激这个问题的解决方案。

4

2 回答 2

1

将此添加到您的代码中：

tags$head(tags$style(type = "text/css", "#table2 th {display:none;}"))

请注意，您将需要手动设置列的宽度，因为它们将折叠到最小宽度，而文本不会溢出到新行。

我在这里所做的是使用一些 CSS 来利用 table2 的属性。th我通过在声明表的 ID 后声明来访问标题属性。标题的任何其他 css 都可以放在;.

于 2018-01-11T20:39:53.217 回答
1

不完全隐藏，但这是我的简单建议：

output$table2 <- renderFormattable({
  names(df) <- c("_", ".")
  formattable(df)
})

对您的问题有帮助吗？

于 2017-08-29T15:08:59.830 回答