1

我正在尝试使用 R 中的 tableHTML 包在 Shiny 应用程序中设置表格样式。

当我tableHTML()在 R 中使用该函数时，它会产生我想要的结果。我使用 add_css_column 将列中的文本与中心对齐。但是，当我在 Shiny 应用程序中使用它时，标题最终左对齐，行居中对齐。有什么想法可以解决这个问题吗？

output$viewers_website_top <- renderUI({ 
  tableHTML(website_index, rownames = FALSE, widths=c(200,200)) %>%
    add_css_column(css = list("text-align", "center"), 
                   column_names = names(website_index)) 
})
4

1 回答 1

0

不幸的是，这是 bootstrap 3 的常见问题。每当您使用shiny它时（立即）加载一个引导程序 3 css，这使得它难以覆盖。

至于这个使用的解决方案add_css_header可能会解决这个问题。add_css_header将thHTML 表格的标签更改为您喜欢的标签（而add_css_header将更改td标题下方的标签）：

output$viewers_website_top <- renderUI({ 
  tableHTML(website_index, rownames = FALSE, widths=c(200,200)) %>%
    add_css_header(css = list("text-align", "center"), 
                   headers = 1:ncol(website_index)) 
})

您可以做的另一件事是添加一个单独的 css 文件shiny::includeCSS。这里和这里有更多关于如何使用的信息includeCSS。

在css文件中你需要写：

.table_website_index th {
  text-align: center;
}

那应该这样做！

PStable_website_index是包分配给表的类，您也可以使用类参数更改它。

PS2 我是开发人员 - 感谢您使用该软件包 :)

于 2016-06-30T16:21:52.330 回答