在闪亮的仪表板框中对齐小部件？答案

【问题标题】：Align widget inside shinydashboard box?在闪亮的仪表板框中对齐小部件？
【发布时间】：2020-09-18 04:25:02
【问题描述】：

有没有办法在shinydashboard 框内对齐小部件？例如，在以下应用中：

library(shiny)
library(shinydashboard)
library(shinyWidgets)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(box(
    title = "Test", width = 4, solidHeader = TRUE, status = "primary",
    dropdownButton(
      inputId = "mydropdown",
      label = "Controls",
      icon = icon("sliders"),
      status = "primary",
      circle = FALSE,
      numericInput("obs", "Observations:", 10, min = 1, max = 100)
    ),
    plotOutput('plot')
  ))
)

server <- function(input, output) {
  output$plot <- renderPlot({
    hist(runif(input$obs))
  })
}

shinyApp(ui, server)

我想将dropdownButton 小部件与测试框的右下角对齐。我该怎么做？

【问题讨论】：

标签： r shiny shinydashboard

【解决方案1】：

只需将dropdownButton 放在情节之后，并放在带有"pull-right" 类的div 中

library(shiny)
library(shinydashboard)
library(shinyWidgets)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(box(
    title = "Test", width = 4, solidHeader = TRUE, status = "primary",
    plotOutput('plot'),
    div(class = "pull-right",
      dropdownButton(
        inputId = "mydropdown",
        label = "Controls",
        icon = icon("sliders"),
        status = "primary",
        circle = FALSE,
        numericInput("obs", "Observations:", 10, min = 1, max = 100)
      )
    )
  ))
)

server <- function(input, output) {
  output$plot <- renderPlot({
    hist(runif(input$obs))
  })
}

shinyApp(ui, server)

【讨论】：