如何解决如何在RStudio Shiny应用程序中对齐标题?
(问题已编辑)
我正在创建一个基本的闪亮应用程序来编译一些R降价和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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。