tests/testthat/test-users_props_subset.R

In psychelzh/tarflow.iquizoo: Setup "targets" Workflows for "iquizoo" Data Processing

skip_if_not(check_source())
targets::tar_test("Ensure subset users props work", {
  targets_list <- tar_prep_iquizoo(
    contents = data.frame(
      project_id = bit64::as.integer64(132121231360389),
      game_id = bit64::as.integer64(268008982646879)
    ),
    what = "scores",
    subset_users_props = "user_name"
  ) |>
    expect_silent()
  expect_targets_list(targets_list)
  targets::tar_script(targets_list)
  targets::tar_make(reporter = "silent", callr_function = NULL)
  targets::tar_read(users) |> expect_named(c("user_id", "user_name"))
})