闪亮的 navbarPage + css.file

navbarPage + css.file in Shiny

我想在 NavbarPage 风格的 Shiny 应用程序中使用 css.file。我写

shinyUI(
  navbarPage("Title",
             theme = "bootstrap.css",
             tabPanel("tabPanel1"),
             tabPanel("tabPanel2"),
             tabPanel("tabPanel3")
...

但它看起来不太好(tabPanel 名称是垂直排列的,而不是水平排列的)。它在我选择的所有 bootstrap.css 文件中一直有效。可以按正常(水平)顺序更改吗?

更新

我找到了这个 proposition 但它根本不起作用。

我不确定 Shiny 应用程序,您可以将 float:left 应用到 css 中的那 3 个面板吗? 通过 parent class 或直接

如果您尝试 运行 使用 theme = "" 的报告,您会发现您根本没有加载 css 文件。

runApp(
  list(
    ui = navbarPage(theme="",
                    "Title",
                    tabPanel("tabPanel1"),
                    tabPanel("tabPanel2"),
                    tabPanel("tabPanel3")),
    server = function(input, output){

    }
    )
)

我不确定 navbarPagetheme 是否存在错误,但如果您手动 includeCSS,那么您会注意到它已加载。你可以试试我的gist。请注意,格式仍然不理想,但至少 css 文件已加载。

https://gist.github.com/cdeterman/8e9fb019e5100fc5cd15