Блестящий макет FluidRow и столбцы - PullRequest
Новая
       5

Блестящий макет FluidRow и столбцы

0 голосов
/ 24 марта 2020

Layout-Question: Прикреплен следующий рисунок. Я пытаюсь настроить макет следующим образом, чтобы получить «красные» расширения. Любые предложения, как это сделать?

enter image description here

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)

1 Ответ

0 голосов
/ 24 марта 2020

Set width = "100%" in selectizeInput: 

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