cdm_draw() draws a schema of the data model using datamodelr (which in turn uses DiagrammeR).

cdm_set_colors() allows to define the colors in which to display the tables of the data model.

cdm_get_colors() returns the colors defined for a data model.

cdm_get_available_colors() returns an overview of the available colors and their names as a tibble.

cdm_draw(dm, rankdir = "LR", col_attr = "column",
  view_type = "keys_only", columnArrows = TRUE, graph_attrs = "",
  node_attrs = "", edge_attrs = "", focus = NULL,
  graph_name = "Data Model")

cdm_set_colors(dm, ...)

cdm_get_colors(dm)

cdm_get_available_colors()

Arguments

dm

A dm object

rankdir

Graph attribute for direction (eg. 'BT' = bottom --> top)

col_attr

Column atributes to display. Only column name (column) is included by default.

view_type

Can be "keys_only" (default), "all" or "title_only". It defines the level of details for the table rendering (only primary and foreign keys, all columns or no columns)

columnArrows

Edges from column to column (default: FALSE)

graph_attrs

Additional graph attributes

node_attrs

Additional node attributes

edge_attrs

Additional edge attributes

focus

A list of parameters for rendering (table filter)

graph_name

A graph name

...

Colors to set in the form table = "<color>" . Fall-through syntax similarly to switch() is supported: table1 = , table2 = "<color>" sets the color for both table1 and table2 . This argument supports splicing.

Value

For cdm_set_colors(): the updated data model.

For cdm_get_colors(), a two-column tibble with one row per table.

For cdm_get_available_colors(), a tibble with the color in the first column and auxiliary information in other columns.

Examples

library(dplyr) cdm_draw(cdm_nycflights13()) cdm_draw(cdm_nycflights13(cycle = TRUE)) cdm_nycflights13(color = FALSE) %>% cdm_set_colors( airports = , airlines = , planes = "yellow", weather = "dark_blue" ) %>% cdm_draw() # Splicing is supported: new_colors <- c( airports = "yellow", airlines = "yellow", planes = "yellow", weather = "dark_blue" ) cdm_nycflights13(color = FALSE) %>% cdm_set_colors(!!!new_colors) %>% cdm_draw()