context("CSV/Json Handler")
# Check if exporting and importing a csv file works properly
test_that("CSV Export/Import Test", {
csvExport(mlr.benchmark.example, "test.csv")
dt = csvImport("test.csv")
file.remove("test.csv")
# Workaround to avoid difference between named empty list and list()
dt2 = cbind(mlr.benchmark.example)
dt2$algorithm.parameter = sapply(mlr.benchmark.example$algorithm.parameter, function(x) {
# Check if list is empty
if (!length(x)) {
return(list())
}
return(x)
})
expect_equal(dt, dt2)
})
# Check if exporting and importing a json file works properly
test_that("Json Export/Import Test", {
jsonExport(mlr.benchmark.example, "test.json")
dt = jsonImport("test.json")
file.remove("test.json")
# Workaround to avoid difference between named empty list and list()
dt2 = cbind(mlr.benchmark.example)
dt2$algorithm.parameter = sapply(mlr.benchmark.example$algorithm.parameter, function(x) {
# Check if list is empty
if (!length(x)) {
return(list())
}
return(x)
})
expect_equal(dt, dt2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.