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
}

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.