tests/testthat/test-helpers.R

In datasetjson: Read and Write CDISC Dataset JSON Files

test_that("Column metadata can extract properly", {
  ds_json <- dataset_json(
    iris,
    item_oid = "IG.IRIS",
    name = "IRIS",
    dataset_label = "Iris",
    columns = iris_items
  )

  x <- get_column_metadata(ds_json)
  x<-x[c("itemOID", "name", "label", "dataType", "length", "keySequence")]
  expect_equal(x, as.data.frame(iris_items))
})

test_that("Variable attributes can be applied", {

  iris2 <- iris
  iris2$Species <- as.character(iris$Species)

  ds_json <- dataset_json(
    iris2,
    item_oid = "IG.IRIS",
    name = "IRIS",
    dataset_label = "Iris",
    columns = iris_items
  )

  ds_json <- set_variable_attributes(ds_json)

  expect_equal(
    attributes(ds_json$Sepal.Length),
    list(
      itemOID = "IT.IR.Sepal.Length",
      label = "Sepal Length",
      dataType = "float",
      keySequence=2
    )
  )

  expect_equal(
    attributes(ds_json$Sepal.Width),
    list(
      itemOID = "IT.IR.Sepal.Width",
      label = "Sepal Width",
      dataType = "float"
    )
  )

  expect_equal(
    attributes(ds_json$Petal.Length),
    list(
      itemOID = "IT.IR.Petal.Length",
      label = "Petal Length",
      dataType = "float",
      keySequence=3
    )
  )


  expect_equal(
    attributes(ds_json$Petal.Width),
    list(
      itemOID = "IT.IR.Petal.Width",
      label = "Petal Width",
      dataType = "float"
    )
  )

  expect_equal(
    attributes(ds_json$Species),
    list(
      itemOID = "IT.IR.Species",
      label = "Flower Species",
      dataType = "string",
      length = 10L,
      keySequence=1
    )
  )

})