Nothing
Code
call_to_char(body(function(.) dm_add_tbl(., weather)))
Output
[1] "dm_add_tbl(weather)"
Code
call_to_char(expr(dm_add_tbl(., weather, airports, flights, airlines, planes,
mtcars, penguins)))
Output
[1] "dm_add_tbl(weather, airports, flights, airlines, planes, mtcars, penguins)"
Code
new_cg_block()
new_cg_block(quo(dm_nycflights13()), list(function(.) dm_add_pk(., flights,
flight_id)))
Output
dm_nycflights13() %>%
dm_add_pk(flights, flight_id)
Code
table <- "flights"
columns <- "carrier"
cg_block <- new_cg_block(quo(dm_nycflights13())) %>% cg_add_call(dm_rm_fk(.,
table = !!sym(table), columns = !!sym(columns), ref_table = airlines)) %>%
cg_add_call(dm_rm_fk(., table = flights, columns = c(origin, time_hour),
ref_table = weather)) %>% cg_add_call(dm_add_fk(., table = !!sym(table),
columns = !!sym(columns), ref_table = airlines))
cg_block
Output
dm_nycflights13() %>%
dm_rm_fk(table = flights, columns = carrier, ref_table = airlines) %>%
dm_rm_fk(table = flights, columns = c(origin, time_hour), ref_table = weather) %>%
dm_add_fk(table = flights, columns = carrier, ref_table = airlines)
Code
cg_eval_block(cg_block)
Output
-- Metadata --------------------------------------------------------------------
Tables: `airlines`, `airports`, `flights`, `planes`, `weather`
Columns: 53
Primary keys: 4
Foreign keys: 3
Code
cg_block_2 <- new_cg_block(cg_block$cg_input_object, list(function(.) dm(.,
mtcars), function(.) dm_select_tbl(., -planes)))
cg_block_2
Output
dm_nycflights13() %>%
dm(mtcars) %>%
dm_select_tbl(-planes)
Code
cg_eval_block(cg_block_2)
Output
-- Metadata --------------------------------------------------------------------
Tables: `airlines`, `airports`, `flights`, `weather`, `mtcars`
Columns: 55
Primary keys: 3
Foreign keys: 3
Code
format(new_cg_block(quo(dm_nycflights13()), list(function(.) dm_add_pk(.,
flights, flight_id))))
Output
[1] "dm_nycflights13() %>%" " dm_add_pk(flights, flight_id)"
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.