inst/tinytest/test-renaming.R

In qol: Powerful 'SAS' Inspired Concepts for more Efficient Bigger Outputs

set_no_print(TRUE)

###############################################################################
# Suppressing some functions messages because they only output the information
# on how much time they took.
###############################################################################

dummy_df <- dummy_data(10)


# Add extensions to limited variables
new_names_df <- dummy_df |> add_extension(9, c("sum", "pct"))

expect_true(all(c("age_sum", "sex_pct") %in% names(new_names_df)), info = "Add extensions to limited variables")


# Add extensions to all remaining variables
new_names_df <- dummy_df |> add_extension(5, c("sum", "pct"), reuse = "last")

expect_true("weight_pct" %in% names(new_names_df), info = "Add extensions to all remaining variables")


# Renaming multiple variables
new_names_df <- dummy_df |> rename_multi("sex" = "var1", "age" = "var2")

expect_true(all(c("var1", "var2") %in% names(new_names_df)), info = "Renaming multiple variables")
expect_true(!all(c("sex", "age") %in% names(new_names_df)), info = "Renaming multiple variables")


# Renaming multiple variables without quotation marks
new_names_df <- dummy_df |> rename_multi(sex = var1, age = var2)

expect_true(all(c("var1", "var2") %in% names(new_names_df)), info = "Renaming multiple variables without quotation marks")
expect_true(!all(c("sex", "age") %in% names(new_names_df)), info = "Renaming multiple variables without quotation marks")


# Renaming based on first row in data frame
test_df <- data.frame(
              var1 = c("id", 1, 2, 3),
              var2 = c(NA, "a", "b", "c"),
              var3 = c("value", 1, 2, 3),
              var4 = c("", "a", "b", "c"),
              var5 = c(1, 2, 3, 4))

result_df <- test_df |> first_row_as_names()

expect_equal(names(result_df), c("id", "var2", "value", "var4", "var5"), info = "Renaming based on first row in data frame")
expect_equal(nrow(test_df) - 1, nrow(result_df), info = "Renaming based on first row in data frame")

###############################################################################
# Abort checks
###############################################################################

# Renaming aborts if old variable name not found in data frame
new_names_df <- dummy_df |> rename_multi("var1" = "var2")

expect_error(print_stack_as_messages("ERROR"), "The provided <old name> '", info = "Renaming aborts if old variable name not found in data frame")


# Renaming aborts if new variable name is already data frame
new_names_df <- dummy_df |> rename_multi("sex" = "age")

expect_error(print_stack_as_messages("ERROR"), "The provided <new name> '", info = "Renaming aborts if new variable name is already data frame")


set_no_print()