如何在R Shiny中的navbarPage布局中移动导航选项卡？

Question

我在R中相当有经验，但在任何类型的Web开发中都没有。我想用Shiny。

我只是测试它并为UI提供以下内容：

shinyUI(navbarPage("This is some awesome testing!!!",
                   tabPanel("Plot"),
                   tabPanel("Summary" ),
                   navbarMenu("More",
                              tabPanel("Table"),
                              tabPanel("About")
                   )
))

这将生成一个带有导航栏的页面，如下所示，但请注意导航选项卡位于页面中间。有没有办法把它移到左边？那么它会一直反对页面的左侧吗？

我只是注意到调整窗口的大小会将其移动到一些并帮助将其向左移动更多，但是有没有办法让它“贴”到窗口的左侧？

我想有一些方法可以强制它通过一些CSS或HTML或其他东西，但我甚至不确定这些是否是正确的术语。我再次没有网络开发经验。

谢谢！

Answer 1

我认为您需要开始使用css来有效地修改默认的闪亮输出。在这里，看起来需要修改的唯一div是第一个container。由于css不多，可以很容易地添加tags，

shinyApp(
    shinyUI(
        navbarPage("This is some awesome testing!!!",
                   tabPanel("Plot"),
                   tabPanel("Summary" ),
                   navbarMenu("More",
                              tabPanel("Table"),
                              tabPanel("About")
                              ),
                   tags$head(tags$style('
                       nav .container:first-child {
                           margin-left:10px; width: 100%;
                       }'))
                   )),
    shinyServer(function(input, output) {})
)