R/gui-dm.R

Defines functions get_dm

get_dm <- function(name) {
  if (name == "nycflights13") {
    return(dm::dm_nycflights13())
  }

  basename <- paste0(name, ".R")
  path <- system.file("relational", basename, package = utils::packageName(), mustWork = TRUE)
  source(path, local = TRUE)$value
}
cynkra/dm documentation built on Jan. 3, 2025, 12:38 p.m.