tests/testthat/_snaps/unique-keys.md
In krlmlr/dm: Relational Data Models
unique keys
Code
nyc_1_uk <- dm_add_uk(dm_nycflights_small(), flights, everything())
nyc_1_uk %>% dm_get_all_uks()
Output
# A tibble: 4 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights year, month, ... (19 total) explicit UK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, c(year, manufacturer, model)) %>% dm_get_all_uks()
Output
# A tibble: 6 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights year, month, ... (19 total) explicit UK
5 flights origin, dest, time_hour explicit UK
6 planes year, manufacturer, model explicit UK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, c(year, manufacturer, model)) %>% dm_rm_uk(flights, c(origin, dest,
time_hour)) %>% dm_get_all_uks()
Output
# A tibble: 5 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights year, month, ... (19 total) explicit UK
5 planes year, manufacturer, model explicit UK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, c(year, manufacturer, model)) %>% dm_rm_uk(flights, everything()) %>%
dm_get_all_uks()
Output
# A tibble: 5 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights origin, dest, time_hour explicit UK
5 planes year, manufacturer, model explicit UK
Code
nyc_1_uk %>% dm_rm_uk() %>% dm_get_all_uks()
Message
Removing unique keys: %>%
dm_rm_uk(flights, c(year, month, day, dep_time, sched_dep_time, dep_delay, arr_time, sched_arr_time, arr_delay, carrier, flight, tailnum, origin, dest, air_time, distance, hour, minute, time_hour))
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
nyc_1_uk %>% dm_rm_uk(flights) %>% dm_get_all_uks()
Message
Removing unique keys: %>%
dm_rm_uk(flights, c(year, month, day, dep_time, sched_dep_time, dep_delay, arr_time, sched_arr_time, arr_delay, carrier, flight, tailnum, origin, dest, air_time, distance, hour, minute, time_hour))
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
nyc_1_uk %>% dm_rm_uk(flights, everything()) %>% dm_get_all_uks()
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, c(year, manufacturer, model)) %>% dm_rm_uk() %>% dm_get_all_uks()
Message
Removing unique keys: %>%
dm_rm_uk(flights, c(year, month, day, dep_time, sched_dep_time, dep_delay, arr_time, sched_arr_time, arr_delay, carrier, flight, tailnum, origin, dest, air_time, distance, hour, minute, time_hour)) %>%
dm_rm_uk(flights, c(origin, dest, time_hour)) %>%
dm_rm_uk(planes, c(year, manufacturer, model))
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, manufacturer) %>% dm_rm_uk() %>% dm_get_all_uks()
Message
Removing unique keys: %>%
dm_rm_uk(flights, c(year, month, day, dep_time, sched_dep_time, dep_delay, arr_time, sched_arr_time, arr_delay, carrier, flight, tailnum, origin, dest, air_time, distance, hour, minute, time_hour)) %>%
dm_rm_uk(flights, c(origin, dest, time_hour)) %>%
dm_rm_uk(planes, manufacturer)
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
dm_examine_constraints(dm_nycflights_small() %>% dm_add_uk(planes, c(year,
manufacturer, model)))
Message
! Unsatisfied constraints:
Output
* Table `planes`: unique key `year`, `manufacturer`, `model`: has duplicate values: 2002, EMBRAER, EMB-145LR (19), 2001, EMBRAER, EMB-145LR (18), 2008, BOMBARDIER INC, CL-600-2D24 (18), 2007, BOMBARDIER INC, CL-600-2D24 (17), 1999, EMBRAER, EMB-145LR (16), ...
* Table `flights`: foreign key `dest` into table `airports`: values of `flights$dest` not in `airports$faa`: SJU (30), BQN (6), STT (4), PSE (2)
* Table `flights`: foreign key `tailnum` into table `planes`: values of `flights$tailnum` not in `planes$tailnum`: N725MQ (6), N537MQ (5), N722MQ (5), N730MQ (5), N736MQ (5), ...
Code
dm_add_fk(dm_nycflights_small(), flights, time_hour, weather, time_hour) %>%
dm_get_all_uks()
Output
# A tibble: 4 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 weather time_hour implicit UK
Code
dm_add_fk(dm_nycflights_small(), flights, time_hour, weather, time_hour) %>%
dm_add_uk(weather, time_hour) %>% dm_get_all_uks()
Output
# A tibble: 4 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 weather time_hour explicit UK
Code
dm_rename(dm_for_filter(), tf_6, p = n) %>% dm_get_all_uks()
Output
# A tibble: 8 x 3
table uk_col kind
<chr> <keys> <chr>
1 tf_1 a PK
2 tf_2 c PK
3 tf_3 f, f1 PK
4 tf_4 h PK
5 tf_5 k PK
6 tf_6 o PK
7 tf_3 g explicit UK
8 tf_6 p implicit UK
Code
dm_rename(dm_for_filter(), tf_6, p = n) %>% dm_get_all_fks()
Output
# A tibble: 5 x 5
child_table child_fk_cols parent_table parent_key_cols on_delete
<chr> <keys> <chr> <keys> <chr>
1 tf_2 d tf_1 a no_action
2 tf_2 e, e1 tf_3 f, f1 no_action
3 tf_4 j, j1 tf_3 f, f1 no_action
4 tf_5 l tf_4 h cascade
5 tf_5 m tf_6 p no_action
Code
dm_select(dm_for_filter(), tf_6, -n) %>% dm_get_all_uks()
Output
# A tibble: 7 x 3
table uk_col kind
<chr> <keys> <chr>
1 tf_1 a PK
2 tf_2 c PK
3 tf_3 f, f1 PK
4 tf_4 h PK
5 tf_5 k PK
6 tf_6 o PK
7 tf_3 g explicit UK
Code
dm_select(dm_for_filter(), tf_6, -n) %>% dm_get_all_fks()
Output
# A tibble: 4 x 5
child_table child_fk_cols parent_table parent_key_cols on_delete
<chr> <keys> <chr> <keys> <chr>
1 tf_2 d tf_1 a no_action
2 tf_2 e, e1 tf_3 f, f1 no_action
3 tf_4 j, j1 tf_3 f, f1 no_action
4 tf_5 l tf_4 h cascade
Code
nyc_1_uk %>% dm_get_all_uks(flights)
Output
# A tibble: 1 x 3
table uk_col kind
<chr> <keys> <chr>
1 flights year, month, ... (19 total) explicit UK
Code
nyc_1_uk %>% dm_get_all_uks("airports")
Output
# A tibble: 1 x 3
table uk_col kind
<chr> <keys> <chr>
1 airports faa PK
Code
nyc_1_uk %>% dm_get_all_uks(c(airports, weather, flights, airlines))
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airports faa PK
2 airlines carrier PK
3 flights year, month, ... (19 total) explicit UK
Code
nyc_1_uk %>% dm_get_all_uks(starts_with("a"))
Output
# A tibble: 2 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
Code
nyc_1_uk %>% dm_get_all_uks(everything())
Output
# A tibble: 4 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights year, month, ... (19 total) explicit UK
(`year`, `manufacturer`, `model`) not a unique key of `planes`.
A PK (`carrier`) for table `airlines` already exists, not adding UK.
A UK (`year`, `month`, `day`, `dep_time`, `sched_dep_time`, ... (19 total)) for table `flights` already exists, not adding UK.
dm_get_all_uks() with table arg fails nicely
object 'nyc_1_uk' not found
object 'nyc_1_uk' not found
krlmlr/dm documentation built on April 19, 2024, 5:23 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
unique keys
Code
nyc_1_uk <- dm_add_uk(dm_nycflights_small(), flights, everything())
nyc_1_uk %>% dm_get_all_uks()
Output
# A tibble: 4 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights year, month, ... (19 total) explicit UK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, c(year, manufacturer, model)) %>% dm_get_all_uks()
Output
# A tibble: 6 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights year, month, ... (19 total) explicit UK
5 flights origin, dest, time_hour explicit UK
6 planes year, manufacturer, model explicit UK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, c(year, manufacturer, model)) %>% dm_rm_uk(flights, c(origin, dest,
time_hour)) %>% dm_get_all_uks()
Output
# A tibble: 5 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights year, month, ... (19 total) explicit UK
5 planes year, manufacturer, model explicit UK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, c(year, manufacturer, model)) %>% dm_rm_uk(flights, everything()) %>%
dm_get_all_uks()
Output
# A tibble: 5 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights origin, dest, time_hour explicit UK
5 planes year, manufacturer, model explicit UK
Code
nyc_1_uk %>% dm_rm_uk() %>% dm_get_all_uks()
Message
Removing unique keys: %>%
dm_rm_uk(flights, c(year, month, day, dep_time, sched_dep_time, dep_delay, arr_time, sched_arr_time, arr_delay, carrier, flight, tailnum, origin, dest, air_time, distance, hour, minute, time_hour))
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
nyc_1_uk %>% dm_rm_uk(flights) %>% dm_get_all_uks()
Message
Removing unique keys: %>%
dm_rm_uk(flights, c(year, month, day, dep_time, sched_dep_time, dep_delay, arr_time, sched_arr_time, arr_delay, carrier, flight, tailnum, origin, dest, air_time, distance, hour, minute, time_hour))
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
nyc_1_uk %>% dm_rm_uk(flights, everything()) %>% dm_get_all_uks()
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, c(year, manufacturer, model)) %>% dm_rm_uk() %>% dm_get_all_uks()
Message
Removing unique keys: %>%
dm_rm_uk(flights, c(year, month, day, dep_time, sched_dep_time, dep_delay, arr_time, sched_arr_time, arr_delay, carrier, flight, tailnum, origin, dest, air_time, distance, hour, minute, time_hour)) %>%
dm_rm_uk(flights, c(origin, dest, time_hour)) %>%
dm_rm_uk(planes, c(year, manufacturer, model))
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
nyc_1_uk %>% dm_add_uk(flights, c(origin, dest, time_hour)) %>% dm_add_uk(
planes, manufacturer) %>% dm_rm_uk() %>% dm_get_all_uks()
Message
Removing unique keys: %>%
dm_rm_uk(flights, c(year, month, day, dep_time, sched_dep_time, dep_delay, arr_time, sched_arr_time, arr_delay, carrier, flight, tailnum, origin, dest, air_time, distance, hour, minute, time_hour)) %>%
dm_rm_uk(flights, c(origin, dest, time_hour)) %>%
dm_rm_uk(planes, manufacturer)
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
Code
dm_examine_constraints(dm_nycflights_small() %>% dm_add_uk(planes, c(year,
manufacturer, model)))
Message
! Unsatisfied constraints:
Output
* Table `planes`: unique key `year`, `manufacturer`, `model`: has duplicate values: 2002, EMBRAER, EMB-145LR (19), 2001, EMBRAER, EMB-145LR (18), 2008, BOMBARDIER INC, CL-600-2D24 (18), 2007, BOMBARDIER INC, CL-600-2D24 (17), 1999, EMBRAER, EMB-145LR (16), ...
* Table `flights`: foreign key `dest` into table `airports`: values of `flights$dest` not in `airports$faa`: SJU (30), BQN (6), STT (4), PSE (2)
* Table `flights`: foreign key `tailnum` into table `planes`: values of `flights$tailnum` not in `planes$tailnum`: N725MQ (6), N537MQ (5), N722MQ (5), N730MQ (5), N736MQ (5), ...
Code
dm_add_fk(dm_nycflights_small(), flights, time_hour, weather, time_hour) %>%
dm_get_all_uks()
Output
# A tibble: 4 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 weather time_hour implicit UK
Code
dm_add_fk(dm_nycflights_small(), flights, time_hour, weather, time_hour) %>%
dm_add_uk(weather, time_hour) %>% dm_get_all_uks()
Output
# A tibble: 4 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 weather time_hour explicit UK
Code
dm_rename(dm_for_filter(), tf_6, p = n) %>% dm_get_all_uks()
Output
# A tibble: 8 x 3
table uk_col kind
<chr> <keys> <chr>
1 tf_1 a PK
2 tf_2 c PK
3 tf_3 f, f1 PK
4 tf_4 h PK
5 tf_5 k PK
6 tf_6 o PK
7 tf_3 g explicit UK
8 tf_6 p implicit UK
Code
dm_rename(dm_for_filter(), tf_6, p = n) %>% dm_get_all_fks()
Output
# A tibble: 5 x 5
child_table child_fk_cols parent_table parent_key_cols on_delete
<chr> <keys> <chr> <keys> <chr>
1 tf_2 d tf_1 a no_action
2 tf_2 e, e1 tf_3 f, f1 no_action
3 tf_4 j, j1 tf_3 f, f1 no_action
4 tf_5 l tf_4 h cascade
5 tf_5 m tf_6 p no_action
Code
dm_select(dm_for_filter(), tf_6, -n) %>% dm_get_all_uks()
Output
# A tibble: 7 x 3
table uk_col kind
<chr> <keys> <chr>
1 tf_1 a PK
2 tf_2 c PK
3 tf_3 f, f1 PK
4 tf_4 h PK
5 tf_5 k PK
6 tf_6 o PK
7 tf_3 g explicit UK
Code
dm_select(dm_for_filter(), tf_6, -n) %>% dm_get_all_fks()
Output
# A tibble: 4 x 5
child_table child_fk_cols parent_table parent_key_cols on_delete
<chr> <keys> <chr> <keys> <chr>
1 tf_2 d tf_1 a no_action
2 tf_2 e, e1 tf_3 f, f1 no_action
3 tf_4 j, j1 tf_3 f, f1 no_action
4 tf_5 l tf_4 h cascade
Code
nyc_1_uk %>% dm_get_all_uks(flights)
Output
# A tibble: 1 x 3
table uk_col kind
<chr> <keys> <chr>
1 flights year, month, ... (19 total) explicit UK
Code
nyc_1_uk %>% dm_get_all_uks("airports")
Output
# A tibble: 1 x 3
table uk_col kind
<chr> <keys> <chr>
1 airports faa PK
Code
nyc_1_uk %>% dm_get_all_uks(c(airports, weather, flights, airlines))
Output
# A tibble: 3 x 3
table uk_col kind
<chr> <keys> <chr>
1 airports faa PK
2 airlines carrier PK
3 flights year, month, ... (19 total) explicit UK
Code
nyc_1_uk %>% dm_get_all_uks(starts_with("a"))
Output
# A tibble: 2 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
Code
nyc_1_uk %>% dm_get_all_uks(everything())
Output
# A tibble: 4 x 3
table uk_col kind
<chr> <keys> <chr>
1 airlines carrier PK
2 airports faa PK
3 planes tailnum PK
4 flights year, month, ... (19 total) explicit UK
(`year`, `manufacturer`, `model`) not a unique key of `planes`.
A PK (`carrier`) for table `airlines` already exists, not adding UK.
A UK (`year`, `month`, `day`, `dep_time`, `sched_dep_time`, ... (19 total)) for table `flights` already exists, not adding UK.
dm_get_all_uks() with table arg fails nicely
object 'nyc_1_uk' not found
object 'nyc_1_uk' not found
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.