НачатьНачать бесплатно

Вайрфреймирование с блоками

Новая строка задаётся с помощью fluidRow().

Кроме того, в тело дашборда можно добавлять box() для организации контента. Можно размещать несколько box(), каждый из которых имеет ширину по умолчанию равную 6; её можно изменить с помощью аргумента width. В одну строку помещается не более двух box() с шириной по умолчанию, поскольку максимальная ширина строки равна 12. Также можно задать height, чтобы блоки имели различные размеры.

Блоки box() выполняют здесь две основные функции: во-первых, они структурируют элементы вашего shinydashboard; во-вторых, позволяют проводить вайрфреймирование — планировать расположение объектов до добавления содержимого.

В этом упражнении вы выполните вайрфреймирование с пустыми блоками.

Пакеты shiny и shinydashboard уже загружены. Заголовок и боковая панель дашборда сохранены в переменных header и sidebar.

Это упражнение является частью курса

Создание дашбордов с помощью shinydashboard

Посмотреть курс

Инструкции к упражнению

  • В первой строке добавьте три box() с шириной 2, 2 и 8.
  • Во второй строке добавьте один box(), который заполняет всю строку и имеет высоту 200.
  • В третьей строке разместите два пустых блока равной ширины с подписями "A slider goes here" и "Some info boxes go here".

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

body <- dashboardBody(
  # Add three boxes with widths 2, 2 and 8
  fluidRow(box("Some buttons go here", ___, height = 100), 
           ___("Checkboxes go here", ___, height = 50),
           ___("A chart goes here", ___, height = 150)),
  # Add one box that fills the entire row and has height 200
  fluidRow(___("Data table goes here"), ___, ___),
  # Add a third row containing two boxes with equal widths
  fluidRow(___)
)

ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){}
shinyApp(ui, server)
Редактировать и запускать код