tests/testthat/test_viz_report_grid.R

In gertstulp/ggzcentraal: Creates Relevant Figures from GGZ-centraal data

test_that("viz_report_grid correct output", {
  # viz_report_grid expects dataframe
  expect_identical(viz_report_grid(NULL), list(error = "Input not a dataframe"))
  expect_identical(viz_report_grid(NA), list(error = "Input not a dataframe"))
  expect_identical(viz_report_grid(c(1, 2, 3)), list(error = "Input not a dataframe"))
  
  # error should be the same as the one prepare_data gives
  expect_identical(viz_report_grid(prepare_data(c(1, 2, 3)))[[1]], 
                   prepare_data(c(1, 2, 3)))
  expect_identical(viz_report_grid(prepare_data(patientdata[, -1]))[[1]], 
                   prepare_data(patientdata[, -1]))
  
  # correct output viz_report_grid is a svg string
  # expect_identical(class(viz_report_grid(prepare_data(patientdata))[[1]])[2], 
  #                  "svg")
})

test_that("Correct input for viz_report_grid returns an svg", {
  data <- opencpu_like_parse_json(gettestfilepath('json/answers.json'))
  result = viz_report_grid(prepare_data(JSON_to_DF(data$answers)));
  expect_match(
    result$svgs$grid,
    "<svg"
  )
  if(Sys.getenv("CI_COMMIT_SHA") == '') {
    write(result$svgs$grid, file = "../../svgs/grid.svg", append = FALSE, ncolumns = 1)
  }
})