inst/tinytest/test-dummy_data.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.
###############################################################################

# Create dummy data with 1 observations
test_df <- dummy_data(1)
expect_equal(nrow(test_df), 1, info = "Create dummy data with 1 observations")


# Create dummy data with 10 observations
test_df <- dummy_data(10)
expect_equal(nrow(test_df), 10, info = "Create dummy data with 10 observations")


# Create dummy data with 100 observations
test_df <- dummy_data(100)
expect_equal(nrow(test_df), 100, info = "Create dummy data with 100 observations")


# Create dummy data with 100 observations
test_df <- dummy_data(1000)
expect_equal(nrow(test_df), 1000, info = "Create dummy data with 100 observations")


# Dummy data first_person has always person_id 1
first <- test_df |> collapse::fsubset(first_person == 1)
expect_equal(collapse::funique(first[["person_id"]]), 1, info = "Dummy data first_person has always person_id 1")


set_no_print()