tests/testthat/test-bmi-functions.R

In LCBC-UiO/Conversions: Collection of functions that convert certain RAW data in the LCBC database

test_that("bmi_calc2 bmi_calc works", {
  expect_equivalent(bmi_calc2(176, 72), 17.52067, tolerance = .0001)
  expect_equivalent(bmi_calc(176, 72), 23.2438, tolerance = .0001)
  
  dt <- data.frame(height = c(172, 164, 192), 
                   weight = c(72, 45, 110))
  
  ret_dt <- mutate(dt, 
                   bmi = bmi_calc(height, weight),
                   bmi2 = bmi_calc2(height, weight))
  
  expect_equal(ret_dt$bmi,
               c(24.33, 16.731, 29.83940), 
               tolerance = .001)
  
  expect_equal(ret_dt$bmi2,
               c(18.557, 13.0648, 21.5347), 
               tolerance = .001)
  
})



test_that("bmi_unit works", {
  expect_error(bmi_unit(), "missing")
  expect_error(bmi_unit(height = 200), "missing")
  
  expect_equivalent(bmi_unit(200, 80),
                    list(height = 2, weight = 80))
  
  expect_equivalent(bmi_unit(200, 80, unit = list(height = "cm", weight = "kg")),
                    list(height = 2, weight = 80))
  
  expect_equivalent(bmi_unit(2, 80, unit = list(height = "m", weight = "kg")),
                    list(height = 2, weight = 80))
  
  expect_equivalent(bmi_unit(2, 8000, unit = list(height = "m", weight = "g")),
                    list(height = 2, weight = 80))
  
})