# NOT RUN {
my_data_packs <- data_packs(
data_dims = . %>% dplyr::summarise(nrow_low = nrow(.) < 10),
data_sum = . %>% dplyr::summarise(sum = sum(.) < 1000)
)
ref_exposure <- mtcars %>% expose(my_data_packs) %>% get_exposure()
exposure_1 <- mtcars %>% expose(my_data_packs[1]) %>% get_exposure()
exposure_2 <- mtcars %>% expose(my_data_packs[2]) %>% get_exposure()
exposure_binded <- bind_exposures(exposure_1, exposure_2)
exposure_pipe <- mtcars %>%
expose(my_data_packs[1]) %>% expose(my_data_packs[2]) %>%
get_exposure()
identical(exposure_binded, ref_exposure)
identical(exposure_pipe, ref_exposure)
# }
Run the code above in your browser using DataLab