闪亮的布局FluidRow和列

Question

布局问题：下图。我尝试通过以下方式调整布局，以实现“红色”扩展名。有什么建议怎么做吗？

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

    mainPanel(width = 12,

              fluidRow(
                  column(6, offset = 0, uiOutput("f1")),
                  column(6, offset = 0, uiOutput("f2"))
              ),
              fluidRow(
                  column(4, offset = 0, uiOutput("f3")),
                  column(4, offset = 0, uiOutput("f4")),
                  column(4, offset = 0, uiOutput("f5"))
              )
)
)

# Define server logic required to draw a histogram
server <- function(input, output) {

    output$f1 <- renderUI({
        selectizeInput(inputId = "select_visualize_aggregation",
                       label = "F1",
                       choices = c("day", "week"),
                       selected = "week",
                       multiple = FALSE
        )
    })


    ...
}

# Run the application
shinyApp(ui = ui, server = server)

Answer 1

在width = "100%"中设置selectizeInput：

  output$f1 <- renderUI({
    selectizeInput(inputId = "select_visualize_aggregation",
                   label = "F1",
                   choices = c("day", "week"),
                   selected = "week",
                   multiple = FALSE,
                   width = "100%"
    )
  })