在 Shiny 的主面板中右对齐元素

Question

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

您可以使用this example来自 RStudio 画廊。我想将“表格”选项卡中的输出与右侧对齐。这是 ui.R 的相关部分:

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

Answer 1

您可以将类添加到Table 选项卡。在本例中，我添加了一个 rightAlign 类。 tabPanel("Table", tableOutput("table"), class = 'rightAlign') 然后您可以以任何常用方式设置此选项卡的样式 http://shiny.rstudio.com/articles/css.html对 CSS 使用类似 .rightAlign{float:right;} 的内容。

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())
    })
  }
)
)