r-将文本放在最顶部的闪亮仪表板侧边栏

Question

在下面的shiny应用程序中，我想把侧边栏中的文本放得比它高一点，以便与选项卡面板选项卡在同一行。收割台被禁用，tabsetPabel()不应向下移动。

## app.R ##
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(disable = T),
dashboardSidebar(
h4("titletitletilte")
),
dashboardBody(
tabsetPanel(
id="inTabset",
tabPanel("show",
),
tabPanel("Hide")
)
)
)
server <- function(input, output) { }
shinyApp(ui, server)

Answer 1

你在找这样的东西吗？

h4(style = "position: absolute;top: 15px;", "titletitletilte")