tests/testthat/test-panelsummary_raw.R

In panelsummary: Create Publication-Ready Regression Tables with Panels

fixest::setFixest_nthreads(1)

test_that("panelsummary_raw returns a data.frame, not other object", {
  ols_1 <- lm(mpg ~ hp + cyl, data = mtcars)
  ols_2 <- lm(mpg ~ hp + cyl, data = mtcars)
  table <- panelsummary::panelsummary_raw(ols_1, ols_2)
  expect_equal(class(table), "data.frame")
})


test_that("panelsummary_raw returns a data.frame, not other object when using lists as inputs", {
  ols_1 <- lm(mpg ~ hp + cyl, data = mtcars)
  ols_2 <- lm(mpg ~ hp + cyl, data = mtcars)
  table <- panelsummary::panelsummary_raw(list(ols_1, ols_1), ols_2)
  expect_equal(class(table), "data.frame")
})


test_that("panelsummary_raw does not generate an error when ran with other arguments", {
  skip_on_cran()
  ols_1 <- mtcars |> fixest::feols(mpg ~  cyl | gear + carb, cluster = ~hp, nthreads = 1)
  expect_error(panelsummary::panelsummary_raw(ols_1, ols_1,
                                              mean_dependent = T,
                                              stars = "econ"), regexp = NA)
})