# NOT RUN {
library(dplyr)
dm(dplyr::src_df(pkg = "nycflights13"))
as_dm(list(iris = iris, mtcars = mtcars))
cdm_nycflights13() %>% tbl("airports")
cdm_nycflights13() %>% src_tbls()
cdm_nycflights13() %>% cdm_get_src()
cdm_nycflights13() %>% cdm_get_tables()
cdm_nycflights13() %>% cdm_get_data_model()
cdm_nycflights13() %>%
cdm_rename_tbl(ap = airports)
cdm_nycflights13() %>%
cdm_rename_tbl(ap = airports, fl = flights)
# }
Run the code above in your browser using DataLab