Nothing
test_that("basic test: 'unite()'-methods work", {
# see issue #361
skip_if_remote_src()
expect_equivalent_tbl(
dm_zoomed() %>%
unite("new_col", c, e) %>%
tbl_zoomed(),
unite(tf_2(), "new_col", c, e)
)
expect_equivalent_tbl(
dm_for_filter() %>%
pull_tbl(tf_2, keyed = TRUE) %>%
unite("new_col", c, e) %>%
unclass_keyed_tbl(),
unite(tf_2(), "new_col", c, e)
)
expect_dm_error(
unite(dm_for_filter()),
"only_possible_w_zoom"
)
})
test_that("basic test: 'separate()'-methods work", {
skip_if_remote_src()
expect_equivalent_tbl(
dm_zoomed() %>%
unite("new_col", c, e) %>%
separate("new_col", c("c", "e")) %>%
select(c, d, e, e1) %>%
tbl_zoomed(),
tf_2()
)
expect_equivalent_tbl(
dm_for_filter() %>%
pull_tbl(tf_2, keyed = TRUE) %>%
unite("new_col", c, e) %>%
separate("new_col", c("c", "e")) %>%
select(c, d, e, e1),
dm_for_filter() %>%
pull_tbl(tf_2, keyed = TRUE)
)
expect_dm_error(
separate(dm_for_filter()),
"only_possible_w_zoom"
)
})
test_that("key tracking works", {
skip_if_remote_src()
expect_snapshot({
dm_zoomed() %>%
unite("new_col", c, e) %>%
dm_update_zoomed() %>%
get_all_keys()
dm_zoomed() %>%
unite("new_col", c, e, remove = FALSE) %>%
dm_update_zoomed() %>%
get_all_keys()
dm_zoomed() %>%
unite("new_col", c, e, remove = FALSE) %>%
dm_update_zoomed() %>%
dm_add_fk(tf_2, new_col, tf_6) %>%
dm_zoom_to(tf_2) %>%
separate(new_col, c("c", "e"), remove = TRUE) %>%
dm_update_zoomed() %>%
get_all_keys()
dm_zoomed() %>%
unite("new_col", c, e, remove = FALSE) %>%
dm_update_zoomed() %>%
dm_add_fk(tf_2, new_col, tf_6) %>%
dm_zoom_to(tf_2) %>%
separate(new_col, c("c", "e"), remove = FALSE) %>%
dm_update_zoomed() %>%
get_all_keys()
})
})
# tests for compound keys -------------------------------------------------
test_that("output for compound keys", {
# FIXME: COMPOUND: Need proper test
skip_if_remote_src()
expect_snapshot({
unite_weather_dm <-
nyc_comp() %>%
dm_zoom_to(weather) %>%
mutate(chr_col = "airport") %>%
unite("new_col", origin, chr_col) %>%
dm_update_zoomed()
unite_weather_dm %>% get_all_keys()
unite_weather_dm %>% get_all_keys()
unite_flights_dm <-
nyc_comp() %>%
dm_zoom_to(flights) %>%
mutate(chr_col = "airport") %>%
unite("new_col", origin, chr_col) %>%
dm_update_zoomed()
unite_flights_dm %>% get_all_keys()
unite_flights_dm %>% get_all_keys()
nyc_comp() %>%
dm_zoom_to(weather) %>%
separate(origin, c("o1", "o2"), sep = "^..", remove = TRUE) %>%
dm_update_zoomed()
nyc_comp() %>%
dm_zoom_to(weather) %>%
separate(origin, c("o1", "o2"), sep = "^..", remove = FALSE) %>%
dm_update_zoomed()
})
})
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.