## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## ----setup--------------------------------------------------------------------
# library(blockr.core)
# library(blockr.dock)

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block()),
#   grids = list(Page = dock_grid("a"))
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   grids = list(Page = dock_grid("a", "b"))
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   grids = list(Page = dock_grid(list("a", "b")))
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   grids = list(Page = dock_grid(c("a", "b")))
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(
#     a = new_dataset_block(),
#     b = new_head_block(),
#     c = new_head_block()
#   ),
#   grids = list(Page = dock_grid("a", list("b", "c")))
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(
#     a = new_dataset_block(),
#     b = new_head_block(),
#     c = new_head_block(),
#     d = new_head_block()
#   ),
#   grids = list(Page = dock_grid(list("a", "b"), list("c", "d")))
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(
#     a = new_dataset_block(),
#     b = new_head_block(),
#     c = new_head_block()
#   ),
#   grids = list(Page = dock_grid(list("a", list("b", "c"))))
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   extensions = new_edit_board_extension(),
#   grids = list(
#     Page = dock_grid("edit_board", c("a", "b"))
#   )
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   extensions = new_edit_board_extension(),
#   grids = list(
#     Analysis = dock_grid("a", "b"),
#     Editor = dock_grid("edit_board")
#   )
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   views = list(
#     main = dock_view(c("a", "b"), name = "Analysis")
#   ),
#   grids = list(
#     main = dock_grid("a", "b")
#   )
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   extensions = new_edit_board_extension(),
#   grids = list(
#     Analysis = dock_grid("a", "b"),
#     Editor = dock_grid("edit_board")
#   ),
#   active = "Editor"
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   views = list(
#     Analysis = c("a", "b"),
#     Empty = character()
#   )
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(
#     raw = new_dataset_block(),
#     cleaned = new_head_block(),
#     summary = new_head_block(),
#     plot1 = new_scatter_block(),
#     plot2 = new_scatter_block()
#   ),
#   extensions = new_edit_board_extension(),
#   links = list(
#     new_link("raw", "cleaned", "data"),
#     new_link("cleaned", "summary", "data"),
#     new_link("cleaned", "plot1", "data"),
#     new_link("cleaned", "plot2", "data")
#   ),
#   grids = list(
#     Data = dock_grid(
#       "edit_board",
#       panels("raw", "cleaned", active = "cleaned"),
#       sizes = c(0.25, 0.75)
#     ),
#     Analysis = dock_grid(
#       group("summary", "plot1", sizes = c(0.4, 0.6)),
#       "plot2",
#       sizes = c(0.55, 0.45)
#     ),
#     Charts = dock_grid(panels("plot1", "plot2"))
#   ),
#   active = "Charts"
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   grids = list(
#     Main = dock_grid("a", "b", sizes = c(0.3, 0.7))
#   )
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(a = new_dataset_block(), b = new_head_block()),
#   grids = list(
#     Main = dock_grid("a", "b",
#                      orientation = "vertical",
#                      sizes = c(0.25, 0.75))
#   )
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(
#     a = new_dataset_block(),
#     b = new_head_block(),
#     c = new_head_block()
#   ),
#   grids = list(
#     Main = dock_grid(panels("a", "b", "c", active = "b"))
#   )
# )

## -----------------------------------------------------------------------------
# new_dock_board(
#   blocks = c(
#     a = new_dataset_block(),
#     b = new_head_block(),
#     c = new_head_block()
#   ),
#   grids = list(
#     Main = dock_grid(
#       "a",
#       group("b", "c", sizes = c(0.6, 0.4)),
#       sizes = c(0.3, 0.7)
#     )
#   )
# )