tests/testthat/test_viz_slider.R

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

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

test_that("Correct input for viz_slider returns an svg", {
  data <- opencpu_like_parse_json(gettestfilepath('json/answers.json'))
  result = viz_slider(prepare_data(JSON_to_DF(data$answers)));
  
  # # Iterate over several slider images
  for( i in names(result$svgs$slider) ) {
    expect_match(
      result$svgs$slider[[i]],
      "<svg"
    )
  }

  if(Sys.getenv("CI_COMMIT_SHA") == '') {
    for( i in names(result$svgs$slider) ) {
      filename <- paste0("../../svgs/", i , ".svg")
      write(result$svgs$slider[[i]], file = filename, append = FALSE, ncolumns = 1)
    }
  }
})