tests/testthat/test-tar_formats.R

In tarchetypes: Archetypes for Targets

targets::tar_test("tar_format_api()", {
  expect_null(tar_format_api(x, 1))
})

targets::tar_test("tar_format_alias()", {
  f <- tar_format_alias("file")
  x <- f(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "file")
})

targets::tar_test("tar_rds() runs", {
  targets::tar_script(list(tarchetypes::tar_rds(x, 0L)))
  targets::tar_make(callr_function = NULL)
  expect_equal(targets::tar_read(x), 0L)
})

targets::tar_test("tar_rds() with pattern", {
  x <- tar_rds(x, 1, pattern = map(y))
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$dimensions, "y")
})

targets::tar_test("tar_url()", {
  x <- tar_url(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "url")
})

targets::tar_test("tar_file()", {
  x <- tar_file(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "file")
})

targets::tar_test("tar_file_fast()", {
  x <- tar_file_fast(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "file_fast")
})

targets::tar_test("tar_rds()", {
  x <- tar_rds(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "rds")
})

targets::tar_test("tar_qs()", {
  x <- tar_qs(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "qs")
})

targets::tar_test("tar_format_feather()", {
  x <- tar_format_feather(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "feather")
})

targets::tar_test("tar_parquet()", {
  x <- tar_parquet(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "parquet")
})

targets::tar_test("tar_fst()", {
  x <- tar_fst(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "fst")
})

targets::tar_test("tar_fst_dt()", {
  x <- tar_fst_dt(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "fst_dt")
})

targets::tar_test("tar_fst_tbl()", {
  x <- tar_fst_tbl(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "fst_tbl")
})

targets::tar_test("tar_keras()", {
  x <- tar_keras(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "keras")
})

targets::tar_test("tar_torch()", {
  x <- tar_torch(x, 0)
  expect_true(inherits(x, "tar_target"))
  expect_equal(x$settings$format, "torch")
})

targets::tar_test("tar_aws_file()", {
  x <- suppressWarnings(tar_aws_file(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("file", x$settings$format))
})

targets::tar_test("tar_aws_rds()", {
  x <- suppressWarnings(tar_aws_rds(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("rds", x$settings$format))
})

targets::tar_test("tar_aws_qs()", {
  x <- suppressWarnings(tar_aws_qs(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("qs", x$settings$format))
})

targets::tar_test("tar_format_aws_feather()", {
  x <- suppressWarnings(tar_format_aws_feather(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("feather", x$settings$format))
})

targets::tar_test("tar_aws_parquet()", {
  x <- suppressWarnings(tar_aws_parquet(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("parquet", x$settings$format))
})

targets::tar_test("tar_aws_fst()", {
  x <- suppressWarnings(tar_aws_fst(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("fst", x$settings$format))
})

targets::tar_test("tar_aws_fst_dt()", {
  x <- suppressWarnings(tar_aws_fst_dt(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("fst_dt", x$settings$format))
})

targets::tar_test("tar_aws_fst_tbl()", {
  x <- suppressWarnings(tar_aws_fst_tbl(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("fst_tbl", x$settings$format))
})

targets::tar_test("tar_aws_keras()", {
  x <- suppressWarnings(tar_aws_keras(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("keras", x$settings$format))
})

targets::tar_test("tar_aws_torch()", {
  x <- suppressWarnings(tar_aws_torch(x, 0))
  expect_true(inherits(x, "tar_target"))
  expect_true(grepl("torch", x$settings$format))
})