2017-08-29 65 views
0

有没有办法隐藏格式表的列名?我想过在闪亮的表格中隐藏列名称

  • 更改格式表选项中的属性。没有在文档或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中的 右表,对这个问题的解决方案也将不胜感激。

+0

'DT'包可能有用https://rstudio.github.io/DT/ – user5029763

回答

0

不完全隐藏,但这里是我的简单的建议:

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

您的问题任何帮助吗?

+0

不,我需要隐藏列名或更改字体颜色。在原始问题中,我需要在'formattable'函数中进一步格式化它们。列名一般每周都在变化,而且还有更多的列。 –

1

添加到您的代码:

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

请注意,您将需要手动设置列的宽度,因为他们会崩溃到最小宽度没有文字溢出到一个新的生产线。

我在这里所做的是使用一些CSS来挖掘table2的属性。通过在声明表ID之后声明th来访问标题属性。任何额外的头文件可以在;之后。

+0

你也提到改变标题颜色。您可以通过将'display:none'更改为'color:#ffffff'来做到这一点。 – sehock

+0

您还可以将字体大小设置为0px,方法是将'display:none'替换为'font-size:0px'。 – sehock