将选项卡放在右侧的Shiny tabsetPanel中

Question

默认情况下， tabsetPanel中的选项卡位于左侧。 是否可以在右侧放置一个标签，同时左侧还有其他标签？ 这样看起来像这样？

library(shiny)

ui <- fluidPage(
  tabsetPanel(
    tabPanel("tab_left1"),
    tabPanel("tab_left2"),
    tabPanel("tab_right")
  )
)

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

shinyApp(ui, server)

Answer 1

使用float-right确实可行。 使用2 tabsetPanel的问题是同时有2个活动选项卡。

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(HTML(
      ".tabbable ul li:nth-child(3) { float: right; }"
    ))
  ),
  tabsetPanel(
    tabPanel("tab_left1"),
    tabPanel("tab_left2"),
    tabPanel("tab_right")
  )
)

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

shinyApp(ui, server)

Answer 2

也许你可以创建2个tabsetPanel并向右拉一个？

rm(list = ls())
library(shiny)
ui <- fluidPage(
  div(style="display:inline-block",tabsetPanel(type = c("pills"),tabPanel("tab_left1"),tabPanel("tab_left2"))),
  div(style="display:inline-block;float: right",tabsetPanel(type = c("pills"),tabPanel("tab_right")))
)

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

shinyApp(ui, server)

Answer 3

当你将float-right类应用于你想要向右浮动的那个时，它应该可以解决问题。