tech-dm-draw.R
In dm: Relational Data Models

## ----setup, include = FALSE----------------------------------------------
source("setup/setup.R")

## ------------------------------------------------------------------------
#  library(dm)
#  library(dplyr)
#  flights_dm_w_many_keys <- dm_nycflights13(cycle = TRUE, color = FALSE)
#  flights_dm_w_many_keys

## ------------------------------------------------------------------------
#  dm_draw(flights_dm_w_many_keys)

## ------------------------------------------------------------------------
#  dm_get_available_colors()

## ------------------------------------------------------------------------
#  flights_dm_w_many_keys_and_colors <-
#    flights_dm_w_many_keys %>%
#    dm_set_colors(
#      maroon4 = flights,
#      orange = starts_with("air"),
#      "#5986C4" = planes
#    )

## ------------------------------------------------------------------------
#  dm_draw(flights_dm_w_many_keys_and_colors)

## ------------------------------------------------------------------------
#  dm_get_colors(flights_dm_w_many_keys_and_colors)

## ------------------------------------------------------------------------
#  flights_dm_w_many_keys_and_colors %>%
#    dm_draw(view_type = "title_only")

## ------------------------------------------------------------------------
#  flights_dm_w_many_keys_and_colors %>%
#    dm_select_tbl(flights, airports, planes) %>%
#    dm_draw()

## ----eval = default_eval() && rlang::is_installed("DiagrammeRsvg")-------
#  flights_dm_w_many_keys_and_colors %>%
#    dm_select_tbl(flights, airports, planes) %>%
#    dm_draw() %>%
#    DiagrammeRsvg::export_svg() %>%
#    write("flights_dm_w_many_keys_and_color.svg")