Блестящая вкладка отображается во всех других вкладках

Question

Возможно, это не воспроизводимый типовой вопрос, но я ищу какую-то подсказку, если это случилось с кем-то еще раньше и как они это исправили. Я надеюсь, что я проясню!

Я пытался использовать то, что говорится в статье , но безуспешно. Должно быть, я ошибаюсь, но не могу это исправить: у меня есть 5 вкладок, блестящее приложение, и внезапно последняя, ​​вкладка «Руководство» начала отображаться под всеми другими вкладками, что означает, что вкладка 1 отображает кодировку «Домой» и показывает полную вкладку «Руководство» ниже, а также 2, 3 и 4. Но когда я нажимаю «Руководство» на панели навигации, ничего не происходит, это происходит во всех других вкладках!

Этот вопрос говорит об использовании navbarPage (), но это то, что я использую.

Библиотеки, используемые в этом приложении:

## --- Install and load packages

#1. App
if("shiny" %in% rownames(installed.packages()) == FALSE){ install.packages("shiny") }
library(shiny)

#3. Text analysis
if("text2vec" %in% rownames(installed.packages()) == FALSE){ install.packages("text2vec") }
library(text2vec)

#4. Easier data handling
if("dplyr" %in% rownames(installed.packages()) == FALSE){ install.packages("dplyr") }
library(dplyr)

#5. Lemmatizing
if("textstem" %in% rownames(installed.packages()) == FALSE){ install.packages("textstem") }
library(textstem)

#6. Preprocessing 
if("stringr" %in% rownames(installed.packages()) == FALSE){ install.packages("stringr") }
library(stringr)

#7. Date format
if("lubridate" %in% rownames(installed.packages()) == FALSE){ install.packages("lubridate") }
library(lubridate)

#8. Data Table shiny outputs 
if("DT" %in% rownames(installed.packages()) == FALSE){ install.packages("DT") }
library(DT)

#9. Hide shiny outputs
if("shinyjs" %in% rownames(installed.packages()) == FALSE){ install.packages("shinyjs") }
library(shinyjs)

#10. Themes
if("shinythemes" %in% rownames(installed.packages()) == FALSE){ install.packages("shinythemes") }
library(shinythemes)

#11. LDAvis plot
if("LDAvis" %in% rownames(installed.packages()) == FALSE){ install.packages("LDAvis") }
library(LDAvis)

#11. pivot_longer for name setting
if("tidyr" %in% rownames(installed.packages()) == FALSE){ install.packages("tidyr") }
library(tidyr)

#11. profressBar
if("shinyWidgets" %in% rownames(installed.packages()) == FALSE){ install.packages("shinyWidgets") }
library(shinyWidgets)

#12. Interactive graphs
if("plotly" %in% rownames(installed.packages()) == FALSE){ install.packages("plotly") }
library(plotly)

С моим пользовательским интерфейсом с этим вид структуры:

ui <- fluidPage(
  theme = shinytheme("yeti"),       
  br(),

  # Navigation bar
  navbarPage(title = "Let's do some analysis!",
             id = "inTabset",

  # ---------- Home Tab ---------- #
               tabPanel("Home",
                      fluidRow(
                          sidebarPanel( ),
                          mainPanel( )
                          )
                       ),


 # ---------- Datasets ---------- #
                tabPanel("Data",
                       fluidRow(
                           sidebarPanel( ),
                           mainPanel( )
                           )
                        ),
 # ---------- Model application ---------- #
                tabPanel("Analizing & modeling",
                       fluidRow(
                           sidebarPanel( ),
                           mainPanel( )
                           )
                        ),
 # ---------- Name set up ---------- #
                tabPanel("Naming",
                       fluidRow(
                           sidebarPanel( ),
                           mainPanel( )
                           )
                        ),
 # ---------- Guideline ---------- #
                tabPanel("Step by step",
                       fluidRow(
                           sidebarPanel( ),
                           mainPanel( )
                           )
                        ),