navbarPage - 将一些标签折叠到闪亮应用中的菜单中

Question

我在navbarPage中有一个闪亮的app（使用bootstrap）和几个tabPanel，其中一些并不重要：

runApp(
  list(
    ui = navbarPage(theme = 'bootstrap.css',
                    position = 'fixed-top',
                    collapsible = TRUE,
                    'There is a title of this app',
                    tabPanel('tabPanel1'),
                    tabPanel('tabPanel2'),
                    tabPanel('tabPanel3'),
                    tabPanel('tabPanel4'),
                    tabPanel('tabPanel5'),
                    tabPanel('tabPanel6'),
                    tabPanel('tabPanel7'),
                    tabPanel('tabPanel8 - not important'),
                    tabPanel('tabPanel9 - not important')),
    server = function(input, output){

    }
  )
)

问题是当使用较小的窗口/屏幕时，标签和标题分为两行，只有当窗口非常小时它们才会折叠。另一件事是所有这些都是一次折叠，而不是逐个标签。

因此，最佳解决方案是将它们折叠到菜单标签中。另一个可接受的解决方案是默认情况下折叠菜单中不重要的选项卡，无论窗口大小如何。

我在这个领域很新，所以我很感激任何帮助（特别欢迎傻瓜友好的。）