Cran comment updates

DESCRIPTION

@@ -13,7 +13,7 @@ Authors@R: c(
  email = "[email protected]",
  role = "aut")
  )
-Description: R package for reading and writing CDISC Dataset JSON files.
+Description: Read, construct and write CDISC (Clinical Data Interchange Standards Consortium) Dataset JSON (JavaScript Object Notation) files, while validating per the Dataset JSON schema file, as described in CDISC (2023) <https://www.cdisc.org/dataset-json>.
 URL: https://github.com/atorus-research/datasetjson
 BugReports: https://github.com/atorus-research/datasetjson/issues
 Encoding: UTF-8

R/validate_dataset_json.R

@@ -22,10 +22,10 @@
 validate_dataset_json <- function(x) {
  v <- jsonvalidate::json_validate(x, schema_1_0_0, engine="ajv", verbose=TRUE)
  if (!v) {
- cat("File contains errors!")
+ warning("File contains errors!")
  return(attr(v, 'errors'))
  } else {
- cat("File is valid per the Dataset JSON v1.0.0 schema\n")
+ message("File is valid per the Dataset JSON v1.0.0 schema\n")
  data.frame(
  instancePath = character(),
  schemaPath = character(),

R/write_dataset_json.R

@@ -4,7 +4,7 @@
 #' @param file File path to save Dataset JSON file
 #' @param pretty If TRUE, write with readable formatting
 #'
-#' @return NULL
+#' @return NULL when file written to disk, otherwise character string
 #' @export
 #'
 #' @examples

tests/testthat/test-read_dataset_json.R

@@ -44,7 +44,7 @@ test_that("read_dataset_json matches xpt", {
 
  # # ae
  expect_error(read_dataset_json(test_path("testdata", "ae.json")), "Dataset JSON file is invalid")
- expect_snapshot(e <- validate_dataset_json(test_path("testdata", "ae.json")))
+ expect_warning(e <- validate_dataset_json(test_path("testdata", "ae.json")), "File contains errors!")
 
  # Simple crosscheck of the number of errors without verifying the whole dataframe
  expect_equal(nrow(e), 87)

tests/testthat/test-validate_dataset_json.R

@@ -3,6 +3,6 @@ test_that("validate_dataset_json returns correct messages", {
  ds_json <- dataset_json(iris, "IG.IRIS", "IRIS", "Iris", iris_items)
  js <- write_dataset_json(ds_json)
 
- expect_snapshot(validate_dataset_json(js))
+ expect_message(validate_dataset_json(js), "File is valid per the Dataset JSON v1.0.0 schema")
 
 })