tests/testthat/_snaps/add-tbl.md

dm_add_tbl() snapshots

Code
  dm_add_tbl(dm_for_filter(), tf_1 = data_card_1(), repair = "check_unique")
Condition
  Warning:
  `dm_add_tbl()` was deprecated in dm 1.0.0.
  i Please use `dm()` instead.
  i Use `.name_repair = "unique"` if necessary.
  Error in `abort_need_unique_names()`:
  ! Each new table needs to have a unique name. Duplicate new name(s): `tf_1`.
Code
  dm_add_tbl(dm_for_flatten(), res_flat = result_from_flatten()) %>% dm_paste(
    options = c("select", "keys"))
Condition
  Warning:
  `dm_add_tbl()` was deprecated in dm 1.0.0.
  i Please use `dm()` instead.
  i Use `.name_repair = "unique"` if necessary.
Message
  dm::dm(
    fact,
    dim_1,
    dim_2,
    dim_3,
    dim_4,
    res_flat,
  ) %>%
    dm::dm_select(fact, fact, dim_1_key_1, dim_1_key_2, dim_2_key, dim_3_key, dim_4_key, something) %>%
    dm::dm_select(dim_1, dim_1_pk_1, dim_1_pk_2, something) %>%
    dm::dm_select(dim_2, dim_2_pk, something) %>%
    dm::dm_select(dim_3, dim_3_pk, something) %>%
    dm::dm_select(dim_4, dim_4_pk, something) %>%
    dm::dm_select(res_flat, fact, dim_1_key_1, dim_1_key_2, dim_2_key, dim_3_key, dim_4_key, fact.something, dim_1.something, dim_2.something, dim_3.something, dim_4.something) %>%
    dm::dm_add_pk(dim_1, c(dim_1_pk_1, dim_1_pk_2)) %>%
    dm::dm_add_pk(dim_2, dim_2_pk) %>%
    dm::dm_add_pk(dim_3, dim_3_pk) %>%
    dm::dm_add_pk(dim_4, dim_4_pk) %>%
    dm::dm_add_fk(fact, c(dim_1_key_1, dim_1_key_2), dim_1) %>%
    dm::dm_add_fk(fact, dim_2_key, dim_2) %>%
    dm::dm_add_fk(fact, dim_3_key, dim_3) %>%
    dm::dm_add_fk(fact, dim_4_key, dim_4)

dm_rm_tbl() snapshot

Code
  dm_rm_tbl(dm_for_flatten(), dim_1) %>% dm_paste(options = c("select", "keys"))
Condition
  Warning:
  `dm_rm_tbl()` was deprecated in dm 1.0.0.
  i Please use `dm_select_tbl()` instead.
Message
  dm::dm(
    fact,
    dim_2,
    dim_3,
    dim_4,
  ) %>%
    dm::dm_select(fact, fact, dim_1_key_1, dim_1_key_2, dim_2_key, dim_3_key, dim_4_key, something) %>%
    dm::dm_select(dim_2, dim_2_pk, something) %>%
    dm::dm_select(dim_3, dim_3_pk, something) %>%
    dm::dm_select(dim_4, dim_4_pk, something) %>%
    dm::dm_add_pk(dim_2, dim_2_pk) %>%
    dm::dm_add_pk(dim_3, dim_3_pk) %>%
    dm::dm_add_pk(dim_4, dim_4_pk) %>%
    dm::dm_add_fk(fact, dim_2_key, dim_2) %>%
    dm::dm_add_fk(fact, dim_3_key, dim_3) %>%
    dm::dm_add_fk(fact, dim_4_key, dim_4)
Code
  dm_rm_tbl(dm_for_flatten(), fact) %>% dm_paste(options = c("select", "keys"))
Condition
  Warning:
  `dm_rm_tbl()` was deprecated in dm 1.0.0.
  i Please use `dm_select_tbl()` instead.
Message
  dm::dm(
    dim_1,
    dim_2,
    dim_3,
    dim_4,
  ) %>%
    dm::dm_select(dim_1, dim_1_pk_1, dim_1_pk_2, something) %>%
    dm::dm_select(dim_2, dim_2_pk, something) %>%
    dm::dm_select(dim_3, dim_3_pk, something) %>%
    dm::dm_select(dim_4, dim_4_pk, something) %>%
    dm::dm_add_pk(dim_1, c(dim_1_pk_1, dim_1_pk_2)) %>%
    dm::dm_add_pk(dim_2, dim_2_pk) %>%
    dm::dm_add_pk(dim_3, dim_3_pk) %>%
    dm::dm_add_pk(dim_4, dim_4_pk)


Try the dm package in your browser

Any scripts or data that you put into this service are public.

dm documentation built on Nov. 2, 2023, 6:07 p.m.