R tableHTML add_css文本-对齐中心不工作在闪闪发光

Question

我试图使用R中的tableHTML包在一个闪亮的应用程序中对表进行样式化。

当我在R中使用tableHTML()函数时，它会产生我想要的结果。我使用add_css_column将列中的文本对齐到中心。然而，当我在一个闪亮的应用程序中使用它时，标题最后左对齐，行中心对齐。我有什么办法解决这个问题吗？

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)) 
})

Answer 1

不幸的是，这是引导3中常见的问题。无论何时使用shiny，它都会加载一个引导3css(立即)，这使得很难覆盖。

至于这个问题的解决方案，使用add_css_header可能会解决这个问题。add_css_header将将HTML的th标记更改为您喜欢的标记(而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)) 
})

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

在css文件中，您需要编写：

.table_website_index th {
  text-align: center;
}

这应该就行了！

P.S. table_website_index是包分配给表的类，您也可以用类参数进行更改。

P.S.2我是开发人员--谢谢您使用该软件包:)