Последняя блестящая вкладка отображается во всех предыдущих вкладках

Question

Это продолжается! Глубоко рассмотрены скобки, изменилось положение вкладок, и когда я изменил вкладку «Наименование» на «Руководство», он просто начал отображать «Наименование» под всеми остальными вкладками. Теперь я следую за структурой без fluidPage, как в первоначальном вопросе (начиная с navbarPage(), она печатает приложение, как показано на рисунке ниже, ничего не происходит, когда я нажимаю «Руководство», но оно отображается под каждой вкладкой, и когда я нажимаю первый вид квадрата этой панели навигации.

> R.Version()
$platform
[1] "x86_64-w64-mingw32"

$arch
[1] "x86_64"

$os
[1] "mingw32"

$system
[1] "x86_64, mingw32"

$status
[1] ""

$major
[1] "3"

$minor
[1] "6.2"

$year
[1] "2019"

$month
[1] "12"

$day
[1] "12"

$`svn rev`
[1] "77560"

$language
[1] "R"

$version.string
[1] "R version 3.6.2 (2019-12-12)"

$nickname
[1] "Dark and Stormy Night"

Ниже вы можете найти структуру пользовательского интерфейса, чтобы иметь представление о том, как она разрабатывается!

#--------------------------------------- User Interface ---------------------------------------#

# Tell user server script is beginning to run
print("ui.R")

ui <- fluidPage(
  navbarPage(title = "Let's do some analysis!",
             id = "inTabset",
             theme = shinytheme("yeti"),   
             selected = "Home",

             br(),
             # ---------- Home Tab ---------- #
             tabPanel(
               title = "Home",
               fluidRow(
                 column(8,
                          div(
                            actionButton(inputId = 'start', 
                                         label = 'Get started!'),
                            style="text-align:center"
                          ),
                          style = "font-size: 100%; width: 100%"
                        ),
                        offset = 2
                 )
               ), # tabPanel - Home Tab
             # ---------- Datasets Tab ---------- #
             tabPanel(title = "Datasets",
                      fluidRow(
                        sidebarPanel(
                      )),
                      fluidRow(
                        sidebarPanel(
                          tags$hr(style="border-color: #606060;"),
                          div(
                            h3(HTML(paste0("<b>","Dataset","</b>"))), 
                            style = "font-size: 100%; width: 100%, text-align:center"
                            )
                          ),
                        mainPanel(
                          DT::dataTableOutput("raw_data")
                        )
                      ),
                      fluidRow(
                        sidebarPanel(
                        ),
                        mainPanel(
                          )
                        )
                      ), # tabPanel - Datasets
             tabPanel("Analizing & Modeling",

                      tags$br(),
                      div(
                        h3(HTML(paste0("<b>","Modeling","</b>"))),
                        align = "left"
                      ),
                      tags$br(),

                      fluidRow(
                        sidebarPanel( 
                          ),
                        mainPanel(
                           )
                        )
                      ), #tabPanel - Analizing & Modeling 
             # ---------- Naming Tab ---------- #
             tabPanel("Name setting",

                      tags$br(),
                      div(
                        h3(HTML(paste0("<b>","Think of a name!","</b>"))),
                        align = "left"
                      )
                      ,
                      tags$br(),

                      fluidRow(
                        sidebarPanel(
                        )
                      ),
                      fluidRow(
                        sidebarPanel( 
                        ),
                        mainPanel(
                        )
                      ),
                      fluidRow(
                        sidebarPanel( 
                        ),
                        mainPanel(
                        )
                      ),

                      fluidRow(
                        sidebarPanel( 
                          div(
                            h4(HTML(paste0("<b>","Download","</b>"))),
                          )
                        )
                      )
             ), #tabPanel - Naming Tab
             # ---------- Guideline Tab ---------- #
             tabPanel(title = "Guidelines",

                      tags$br(),
                      div(
                        h3(HTML(paste0("<b>","Step by step","</b>"))),
                        align = "left"
                      ),
                      tags$br(),

                      fluidRow(
                        column(8,
                               div(
                                 div(
                                   style = "text-align:center"
                                 ),
                                 style = "font-size: 100%; width: 100%;text-align:center"
                               ),
                               offset = 2
                               )
                        ),

                      tags$br(),

                      fluidRow(
                        column(8,
                               div(
                                 imageOutput("LDAvis_plot4",height = "100%",width="100%"),
                                 style = "text-align:center"
                               ),
                               div(
                                 h6(tags$li(HTML(paste0("")))),
                                 style = "text-align:left"
                               ),
                               offset = 2
                        )
                      )
             ) # tabPanel - Guideline Tab
  ) # navbarPage
) # fluidPage