tests/interactive/test-print.R

In targets: Dynamic Function-Oriented 'Make'-Like Declarative Pipelines

tar_test("print stem", {
  resources <- tar_resources(
    clustermq = tar_resources_clustermq(
      template = list(cpu = 1, mem = 2)
    )
  )
  x <- tar_target(x, {
    a <- 1
    b
  }, resources = resources)
  print(x)
  expect_equal(1, 1)
})

tar_test("print map", {
  print(tar_target(x, 1, pattern = map(y, z)))
  expect_equal(1, 1)
})

tar_test("print cross", {
  print(tar_target(x, 1, cross(y, z)))
  expect_equal(1, 1)
})

tar_test("print empty pipeline", {
  print(pipeline_init())
  expect_equal(1, 1)
})

tar_test("print pipeline with 1 target", {
  print(suppressWarnings(pipeline_init(list(tar_target(x, 1, cross(y, z))))))
  expect_equal(1, 1)
})

tar_test("print pipeline with 2 targets", {
  print(
    pipeline_init(
      list(
        tar_target(x, 1),
        tar_target(y, 1)
      )
    )
  )
  expect_equal(1, 1)
})

tar_test("print cue", {
  print(tar_cue())
  expect_equal(1, 1)
})

tar_test("print aws resources", {
  print(resources_aws_init(bucket = "bucket_name"))
  expect_equal(1, 1)
})

tar_test("print clustermq resources", {
  print(resources_clustermq_init(template = list(a = 1)))
  expect_equal(1, 1)
})

tar_test("print feather resources", {
  print(resources_feather_init(compression = "zstd"))
  expect_equal(1, 1)
})

tar_test("print fst resources", {
  print(resources_fst_init(compress = 50))
  expect_equal(1, 1)
})

tar_test("print future resources", {
  print(resources_future_init(resources = list(a = 1)))
  expect_equal(1, 1)
})

tar_test("print parquet resources", {
  print(resources_parquet_init(compression = "zstd"))
  expect_equal(1, 1)
})

tar_test("print qs resources", {
  print(resources_qs_init(preset = "high"))
  expect_equal(1, 1)
})

tar_test("print url resources", {
  skip_if_not_installed("curl")
  print(resources_url_init(handle = curl::new_handle()))
  expect_equal(1, 1)
})