inst/tinytest/test_rownames.R

In poorman: A Poor Man's Dependency Free Recreation of 'dplyr'

expect_false(has_rownames(iris), info = "has_rownames() returns FALSE correctly")
expect_true(has_rownames(mtcars), info = "has_rownames() returns TRUE correctly")
expect_false(has_rownames(1:10), info = "has_rownames() works on other objects, returning FALSE")

expect_false(has_rownames(remove_rownames(mtcars)), info = "remove_rownames() acts accordingly")
expect_false(
  has_rownames(remove_rownames(iris)),
  info = "remove_rownames() acts accordingly for datasets without rownames"
)

res <- rowid_to_column(mtcars)
expect_false(has_rownames(res), info = "rownames are correctly removed")
expect_equal(
  mtcars %>% group_by(am) %>% rowid_to_column() %>% class(),
  c("grouped_df", "data.frame"),
  info = "rowid_to_column() retains classes"
)
expect_equal(res$rowid, seq_len(nrow(mtcars)), info = "rowid is correctly set")

res <- rownames_to_column(mtcars)
expect_false(has_rownames(res), info = "rownames have indeed been removed")
expect_equal(res$rowname, rownames(mtcars), info = "rownames have been correctly converted to a column")
expect_equal(
  mtcars %>% group_by(am) %>% rownames_to_column() %>% class(),
  c("grouped_df", "data.frame"),
  info = "rownames_to_column() retains class"
)

res <- column_to_rownames(res, "rowname")
expect_true(has_rownames(res), info = "column_to_rownames() does set rownames")
expect_equal(rownames(res), rownames(mtcars), info = "rownames are correctly set")
expect_equal(res, mtcars)
expect_false("rowname" %in% colnames(res), info = "The old column is removed")
expect_equal(
  mtcars %>% group_by(am) %>% rownames_to_column() %>% column_to_rownames("rowname") %>% class(),
  c("grouped_df", "data.frame"),
  info = "column_to_rownames() retains class"
)

expect_error(rownames_to_column(mtcars, "mpg"), info = "rownames_to_column: column already exists")
expect_error(rowid_to_column(mtcars, "mpg"), info = "rowid_to_column: columns already exists")
expect_error(column_to_rownames(mtcars, "mpg"), info = "column_to_rownames: data already has rownames")
expect_error(column_to_rownames(iris, "fake_column"), info = "column_to_rownames: column cannot be found")