Nothing
skip_if_not_installed("duckdb")
test_that("data", {
b = as_duckdb_backend(iris, path = tempfile())
expect_r6(b, "DataBackendDuckDB")
expect_backend(b)
expect_iris_backend(b)
})
test_that("DataBackend", {
b = as_duckdb_backend(mlr3::mlr_tasks$get("iris")$backend, path = tempfile())
expect_r6(b, "DataBackendDuckDB")
expect_iris_backend(b)
expect_backend(b)
})
test_that("Task", {
task = mlr3::tsk("iris")
task$backend = as_duckdb_backend(task$backend, path = tempfile())
expect_r6(task$backend, "DataBackendDuckDB")
expect_backend(task$backend)
expect_task(task)
})
test_that("connector is automatically set", {
b = as_duckdb_backend(iris, path = tempfile())
expect_function(b$connector)
expect_set_equal(ls(environment(b$connector), all.names = TRUE), "path")
})
test_that("parquet converter", {
file = system.file(file.path("extdata", "userdata1.parquet"), package = "mlr3db")
b = as_duckdb_backend(file)
expect_backend(b)
})
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.