Nothing
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 <- suppressWarnings(tar_file_fast(x, 0))
expect_true(inherits(x, "tar_target"))
})
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_arrow_feather()", {
x <- tar_arrow_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))
})
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.