tests/testthat/test-Excel_use_cases.R

In n8thangreen/LTBIscreeningproject: LTBI screening cost-effectiveness analysis

context("Excel_use_cases")

test_that("Excel_use_cases", {

  ## use case scenarios definitions:
  # file_tag <- "_test"
  ## i.e. use source("scripts/01-data-prep_scenario.R", echo = TRUE)
  ## with "data/scenario-parameter-values_test.xlsx

  ## select cohort from:
  # "R/create--single_migrant_cohort_Excel_test_cases.R"

  ## spreadsheet model output:
  # excel_data <- read.csv(file = "excel_use_cases_output.csv")

  #   expect_equivalent(tb_cost[1, ], excel_data$tb_cost)
  #   expect_equivalent(tb_QALYgain[1, ], excel_data$tb_QALYgain)
  #   expect_equivalent(LTBI_cost[1, ], excel_data$LTBI_cost)
  #   expect_equivalent(LTBI_QALYgain[1, ], excel_data$LTBI_QALYgain)

})