闪亮的 tabBox - 在选项卡上方获取标题

tabBox in shiny - get title above tabs

有谁知道如何在 shinydashboard 应用程序中让 tabBox 的标题位于选项卡上方?例如下图中,标题在右边,但我希望它在框的顶部。

此选项卡框的代码:

library(shiny)
library(shinydashboard)
  ui = dashboardPage(dashboardHeader(title = "tabBoxes"), dashboardSidebar(),
dashboardBody(
  fluidRow(
tabBox(title = HTML("Hello friend<br>"),
                      tabPanel("merp", "hi there"),
                      tabPanel("derp", "hello"),
                      tabPanel("herp", "howdy")
      ))
    )

)
  
  
  
  server = function(input, output) {
    # The currently selected tab from the first box
    output$tabset1Selected <- renderText({
      input$tabset1
    })
  }
shinyApp(ui = ui, server = server

)

有旁论例如

library(shiny)
library(shinydashboard)

body <- dashboardBody(
  fluidRow(
    tabBox(
      title = "First tabBox",
      # The id lets us use input$tabset1 on the server to find the current tab
      id = "tabset1", height = "250px",side = 'right',
      tabPanel("Tab1", "First tab content"),
      tabPanel("Tab2", "Tab content 2")
)
))

shinyApp(
  ui = dashboardPage(dashboardHeader(title = "tabBoxes"), dashboardSidebar(), body),
  server = function(input, output) {
    # The currently selected tab from the first box
    output$tabset1Selected <- renderText({
      input$tabset1
    })
  }
)

对于那些可能在这里寻找解决方案的人来说,一个非常简单的解决方法是将 tabBox(没有标题)放在一个有标题的框中:

library(shiny)
library(shinydashboard)

ui = dashboardPage(dashboardHeader(title = "tabBoxes"), dashboardSidebar(),
                   dashboardBody(
                     fluidRow(box(title = HTML("Hello friend<br>"),
                                  tabBox(
                                    tabPanel("merp", "hi there"),
                                    tabPanel("derp", "hello"),
                                    tabPanel("herp", "howdy"))
                     ))
                   )
                   
)  

server = function(input, output) {
  # The currently selected tab from the first box
  output$tabset1Selected <- renderText({
    input$tabset1
  })
}

shinyApp(ui = ui, server = server)