tests/testthat/test-write_odf.R

In opendataformat: Reading and Writing Open Data Format Files

#' write_odf: default setting: languages = "all",
#' variable_metadata = "yes", export_data = TRUE
test_that("write_odf_default_setting", {
  # - get data
  df <- get(load("testdata/data_odf.RData"))
  # make xml and data
  write_odf(
    x = df,
    file = paste0(tempdir(), "/MY_XML.odf.zip")
  )
  # -- test if file exists
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/data.csv")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/metadata.xml")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/odf-version.json")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf.zip")))
  unlink(paste0(tempdir(), "/*"), recursive = TRUE)
})

#' write_odf: default setting: languages = "all",
#' variable_metadata = "yes", export_data = TRUE
test_that("write_odf_default_setting_vers1.0.0", {
  # - get data
  df <- get(load("testdata/data_odf.RData"))
  # make xml and data
  write_odf(
    x = df,
    file = paste0(tempdir(), "/MY_XML.zip"),
    odf_vers = "1.0.0"
  )
  # -- test if file exists
  expect_true(file.exists(paste0(tempdir(), "/MY_XML/data.csv")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML/metadata.xml")))
  expect_false(file.exists(paste0(tempdir(), "/MY_XML/odf-version.json")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.zip")))
  unlink(paste0(tempdir(), "/*"), recursive = TRUE)
})


#' write_odf test export_data argument
test_that("write_odf_export_data", {
  # - get data
  df <- get(load("testdata/data_odf.RData"))
  # make xml and data with export_datat = yes
  write_odf(
    x = df,
    file = paste0(tempdir(), "/MY_XML.odf.zip"),
    export_data = TRUE
  )
  # -- test if file exists
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/data.csv")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/metadata.xml")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/odf-version.json")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf.zip")))
  unlink(paste0(tempdir(), "/*"), recursive = TRUE)
  # make xml and data with export_datat = no
  write_odf(
    x = df,
    file = paste0(tempdir(), "/MY_XML.odf.zip"),
    export_data = FALSE # changed
  )
  # -- test if file exists
  expect_false(file.exists(paste0(tempdir(), "/MY_XML.odf/data.csv")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/metadata.xml")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/odf-version.json")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf.zip")))
  unlink(paste0(tempdir(), "/*"), recursive = TRUE)
})

#' write_odf test languages argument
test_that("write_odf_languages", {
  # - get data
  df <- get(load("testdata/data_odf.RData"))
  # make xml and data with languages = default
  write_odf(
    x = df,
    file = paste0(tempdir(), "/MY_XML.odf.zip"),
    languages = "en"
  )
  # -- test if file exists
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/data.csv")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/metadata.xml")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/odf-version.json")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf.zip")))
  df <- read_odf(paste0(tempdir(), "/MY_XML.odf.zip"),
                 languages = "all",
                 nrows = 0)
  expect_equal(attr(df, "languages"), "en")
  unlink(paste0(tempdir(), "/*"), recursive = TRUE)
  df <- get(load("testdata/data_odf.RData"))
  # make xml and data with languages = de
  write_odf(
    x = df,
    file = paste0(tempdir(), "/MY_XML"),
    languages = "de"
  )
  # -- test if file exists
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/data.csv")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/metadata.xml")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf/odf-version.json")))
  expect_true(file.exists(paste0(tempdir(), "/MY_XML.odf.zip")))
  df <- read_odf(paste0(tempdir(), "/MY_XML.odf.zip"),
                 languages = "all",
                 nrows = 0)
  expect_equal(attr(df, "languages"), "de")
  unlink(paste0(tempdir(), "/*"), recursive = TRUE)
  df <- get(load("testdata/data_odf.RData"))
  # make xml and data with languages = notvalid
  expect_error(write_odf(
    x = df,
    file = paste0(tempdir(), "/MY_XML.odf.zip"),
    languages = "notvalid"
  ) , paste0("language(s) notvalid not available."), fixed = TRUE)
  # -- test if file exists
  expect_false(file.exists(paste0(tempdir(), "/MY_XML.odf/data.csv")))
  expect_false(file.exists(paste0(tempdir(), "/MY_XML.odf/metadata.xml")))
  expect_false(file.exists(paste0(tempdir(), "/MY_XML.odf/odf-version.json")))
  expect_false(file.exists(paste0(tempdir(), "/MY_XML.odf.zip")))
  unlink(paste0(tempdir(), "/*"), recursive = TRUE)
})