Блог

(Вопрос отредактирован)

Я создаю базовое приложение shiny для компиляции некоторых файлов R markdown и HTML.

Все работает нормально, но я не совсем уверен, почему заголовок не находится на той же строке, что и вкладки «Введение» и «Мои заметки» в верхней части страницы.

Вот базовый код из app.R

 library(tidyverse)
library(shiny)


# Define UI for application
ui <- fluidPage(
  
  navbarPage(titlePanel("My Jupyter Notes"),
             
             tabPanel(title = "Introduction"),
             
             tabPanel(title = "My Notes", 
                      
                      mainPanel(
                        tabsetPanel(
                          type = "tabs",
                          tabPanel("Week 1"),
                          tabPanel("Week 2"),
                          tabPanel("Week 3")
                        )
                      )
             )
  )
)


# Define server logic
server <- function(input, output) {
  }

# Run the application 
shinyApp(ui = ui, server = server)

  

Примечание: я отредактировал то includeMarkdown(FILE PATH) , что было бы на вкладке «Введение», а includeHTML(FILE PATH) что было бы на вкладках «Неделя 1/2/3» в разделе «Мои заметки».

Кто-нибудь знает, почему это происходит и как это исправить? Любая помощь приветствуется 🙂

Я думаю, что titlePanel это не считается подходящим для совместной работы navbarPage . В navbarPage вы можете использовать собственный title аргумент:

 library(shiny)


# Define UI for application
ui <- fluidPage(
  
  navbarPage(title = "My Jupyter Notes",
             
             tabPanel(title = "Introduction"),
             
             tabPanel(title = "My Notes", 
                      
                      mainPanel(
                        tabsetPanel(
                          type = "tabs",
                          tabPanel("Week 1"),
                          tabPanel("Week 2"),
                          tabPanel("Week 3")
                        )
                      )
             )
  )
)


# Define server logic
server <- function(input, output) {
}

# Run the application 
shinyApp(ui = ui, server = server)