expect_1_row <- function(object) {
  expect_equal(
    nrow(object),
    1
  )
}