container: Extending Base 'R' Lists

ee = expect_equal

# ----------------
# rename.Container
# ----------------
x <- container(A = 1, B = 2)
expect_error(rename(x, 1, "C"), "'old' must be character")
expect_error(rename(x, "A", 1), "'new' must be character")
expect_error(rename(x, "A", c("C", "D")), "must be of the same length")
expect_error(rename(x, "A", "B"), "name 'B' already in Container")
expect_error(rename(x, "Z", "B"), "Items of 'old' not found in names: Z")
expect_error(rename(x, c("A", "A"), c("a", "a")),
             "'old' has duplicated names: A")

vals = as.numeric(as.list(x))
ee(rename(x, "A", "a"), container(a = 1, B = 2))
ee(x, container(A = 1, B = 2))   # names were changed by value
ref_rename(x, "A", "a")
ee(x, container(a = 1, B = 2))   # now names were changed by reference

expect_true(has_name(x, "a"))
expect_false(has_name(x, "A"))

# Verify that values did not change
expect_equal(vals, as.numeric(as.list(x)))

# Several keys at once
ee(rename(x, c("a", "B"), c("x", "y")),container(x = 1, y = 2))

# Renaming same key multiple times is not possible
x = container(x = 1, y = 2)
expect_error(rename(x, c("x", "x2"), c("x2", "x3")),
             "Items of 'old' not found in names: x2")

# -----------------
# rename.dict.table
# -----------------
dit = dict.table(A = 1:2, B = 2:1)
ee(rename(dit, "A", "X"), dict.table(X = 1:2, B = 2:1))
ee(dit, dict.table(A = 1:2, B = 2:1))
ref_rename(dit, "A", "X")

ee(colnames(dit), c("X", "B"))
ref_rename(dit, c("X", "B"), c("y", "z"))
ee(colnames(dit), c("y", "z"))
expect_error(rename(dit, "A", "b"))

# Multiple renames
expect_error(rename(dit, c("y", "y2"), c("y2", "y3")),
             "Items of 'old' not found in names: y2")

# Duplicated column names are signaled
dit = dict.table(a = 1:2, b = 2:1)
expect_error(rename(dit, "a", "b"),
             "renaming not possible due to duplicated column names: b")

hasSameColumnNames = isTRUE(all.equal(colnames(dit), c("a", "b")))
expect_true(hasSameColumnNames)

expect_error(ref_rename(dit, "a", "b"),
             "renaming not possible due to duplicated column names: b")
hasSameColumnNames = isTRUE(all.equal(colnames(dit), c("a", "b")))
expect_true(hasSameColumnNames)

dit = dict.table(a = 1, b = 2, c = 3, d = 4)
expect_error(ref_rename(dit, c("a", "b"), c("c", "d")),
             "renaming not possible due to duplicated column names: c, d")
hasSameColumnNames = isTRUE(all.equal(colnames(dit), c("a", "b", "c", "d")))
expect_true(hasSameColumnNames)

# --------------
# rename.default
# --------------
v <- c(a = 1, b = 2)
ee(rename(v, "a", "a1"), c(a1 = 1, b = 2))
ee(rename(v, c("a", "b"), c("a1", "b1")), c(a1 = 1, b1 = 2))