Положите коробку в два ряда - PullRequest
Новая
       16

Положите коробку в два ряда

0 голосов
/ 18 апреля 2019

Я создаю приложение shinydashboard и хочу получить один прямоугольник в двух строках (см. Изображение ниже).

https://imgur.com/ilNn11M

Я попытался смешать столбец и строки, ноя не смог получить этот результат.

Вот мой тест пользовательского интерфейса: 

fluidRow(
                box(
                  width = 3,
                  title = "Analyses",
                  dataTableOutput("ind_ana") %>% withSpinner(type = getOption("spinner.type", default = 6))
                ),
                box(
                  width = 3,
                  title = "Limites de quantification",
                  dataTableOutput("ind_lq") %>% withSpinner(type = getOption("spinner.type", default = 6))
                ),
                box(width = 3,
                    title = "Valeurs de références",
                    dataTableOutput("tabFnade")
                    ),
                box(width = 3,
                    title = "Seuils",
                    splitLayout(
                      numericInput("seuil1", NULL, value = 0, min = 0, max =0),
                      colourInput("col1", NULL, "blue")
                    ),
                    splitLayout(
                      numericInput("seuil2", NULL, value = 0, min = 0, max =0),
                      colourInput("col2", NULL, "green")
                    ),
                    splitLayout(
                      numericInput("seuil3", NULL, value = 0, min = 0, max =0),
                      colourInput("col3", NULL, "yellow")
                    ),
                    splitLayout(
                      numericInput("seuil4", NULL, value = 0, min = 0, max =0),
                      colourInput("col4", NULL, "orange")
                    ),
                    splitLayout(
                      numericInput("seuil5", NULL, value = 0, min = 0, max =0),
                      colourInput("col5", NULL, "red")
                    ),
                    splitLayout(
                      numericInput("seuil6", NULL, value = 0, min = 0, max =0),
                      colourInput("col6", NULL, "brown")
                    )
                    )

Могу ли я сделать это с помощью Shinydashboard, может быть, с помощью CSS?

1 Ответ

0 голосов
/ 18 апреля 2019

Мне удается сделать это с блестящей приборной панелью, используя две большие коробки, разделенные на 3 колонки: 

fluidRow(
    column(width = 9,
           box(
             title = "Tab1", width = NULL, height = "200px",
             column(width = 4, "Tab1"),
             column(width = 4, "Tab2"),
             column(width = 4, "Tab3")
           ),
           box(
             title = "Tab4", width = NULL, height = "200px"
           )
    ),
    column(width = 3,
           box(
             title = "Tab5", width = NULL, height = "400px"
           )
    )
  )
...