tests/testthat/helper-zoom.R

In krlmlr/dm: Relational Data Models

# 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
  )
}