在Shiny tabBox中居中显示图形

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(width = 6, offset = 3,
           tabBox(
             id = "myTabBox",
             width = 12,
             tabPanel("Tab 1", "Content for Tab 1"),
             tabPanel("Tab 2", "Content for Tab 2")
           )
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui = ui, server = server)

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(width = 6, offset = 3,
           tabBox(
             id = "myTabBox",
             width = 12,
             tabPanel("Tab 1", 
                      plotOutput("plot1")  # 在Tab 1中显示图形
             ),
             tabPanel("Tab 2", "Content for Tab 2")
           )
    )
  )
)

server <- function(input, output) {
  # 服务器逻辑
  
  output$plot1 <- renderPlot({
    # 生成要显示的图形
    plot(1:10, 1:10, type = "l", main = "Centered Plot")
  })
}

shinyApp(ui = ui, server = server)