макет колонны щита блеска () - PullRequest
0 голосов
/ 22 мая 2019

У меня есть Shinydashboard, который выглядит так:

enter image description here

# Packages
library(shinydashboard)
library(tidyverse)
library(readxl)
library(scales)
theme_set(theme_light())


header <- dashboardHeader(
  title = "Test App",
  titleWidth = 215
)

sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Test Tab", tabName = "test_tab",
             icon = icon("paper-plane"), startExpanded = TRUE)
  )
)


body <- dashboardBody(
  tabItems(
    tabItem(tabName = "test_tab",

            fluidRow(
              column(width = 4,
                     h2("Column X"),
                     valueBoxOutput("first_value", width = NULL),
                     box(flexdashboard::gaugeOutput("second_value", width = "90%", height = "100px"),
                         title = "Second Value", status = "primary", solidHeader = TRUE,
                         collapsible = FALSE, width = NULL
                     )
              ),
              column(width = 8,
                     h2("Column Y"),

                     box(
                       title = "#3", status = "primary", solidHeader = TRUE,
                       collapsible = FALSE, width = 4
                     ),
                     box(
                       title = "#4", status = "primary", solidHeader = TRUE,
                       collapsible = FALSE, width = 4
                     )
              )
            ),

            fluidRow(
              h2("Row A"),

              column(width = 12,

                     box(title = "Third Value", status = "primary", solidHeader = TRUE,
                         width = 2.4),

                     box("Fourth Value", status = "primary", solidHeader = TRUE,
                         width = 2.4),

                     box("Fifth Value", status = "primary", solidHeader = TRUE,
                         width = 2.4),


                     box("Sixth Value", status = "primary", solidHeader = TRUE,
                         width = 2.4),


                     box("Seventh Value", status = "primary", solidHeader = TRUE,
                         width = 2.4)
              )


            )

    )
  )
)


# Put them together into a dashboardPage
ui <- dashboardPage(skin = "blue", header = header,
                    sidebar = sidebar,
                    body = body)


server <- function(input, output) {

  output$first_value <- renderValueBox({

    valueBox(
      comma_format()(100000),
      subtitle = "First Value",
      icon = icon("list"), color = "purple"
    )
  })

  output$second_value = flexdashboard::renderGauge({
    flexdashboard::gauge(0.12 * 100,
                         symbol = '%',
                         min = 0, 
                         max = 100)
  })

}

shinyApp(ui, server)

Я пытаюсь получить поля () ниже RowA для выравнивания в формате из пяти столбцов, например:

Third Value | Fourth Value | Fifth Value | Sixth Value

Я не уверен, как бы я это сделал здесь. Я пытался поместить 5 ящиков в column () внутри liquidRow (), который должен работать, но, к сожалению, ящики продолжают появляться горизонтально ...

Есть ли в любом случае отображать поля в формате столбца? Если нет, можете ли вы привести меня к другим функциям, которые похожи на то, что у меня есть?

1 Ответ

0 голосов
/ 22 мая 2019

Вы указали ширину столбцов для каждого из этих пяти полей равной 2,4 (я думаю, 12/5).

Ширина столбца должна быть целыми числами. Если вы замените 2 на 2,4, он будет работать нормально.

Обратите внимание, что у вас будет пустой столбец справа от поля 5, соответствующий оставшимся 2 (12 - 2 * 5) позициям.

Это основано на макете столбца начальной загрузки. Для получения дополнительной информации см. этот учебник.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...