在 shinydashboard 框内对齐小部件？

Question

有没有办法在 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 小部件与测试框的右下角对齐。我该怎么做？

Answer 1

只需将 dropdownButton 放在情节之后，并在 div 内加上 class "pull-right"

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)

在 shinydashboard 框内对齐小部件？

Align widget inside shinydashboard box?

r

shiny

shinydashboard