无法使用 navbarPage() 和 tabsetPanel() 呈现 Shiny-UI 布局

Question

我同时使用fluidPage()、navbarPage() 和tabsetPanel()，因为我希望在标签之间切换。运行ShinyApp 时，我在导航栏标题附近看到一个黑框区域。但是，当我不使用 tabsetPanel() 时，我看不到这一点，因为所有选项卡都进入导航栏。我应该如何移除这个暗箱区域？

用户界面错误

代码：

# Loading Libraries
library("shiny")
library("shinythemes")

Main_UI <- shinyUI({
  fluidPage(theme = shinytheme("flatly"),
            navbarPage(title="Title",
                       tabsetPanel(id = "inTabset",
                                   tabPanel("Tab1", value = "Tab1", actionButton("b1", label = "Jump To Tab2")),
                                   tabPanel("Tab2", value = "Tab2", actionButton("b2", label = "Jump To tab1")))
            ))})


# Server Function
Main_Server <- function(input,output,session) {
  observeEvent(input$b1, {
    updateTabsetPanel(session, "inTabset", selected = "Tab2")})
  observeEvent(input$b2, {
    updateTabsetPanel(session, "inTabset", selected = "Tab1")})}

# Run-app
shinyApp( ui = Main_UI,  server = Main_Server)

Answer 1

由于您使用的是navbarPage，因此您不需要tabsetPanel：navbarPage 的... 参数应该是tabPanels。你看到的黑色斑点是navbarPage 中“已选择”tabPanel 的选项卡：它不存在。

Main_UI <- shinyUI(
  fluidPage(
    theme = shinytheme("flatly"),
    navbarPage(
      title="Title",
      tabPanel("Tab1", value = "Tab1"),
      tabPanel("Tab2", value = "Tab2")
    )
  )
)

给你你想要的。