Nothing
targets::tar_test("tar_group_size_run()", {
skip_if_not_installed("dplyr")
data <- expand.grid(
var1 = c("a", "b"),
var2 = c("c", "d"),
rep = c(1, 2, 3),
stringsAsFactors = FALSE
)
out <- tar_group_size_run(data, 1)
expect_equal(out$tar_group, seq_len(12))
out <- tar_group_size_run(data, 12)
expect_equal(out$tar_group, rep(1, 12))
out <- tar_group_size_run(data, 4)
expect_equal(out$tar_group, rep(seq_len(3), each = 4))
out <- tar_group_size_run(data, 3)
expect_equal(out$tar_group, rep(seq_len(4), each = 3))
out <- tar_group_size_run(data, 7)
expect_equal(out$tar_group, c(rep(1, 7), rep(2, 5)))
for (size in seq_len(20)) {
out <- tar_group_size_run(data, size)
expect_true(is.data.frame(out))
}
})
targets::tar_test("tar_group_size()", {
skip_if_not_installed("dplyr")
targets::tar_script({
produce_data <- function() {
expand.grid(
var1 = c("a", "b"),
var2 = c("c", "d"),
rep = c(1, 2, 3),
stringsAsFactors = FALSE
)
}
list(
tarchetypes::tar_group_size(data, produce_data(), 4),
tar_target(group, data, pattern = map(data))
)
})
targets::tar_make(callr_function = NULL)
expect_equal(length(tar_meta(group)$children[[1]]), 3L)
for (branch in seq_len(3L)) {
out <- targets::tar_read(group, branches = branch)
expect_equal(nrow(out), 4L)
}
out <- targets::tar_read(group)
expect_equal(nrow(out), 12L)
expect_equal(nrow(dplyr::distinct(out, var1, var2, rep)), 12L)
})
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.