在闪亮的主面板中右对齐元素

我有一个闪亮的应用程序，左侧有一个侧边栏，我想将 mainPanel 中的绘图向右对齐。我尝试过添加style = "align:right"mainPanel 中的每个元素，以及包装我能想到的所有内容div(..., style = "align:right")。这些都不起作用。

您可以使用这个例子 http://shiny.rstudio.com/gallery/tabsets.html来自 RStudio 画廊。我想将“表格”选项卡中的输出与右侧对齐。这是 ui.R 的相关部分：

mainPanel(
  tabsetPanel(type = "tabs", 
    tabPanel("Plot", plotOutput("plot")), 
    tabPanel("Summary", verbatimTextOutput("summary")), 
    tabPanel("Table", tableOutput("table"))
  )
)

您可以将一个类添加到Table标签。在这种情况下，我添加了一个rightAlign类给它。tabPanel("Table", tableOutput("table"), class = 'rightAlign')然后，您可以以任何常用方式设置此选项卡的样式http://shiny.rstudio.com/articles/css.html http://shiny.rstudio.com/articles/css.html使用类似的东西.rightAlign{float:right;}对于CSS。

library(shiny)
runApp(list(
  ui = fluidPage(
    tags$head(tags$style(".rightAlign{float:right;}")),
    titlePanel("Tabsets"),
    sidebarLayout(
      sidebarPanel(
        radioButtons("dist", "Distribution type:",
                     c("Normal" = "norm",
                       "Uniform" = "unif",
                       "Log-normal" = "lnorm",
                       "Exponential" = "exp")),
        br(),
        sliderInput("n", 
                    "Number of observations:", 
                    value = 500,
                    min = 1, 
                    max = 1000)
      ),
      mainPanel(
        tabsetPanel(type = "tabs", 
                    tabPanel("Plot", plotOutput("plot")), 
                    tabPanel("Summary", verbatimTextOutput("summary")), 
                    tabPanel("Table", tableOutput("table"), class = 'rightAlign')
        )
      )
    )
  )
  , server = function(input, output) {
    data <- reactive({
      dist <- switch(input$dist, norm = rnorm, unif = runif,
                     lnorm = rlnorm, exp = rexp, rnorm)
      dist(input$n)
    })
    output$plot <- renderPlot({
      dist <- input$dist
      n <- input$n
      hist(data(), main=paste('r', dist, '(', n, ')', sep=''))
    })
    output$summary <- renderPrint({
      summary(data())
    })
    output$table <- renderTable({
      data.frame(x=data())
    })
  }
)
)