＆＃34; tab-pane active＆＃34;使用navbarmenu作为navbarpage

Question

如果navbarMenu是navbarPage中的第一项，我会在浏览器中看到“标签窗格活动”输出。这是一个已知的问题。我无法找到解决方案或解决方案，如果有的话，因此发布。任何帮助表示赞赏。

使用shiny_0.11.1

shinyUI(navbarPage("Regression", windowTitle = "Regression",
    navbarMenu("Data",
        tabPanel("Upload",
            fluidRow(
                column(12,
                       fileInput("csv_file", "Choose CSV Data File to Upload",
                                 accept = c("text/csv",
                                            "text/comma-separated-values",
                                            ".csv"))
                )
            ),
            tags$hr(),
            dataTableOutput("csv_data_table")
        ),
        tabPanel("Summary",
            fluidRow(
                column(4, offset = 4,
                       numericInput("datasummary_numobs_numeric",
                                    "No. of Obs.",
                                    value = NULL) #max = 6.0
                )
            ),
            tags$hr(),
            dataTableOutput("datasummary_data_table")
       )
    )
))