tests/testthat/test-unrowwise.R

testthat::test_that("unrowwise() works", {
  expect_equal(
    titanic,
    titanic |> dplyr::rowwise() |> unrowwise()
  )
  expect_equal(
    titanic |> dplyr::group_by(Sex, Class),
    titanic |> dplyr::group_by(Sex, Class) |> dplyr::rowwise() |> unrowwise()
  )
})

Try the guideR package in your browser

Any scripts or data that you put into this service are public.

guideR documentation built on June 8, 2025, noon