Скрыть имена столбцов в блестящей таблице

Question

Есть ли способ скрыть имена столбцов форматируемой таблицы? Я думал о

• изменение атрибута в параметрах форматирования. Не нашел что-то об этом в документации или 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

Добавьте это к своему коду:

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

Обратите внимание, что вам нужно будет вручную установить ширину столбцов, так как они будут уменьшаться до минимальной ширины, при этом текст не будет перетекать на новую строку.

То, что я сделал здесь, - это использование CSS для доступа к свойствам table2. Я получаю доступ к свойствам заголовка, объявив th после указания идентификатора таблицы. Любой дополнительный CSS для заголовка может идти после ;,