Скрыть имена столбцов в блестящей таблице
Есть ли способ скрыть имена столбцов форматируемой таблицы? Я думал о
- изменение атрибута в параметрах форматирования. Не нашел что-то об этом в документации или 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, для правильной таблицы, решения этой проблемы также приветствуются.
2 ответа
Не совсем скрываю, но вот мое простое предложение:
output$table2 <- renderFormattable({
names(df) <- c("_", ".")
formattable(df)
})
Любая помощь в вашей проблеме?
Добавьте это к своему коду:
tags$head(tags$style(type = "text/css", "#table2 th {display:none;}"))
Обратите внимание, что вам нужно будет вручную установить ширину столбцов, так как они будут уменьшаться до минимальной ширины, при этом текст не будет перетекать на новую строку.
То, что я сделал здесь, - это использование CSS для доступа к свойствам table2. Я получаю доступ к свойствам заголовка, объявив th
после указания идентификатора таблицы. Любой дополнительный CSS для заголовка может идти после ;
,