tests/testthat/test_1-2-0-weight2rows.R

context("weight2rows")

test_that("Non-numeric var", {
  expect_error(weight2rows(data.frame(x = 1:10,
                                      y = letters[1:5],
                                      stringsAsFactors = FALSE),
                           "y"), 
               regexp = "Non-numeric weight.var",
               fixed = TRUE)
})
HughParsonage/hutils documentation built on Feb. 12, 2023, 8:26 a.m.