在Shiny应用程序中包含降价表似乎打破了CSS

Question

我试图在一个Shiny应用的标签中包含一个在Rmarkdown中创建的表格。出于某种原因，尽管降价在编织为HTML并且单独查看时看起来很好，但是当表格CSS作为降价或HTML插入Shiny时，表格CSS不起作用。

它应该如何看待/它自己看起来如何（例如，当下面的testdoc.md被预览为HTML，或者当testdoc.Rmd被编织为HTML时）：

如何在Shiny中查看，首先使用select sum(price) from table1 where x between var1 and var2; ，然后使用shiny::includeMarkdown

你可以看到，在Shiny应用程序中，CSS在第一个表中被破坏而在第二个表中有些破坏（坏对齐）。我强烈希望使用shiny::includeHTML代替includeMarkdown，因为某些原因includeHTML导致我的应用中存在其他问题，包括某种方式阻止允许滑块和选择框工作和取消的Javascript我的自定义CSS选项卡。

你可能会问：你为什么要使用降价？为什么不使用includeHTML包含闪亮的表？好吧，这个特殊的选项卡是一个文档选项卡，包含大量文本和多个表，并且很久以前就是为了不同的目的而创建的。还有其他降价文档最终将被包括在内。能够将它们插入Shiny应用程序而不必重新创建它们或将它们拆分以容纳Shiny表格将会很不错。

这可能是一个简单的解决方法，我对CSS不太了解。

以下MRE。

app.R：

renderTable

testdoc.Rmd：

library(shiny)

server <- function(input,output){

}
ui <- fluidPage(titlePanel("Test page"),
  includeMarkdown("testdoc.md"),
  includeHTML("testdoc.html")
)

shinyApp(ui=ui,server=server)

testdoc.md（即Test: ```{r table1, echo=FALSE} table1 <- matrix(c(-1,0,1,.391,.144,.059,.720,.425,.230,.945,.878,.796,1,1,1),nrow=3) colnames(table1) <- c("Response","1","2 or less","3 or less","4 or less") kable(table1,caption="Table 1") ``` 的结果）：

knitr::knit('testdoc.Rmd')

testdoc.html此处未包括篇幅，但使用knitr可以很容易地从testdoc.Rmd重新创建。