tests/testthat/helper-zoom.R

# helper to check if key tracking works
get_all_keys <- function(dm, table_name = NULL) {
  fks <-
    dm_get_all_fks_impl(dm, table_name)
  pks <-
    dm_get_all_pks_impl(dm, table_name)

  list(
    pks = pks,
    fks = fks
  )
}

Try the dm package in your browser

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

dm documentation built on May 29, 2024, 11:41 a.m.