如何对齐 RStudio Shiny 应用程序中的标题标题？

Question

（问题已编辑）

我正在创建一个基本的闪亮应用程序来编译一些 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" 选项卡。

有谁知道为什么会这样以及如何解决？感谢您的帮助:)

Answer 1

我认为 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)

如何对齐 RStudio Shiny 应用程序中的标题标题？

How to align the title heading in RStudio Shiny app?

html

r

heading

shiny