tests/testthat/test-10-report.R

In validmeasures/ramOP: An Implementation of Rapid Assessment Method for Older People

report_op_table(estimate_op_all(x = indicators.ALL, w = testPSU, replicates = 19),
                filename = paste(tempdir(), "TEST", sep = "/"))

test_that("output file exists", {
  expect_true(file.exists(paste(tempdir(), "TEST.report.csv", sep = "/")))
})

report_op_html(estimates = estimate_op_all(x = indicators.ALL,
                                           w = testPSU,
                                           replicates = 19),
               svy = testSVY,
               filename = paste(tempdir(), "htmlReport", sep = "/"))

test_that("output file exists", {
  expect_true(file.exists(paste(tempdir(), "htmlReport.html", sep = "/")))
  expect_true(file.exists(paste(tempdir(), "htmlReport.Rmd", sep = "/")))
})


report_op_docx(estimates = estimate_op_all(x = indicators.ALL,
                                           w = testPSU,
                                           replicates = 19),
               svy = testSVY,
               filename = paste(tempdir(), "wordReport", sep = "/"))

test_that("output file exists", {
  expect_true(file.exists(paste(tempdir(), "wordReport.docx", sep = "/")))
  expect_true(file.exists(paste(tempdir(), "wordReport.Rmd", sep = "/")))
})


report_op_odt(estimates = estimate_op_all(x = indicators.ALL,
                                          w = testPSU,
                                          replicates = 19),
               svy = testSVY,
               filename = paste(tempdir(), "odtReport", sep = "/"))

test_that("output file exists", {
  expect_true(file.exists(paste(tempdir(), "odtReport.odt", sep = "/")))
  expect_true(file.exists(paste(tempdir(), "odtReport.Rmd", sep = "/")))
})