当标题在shinydashboard中禁用时，将侧栏菜单移至顶部

ui <- shinydashboard::dashboardPage(
  shinydashboard::dashboardHeader(disable = TRUE),
  shinydashboard::dashboardSidebar(
    sidebarMenu(
      menuItem("Home", tabName = "home", icon = icon("house"))
  )),
  shinydashboard::dashboardBody(
    shinydashboard::tabBox(
      title = "title",
      shiny::tabPanel(
        "test panel"
        )
      )
    )
)

server <- function(input, output, session) {
}

shiny::shinyApp(ui, server)

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- shinydashboard::dashboardPage(
    shinydashboard::dashboardHeader(disable = TRUE),
    shinydashboard::dashboardSidebar(
        tags$style(HTML(".main-sidebar {padding-top: 0px !important;}")),
        sidebarMenu(
            menuItem("Home", tabName = "home", icon = icon("house"))
        )
    ),
    shinydashboard::dashboardBody(
        shinydashboard::tabBox(
            title = "title",
            shiny::tabPanel(
                "test panel"
            )
        )
    )
)

server <- function(input, output, session) {
}

shiny::shinyApp(ui, server)

R相关问答推荐

在特定列上滞后n行，同时扩展框架的长度

从有序数据中随机抽样

工作流程_set带有Dplyrr风格的 Select 器，用于 Select 结果和预测因子R

如何使用shinyChatR包配置聊天机器人

R Highcharts与两个位置关联的注释

将数据集中的值增加到当前包含的最大值

根据文本字符串中的值粘贴新列

R—将各种CSV数字列转换为日期

在数组索引上复制矩阵时出错

如何通过判断数据框的一列来压缩另一列？

安全地测试文件是否通过R打开

从多层嵌套列表构建Tibble？

当每个变量值只能 Select 一次时，如何从数据框中 Select 两个变量的组合？

'使用`purrr：：pwalk`从嵌套的嵌套框架中的列表列保存ggplots时出现未使用的参数错误

为什么我对圆周率图的蒙特卡罗估计是空的？

如何使投篮在R中保持一致

从矩阵创建系数图

是什么打破了此Quarto仪表板中的工具提示？

列间序列生成器的功能

如果缺少时间，如何向日期-时间列添加时间