Question

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

更改formattable选项中的属性。没有在文档或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中的单元格边框右表，也可以解决这个问题。

Answer 1

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

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

对您的问题有任何帮助吗？

Answer 2

将此添加到您的代码中：

*** -[__NSPlaceholderArray initWithObjects:count:]: attempt to insert nil object from objects[2]

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

我在这里所做的是使用一些CSS来挖掘table2的属性。我在声明表的ID后声明tags$head(tags$style(type = "text/css", "#table2 th {display:none;}"))来访问标题属性。标题的任何其他css都可以在th之后。

隐藏闪亮表中的列名称

2 个答案: