Nothing
tests/testthat/test_helpers.R
In rearrr: Rearranging Data
library(rearrr)
context("helpers")
test_that("testing calculate_swirl_degrees_()", {
xpectr::set_test_seed(42)
# Generate expectations for 'calculate_swirl_degrees_'
# Tip: comment out the gxs_function() call
# so it is easy to regenerate the tests
xpectr::set_test_seed(42)
# xpectr::gxs_function(
# fn = calculate_swirl_degrees_,
# args_values = list(
# "distances" = list(runif(15), -runif(15), 0, NA),
# "radius" = list(0.5, -0.5, 1, 1.5, 0.001, 0, NA)
# ),
# indentation = 2,
# copy_env = FALSE
# )
## Testing 'calculate_swirl_degrees_' ####
## Initially generated by xpectr
# Testing different combinations of argument values
# Testing calculate_swirl_degrees_(distances = runif(1...
xpectr::set_test_seed(42)
# Assigning output
output_17375 <- calculate_swirl_degrees_(distances = runif(15), radius = 0.5)
# Testing class
expect_equal(
class(output_17375),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_17375,
type = "double")
# Testing values
expect_equal(
output_17375,
c(329.33018, 337.34715, 103.01023, 298.96115, 231.02839, 186.87454,
265.17179, 48.47998, 236.51722, 253.82332, 164.78704, 258.88041,
336.48201, 91.95438, 166.42542),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_17375),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_17375),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_17375)),
15L)
# Testing calculate_swirl_degrees_(distances = -runif(...
# Changed from baseline: distances = -runif(15)
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_18110 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = -runif(15), radius = 0.5), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_18110[['error']]),
xpectr::strip("Assertion on 'distances' failed: Element 1 is not >= 0."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_18110[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing calculate_swirl_degrees_(distances = 0, radi...
# Changed from baseline: distances = 0
xpectr::set_test_seed(42)
# Assigning output
output_13881 <- calculate_swirl_degrees_(distances = 0, radius = 0.5)
# Testing class
expect_equal(
class(output_13881),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_13881,
type = "double")
# Testing values
expect_equal(
output_13881,
0,
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_13881),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_13881),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_13881)),
1L)
# Testing calculate_swirl_degrees_(distances = NA, rad...
# Changed from baseline: distances = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16851 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = NA, radius = 0.5), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16851[['error']]),
xpectr::strip("Assertion on 'distances' failed: Contains missing values (element 1)."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16851[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing calculate_swirl_degrees_(distances = NULL, r...
# Changed from baseline: distances = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_10039 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = NULL, radius = 0.5), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_10039[['error']]),
xpectr::strip("Assertion on 'distances' failed: Must be of type 'numeric', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_10039[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = -0.5
xpectr::set_test_seed(42)
# Assigning output
output_18329 <- calculate_swirl_degrees_(distances = runif(15), radius = -0.5)
# Testing class
expect_equal(
class(output_18329),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_18329,
type = "double")
# Testing values
expect_equal(
output_18329,
c(30.66982, 22.65285, 256.98977, 61.03885, 128.97161, 173.12546,
94.82821, 311.52002, 123.48278, 106.17668, 195.21296, 101.11959,
23.51799, 268.04562, 193.57458),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_18329),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_18329),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_18329)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = 1
xpectr::set_test_seed(42)
# Assigning output
output_10073 <- calculate_swirl_degrees_(distances = runif(15), radius = 1)
# Testing class
expect_equal(
class(output_10073),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_10073,
type = "double")
# Testing values
expect_equal(
output_10073,
c(164.66509, 168.67357, 51.50512, 149.48057, 115.51419, 93.43727,
132.5859, 24.23999, 118.25861, 126.91166, 82.39352, 129.44021,
168.241, 45.97719, 83.21271),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_10073),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_10073),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_10073)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = 1.5
xpectr::set_test_seed(42)
# Assigning output
output_12076 <- calculate_swirl_degrees_(distances = runif(15), radius = 1.5)
# Testing class
expect_equal(
class(output_12076),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_12076,
type = "double")
# Testing values
expect_equal(
output_12076,
c(109.77673, 112.44905, 34.33674, 99.65372, 77.00946, 62.29151,
88.3906, 16.15999, 78.83907, 84.60777, 54.92901, 86.29347, 112.16067,
30.65146, 55.47514),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_12076),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_12076),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_12076)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = 0.001
xpectr::set_test_seed(42)
# Assigning output
output_19066 <- calculate_swirl_degrees_(distances = runif(15), radius = 0.001)
# Testing class
expect_equal(
class(output_19066),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_19066,
type = "double")
# Testing values
expect_equal(
output_19066,
c(145.08783, 193.57439, 25.11626, 80.57269, 314.1934, 197.27084,
105.89664, 119.9875, 178.61227, 191.66113, 313.51972, 200.2053,
121.00449, 257.18838, 52.70806),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_19066),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_19066),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19066)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = 0
xpectr::set_test_seed(42)
# Assigning output
output_16117 <- calculate_swirl_degrees_(distances = runif(15), radius = 0)
# Testing class
expect_equal(
class(output_16117),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_16117,
type = "double")
# Testing values
expect_equal(
output_16117,
c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_16117),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_16117),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_16117)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_13795 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = runif(15), radius = NA), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_13795[['error']]),
xpectr::strip("Assertion on 'radius' failed: May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_13795[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14357 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = runif(15), radius = NULL), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14357[['error']]),
xpectr::strip("Assertion on 'radius' failed: Must be of type 'number', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14357[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
## Finished testing 'calculate_swirl_degrees_' ####
#
})
test_that("testing add_dimensions_()", {
xpectr::set_test_seed(42)
df <- data.frame(
"a" = factor(LETTERS[1:10]),
"b" = 1:10,
"d" = runif(10),
stringsAsFactors = FALSE
)
# Generate expectations for 'add_dimensions_'
# Tip: comment out the gxs_function() call
# so it is easy to regenerate the tests
xpectr::set_test_seed(42)
# xpectr::gxs_function(
# fn = add_dimensions_,
# args_values = list(
# "data" = list(df, 1:10, NA),
# "new_vectors" = list(setNames(list(1:10, 21:30), c("a", "e")),
# list(1:10, 21:30),
# setNames(list(1:9, 21:30), c("a", "e")),
# setNames(list(c(NA, 1:9), 21:30), c("a", "e")),
# setNames(list(list(1:10), list(21:30)), c("a", "e")),
# "hej", NA),
# "suffix" = list("", ".mutated", 1, NA),
# "overwrite" = list(TRUE, FALSE)
# ),
# indentation = 2,
# copy_env = FALSE
# )
## Testing 'add_dimensions_' ####
## Initially generated by xpectr
# Testing different combinations of argument values
# Testing add_dimensions_(data = df, new_vectors = set...
xpectr::set_test_seed(42)
# Assigning output
output_19148 <- add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = TRUE)
# Testing class
expect_equal(
class(output_19148),
"data.frame",
fixed = TRUE)
# Testing column values
expect_equal(
output_19148[["b"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_19148[["d"]],
c(0.91481, 0.93708, 0.28614, 0.83045, 0.64175, 0.5191, 0.73659,
0.13467, 0.65699, 0.70506),
tolerance = 1e-4)
expect_equal(
output_19148[["a"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_19148[["e"]],
c(21, 22, 23, 24, 25, 26, 27, 28, 29, 30),
tolerance = 1e-4)
# Testing column names
expect_equal(
names(output_19148),
c("b", "d", "a", "e"),
fixed = TRUE)
# Testing column classes
expect_equal(
xpectr::element_classes(output_19148),
c("integer", "numeric", "integer", "integer"),
fixed = TRUE)
# Testing column types
expect_equal(
xpectr::element_types(output_19148),
c("integer", "double", "integer", "integer"),
fixed = TRUE)
# Testing dimensions
expect_equal(
dim(output_19148),
c(10L, 4L))
# Testing group keys
expect_equal(
colnames(dplyr::group_keys(output_19148)),
character(0),
fixed = TRUE)
# Testing add_dimensions_(data = 1:10, new_vectors = s...
# Changed from baseline: data = 1:10
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19370 <- xpectr::capture_side_effects(add_dimensions_(data = 1:10, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19370[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'integer'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19370[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = NA, new_vectors = set...
# Changed from baseline: data = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_12861 <- xpectr::capture_side_effects(add_dimensions_(data = NA, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_12861[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'logical'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_12861[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = NULL, new_vectors = s...
# Changed from baseline: data = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_18304 <- xpectr::capture_side_effects(add_dimensions_(data = NULL, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = lis...
# Changed from baseline: new_vectors = list(1:...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16417 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = list(1:10, 21:30), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16417[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': Must have names."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16417[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: new_vectors = setName...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_15190 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:9, 21:30), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error']]),
xpectr::strip("arguments imply differing number of rows: 9, 10"),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: new_vectors = setName...
xpectr::set_test_seed(42)
# Assigning output
output_17365 <- add_dimensions_(data = df, new_vectors = setNames(list(c(NA, 1:9), 21:30), c("a", "e")), suffix = "", overwrite = TRUE)
# Testing class
expect_equal(
class(output_17365),
"data.frame",
fixed = TRUE)
# Testing column values
expect_equal(
output_17365[["b"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_17365[["d"]],
c(0.91481, 0.93708, 0.28614, 0.83045, 0.64175, 0.5191, 0.73659,
0.13467, 0.65699, 0.70506),
tolerance = 1e-4)
expect_equal(
output_17365[["a"]],
c(NA, 1, 2, 3, 4, 5, 6, 7, 8, 9),
tolerance = 1e-4)
expect_equal(
output_17365[["e"]],
c(21, 22, 23, 24, 25, 26, 27, 28, 29, 30),
tolerance = 1e-4)
# Testing column names
expect_equal(
names(output_17365),
c("b", "d", "a", "e"),
fixed = TRUE)
# Testing column classes
expect_equal(
xpectr::element_classes(output_17365),
c("integer", "numeric", "integer", "integer"),
fixed = TRUE)
# Testing column types
expect_equal(
xpectr::element_types(output_17365),
c("integer", "double", "integer", "integer"),
fixed = TRUE)
# Testing dimensions
expect_equal(
dim(output_17365),
c(10L, 4L))
# Testing group keys
expect_equal(
colnames(dplyr::group_keys(output_17365)),
character(0),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: new_vectors = setName...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_11346 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(list(1:10), list(21:30)), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_11346[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': May only contain the following types: {numeric,character,factor}, but element 1 has\n * type 'list'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_11346[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = "he...
# Changed from baseline: new_vectors = "hej"
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16569 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = "hej", suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16569[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': Must be of type 'list', not 'character'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16569[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = NA,...
# Changed from baseline: new_vectors = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17050 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = NA, suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': Must be of type 'list', not 'logical'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = NUL...
# Changed from baseline: new_vectors = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14577 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = NULL, suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14577[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': Must be of type 'list', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14577[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: suffix = 1
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17191 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = 1, overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17191[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'suffix': Must be of type 'string', not 'double'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17191[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: suffix = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19346 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = NA, overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19346[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'suffix': May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19346[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: suffix = ".mutated"
xpectr::set_test_seed(42)
# Assigning output
output_12554 <- add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = ".mutated", overwrite = TRUE)
# Testing class
expect_equal(
class(output_12554),
"data.frame",
fixed = TRUE)
# Testing column values
expect_equal(
output_12554[["a"]],
structure(1:10, .Label = c("A", "B", "C", "D", "E", "F", "G", "H",
"I", "J"), class = "factor"))
expect_equal(
output_12554[["b"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_12554[["d"]],
c(0.91481, 0.93708, 0.28614, 0.83045, 0.64175, 0.5191, 0.73659,
0.13467, 0.65699, 0.70506),
tolerance = 1e-4)
expect_equal(
output_12554[["a.mutated"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_12554[["e.mutated"]],
c(21, 22, 23, 24, 25, 26, 27, 28, 29, 30),
tolerance = 1e-4)
# Testing column names
expect_equal(
names(output_12554),
c("a", "b", "d", "a.mutated", "e.mutated"),
fixed = TRUE)
# Testing column classes
expect_equal(
xpectr::element_classes(output_12554),
c("factor", "integer", "numeric", "integer", "integer"),
fixed = TRUE)
# Testing column types
expect_equal(
xpectr::element_types(output_12554),
c("integer", "integer", "double", "integer", "integer"),
fixed = TRUE)
# Testing dimensions
expect_equal(
dim(output_12554),
c(10L, 5L))
# Testing group keys
expect_equal(
colnames(dplyr::group_keys(output_12554)),
character(0),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: suffix = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14622 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = NULL, overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14622[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'suffix': Must be of type 'string', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14622[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: overwrite = FALSE
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19400 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = FALSE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19400[['error']]),
xpectr::strip("Adding these dimensions would overwrite existing columns: a."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19400[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: overwrite = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19782 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = NULL), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19782[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'overwrite': Must be of type 'logical flag', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19782[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
## Finished testing 'add_dimensions_' ####
#
})
test_that("testing list_coordinates_()", {
xpectr::set_test_seed(42)
# Generate expectations for 'list_coordinates_'
# Tip: comment out the gxs_function() call
# so it is easy to regenerate the tests
xpectr::set_test_seed(42)
# xpectr::gxs_function(
# fn = list_coordinates_,
# args_values = list(
# "coordinates" = list(c(1,5,8), list(1,5,8), 1, c("h",3,6), c(NA, 2, 4), c(4, 3), NA),
# "names" = list(c("x", "y", "z"), list("x", "y", "z"), c("x", "y"), NA)
# ),
# indentation = 2,
# copy_env = FALSE
# )
## Testing 'list_coordinates_' ####
## Initially generated by xpectr
# Testing different combinations of argument values
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
xpectr::set_test_seed(42)
# Assigning output
output_19148 <- list_coordinates_(coordinates = c(1, 5, 8), names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_19148),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_19148,
type = "list")
# Testing values
expect_equal(
output_19148,
list(c(x = 1, y = 5, z = 8)))
# Testing names
expect_equal(
names(output_19148),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_19148),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19148)),
3L)
# Testing list_coordinates_(coordinates = list(1, 5, 8...
# Changed from baseline: coordinates = list(1,...
xpectr::set_test_seed(42)
# Assigning output
output_19370 <- list_coordinates_(coordinates = list(1, 5, 8), names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_19370),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_19370,
type = "list")
# Testing values
expect_equal(
output_19370,
list(list(x = 1, y = 5, z = 8)))
# Testing names
expect_equal(
names(output_19370),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_19370),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19370)),
3L)
# Testing list_coordinates_(coordinates = 1, names = c...
# Changed from baseline: coordinates = 1
xpectr::set_test_seed(42)
# Assigning output
output_12861 <- list_coordinates_(coordinates = 1, names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_12861),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_12861,
type = "list")
# Testing values
expect_equal(
output_12861,
list(c(x = 1, y = 1, z = 1)))
# Testing names
expect_equal(
names(output_12861),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_12861),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_12861)),
3L)
# Testing list_coordinates_(coordinates = c("h", 3, 6)...
# Changed from baseline: coordinates = c("h", ...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_18304 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c("h", 3, 6), names = c("x", "y", "z")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error']]),
xpectr::strip("Assertion failed. One of the following must apply:\n * checkmate::check_numeric(coordinates): Must be of type 'numeric', not 'character'\n * checkmate::check_list(coordinates): Must be of type 'list', not 'character'"),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(NA, 2, 4),...
# Changed from baseline: coordinates = c(NA, 2...
xpectr::set_test_seed(42)
# Assigning output
output_16417 <- list_coordinates_(coordinates = c(NA, 2, 4), names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_16417),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_16417,
type = "list")
# Testing values
expect_equal(
output_16417,
list(c(x = NA, y = 2, z = 4)))
# Testing names
expect_equal(
names(output_16417),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_16417),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_16417)),
3L)
# Testing list_coordinates_(coordinates = c(4, 3), nam...
# Changed from baseline: coordinates = c(4, 3)
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_15190 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(4, 3), names = c("x", "y", "z")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error']]),
xpectr::strip("When 'coordinates' has length >1, 'coordinates' and 'names' must have same length."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = NA, names = ...
# Changed from baseline: coordinates = NA
xpectr::set_test_seed(42)
# Assigning output
output_17365 <- list_coordinates_(coordinates = NA, names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_17365),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_17365,
type = "list")
# Testing values
expect_equal(
output_17365,
list(c(x = NA, y = NA, z = NA)))
# Testing names
expect_equal(
names(output_17365),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_17365),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_17365)),
3L)
# Testing list_coordinates_(coordinates = NULL, names ...
# Changed from baseline: coordinates = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_11346 <- xpectr::capture_side_effects(list_coordinates_(coordinates = NULL, names = c("x", "y", "z")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_11346[['error']]),
xpectr::strip("Assertion failed. One of the following must apply:\n * checkmate::check_numeric(coordinates): Must be of type 'numeric', not 'NULL'\n * checkmate::check_list(coordinates): Must be of type 'list', not 'NULL'"),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_11346[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
# Changed from baseline: names = list("x", "y"...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16569 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(1, 5, 8), names = list("x", "y", "z")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16569[['error']]),
xpectr::strip("Assertion on 'names' failed: Must be of type 'character', not 'list'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16569[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
# Changed from baseline: names = c("x", "y")
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17050 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(1, 5, 8), names = c("x", "y")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error']]),
xpectr::strip("When 'coordinates' has length >1, 'coordinates' and 'names' must have same length."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
# Changed from baseline: names = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14577 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(1, 5, 8), names = NA), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14577[['error']]),
xpectr::strip("Assertion on 'names' failed: Contains missing values (element 1)."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14577[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
# Changed from baseline: names = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17191 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(1, 5, 8), names = NULL), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17191[['error']]),
xpectr::strip("Assertion on 'names' failed: Must be of type 'character', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17191[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
## Finished testing 'list_coordinates_' ####
#
})
test_that("testing split_range_outliers_()", {
xpectr::set_test_seed(42)
df <- data.frame(
"x" = runif(20),
"y" = runif(20),
"g" = rep(1:4, each = 5)
)
# Generate expectations for 'split_range_outliers_'
# Tip: comment out the gxs_function() call
# so it is easy to regenerate the tests
xpectr::set_test_seed(42)
# xpectr::gxs_function(
# fn = split_range_outliers_,
# args_values = list(
# "data" = list(df, c(1,2,3)),
# "col" = list("x", c("x","y"), "z", NA),
# ".min" = list(.2, .4, NA, NULL),
# ".max" = list(0.8, .6, NA, NULL)
# ), extra_combinations = list(
# list(".min" = 0.0, ".max" = NULL),
# list(".min" = NULL, ".max" = 1.0)
# ),
# indentation = 2,
# copy_env = FALSE
# )
## Testing 'split_range_outliers_' ####
## Initially generated by xpectr
# Testing different combinations of argument values
# Testing split_range_outliers_(data = df, col = "x", ....
xpectr::set_test_seed(42)
# Assigning output
output_19148 <- split_range_outliers_(data = df, col = "x", .min = 0.2, .max = 0.8)
# Testing class
expect_equal(
class(output_19148),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_19148,
type = "list")
# Testing values
expect_equal(
output_19148[["data"]],
structure(list(x = c(0.286139534786344, 0.641745518893003, 0.519095949130133,
0.736588314641267, 0.656992290401831, 0.705064784036949, 0.45774177624844,
0.719112251652405, 0.255428824340925, 0.462292822543532, 0.474997081561014,
0.560332746244967), y = c(0.988891728920862, 0.0824375580996275,
0.514211784349754, 0.390203467104584, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.685169729404151, 0.00394833879545331,
0.906601407798007, 0.611778643447906), g = c(1L, 1L, 2L, 2L,
2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L)), row.names = c(3L, 5L, 6L,
7L, 9L, 10L, 11L, 12L, 14L, 15L, 19L, 20L), class = "data.frame"))
expect_equal(
output_19148[["outliers"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.830447626067325,
0.13466659723781, 0.934672247152776, 0.940014522755519, 0.978226428385824,
0.117487361654639), y = c(0.904031387297437, 0.138710167724639,
0.946668232558295, 0.905738130910322, 0.388108282815665, 0.832916080253199,
0.00733414688147604, 0.207658972823992), g = c(1L, 1L, 1L, 2L,
3L, 4L, 4L, 4L)), row.names = c(1L, 2L, 4L, 8L, 13L, 16L, 17L,
18L), class = "data.frame"))
# Testing names
expect_equal(
names(output_19148),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_19148),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19148)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_19148),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_19148),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = c(1, 2, 3), col ...
# Changed from baseline: data = c(1, 2, 3)
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19370 <- xpectr::capture_side_effects(split_range_outliers_(data = c(1, 2, 3), col = "x", .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19370[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'double'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19370[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = NULL, col = "x",...
# Changed from baseline: data = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_12861 <- xpectr::capture_side_effects(split_range_outliers_(data = NULL, col = "x", .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_12861[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_12861[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = c("x",...
# Changed from baseline: col = c("x", "y")
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_18304 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = c("x", "y"), .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'col': Must have length 1."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "z", ....
# Changed from baseline: col = "z"
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16417 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = "z", .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16417[['error']]),
xpectr::strip("1 assertions failed:\n * 'col' not found in 'data'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16417[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = NA, .m...
# Changed from baseline: col = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_15190 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = NA, .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'col': May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = NULL, ...
# Changed from baseline: col = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17365 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = NULL, .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17365[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'col': Must be of type 'string', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17365[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min = NULL
xpectr::set_test_seed(42)
# Assigning output
output_11346 <- split_range_outliers_(data = df, col = "x", .min = NULL, .max = 0.8)
# Testing class
expect_equal(
class(output_11346),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_11346,
type = "list")
# Testing values
expect_equal(
output_11346[["data"]],
structure(list(x = c(0.286139534786344, 0.641745518893003, 0.519095949130133,
0.736588314641267, 0.13466659723781, 0.656992290401831, 0.705064784036949,
0.45774177624844, 0.719112251652405, 0.255428824340925, 0.462292822543532,
0.117487361654639, 0.474997081561014, 0.560332746244967), y = c(0.988891728920862,
0.0824375580996275, 0.514211784349754, 0.390203467104584, 0.905738130910322,
0.446969628101215, 0.836004259996116, 0.737595617771149, 0.811055141268298,
0.685169729404151, 0.00394833879545331, 0.207658972823992, 0.906601407798007,
0.611778643447906), g = c(1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L,
3L, 3L, 4L, 4L, 4L)), row.names = c(3L, 5L, 6L, 7L, 8L, 9L,
10L, 11L, 12L, 14L, 15L, 18L, 19L, 20L), class = "data.frame"))
expect_equal(
output_11346[["outliers"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.830447626067325,
0.934672247152776, 0.940014522755519, 0.978226428385824), y = c(0.904031387297437,
0.138710167724639, 0.946668232558295, 0.388108282815665, 0.832916080253199,
0.00733414688147604), g = c(1L, 1L, 1L, 3L, 4L, 4L)), row.names = c(1L,
2L, 4L, 13L, 16L, 17L), class = "data.frame"))
# Testing names
expect_equal(
names(output_11346),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_11346),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_11346)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_11346),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_11346),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min = 0.4
xpectr::set_test_seed(42)
# Assigning output
output_16569 <- split_range_outliers_(data = df, col = "x", .min = 0.4, .max = 0.8)
# Testing class
expect_equal(
class(output_16569),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_16569,
type = "list")
# Testing values
expect_equal(
output_16569[["data"]],
structure(list(x = c(0.641745518893003, 0.519095949130133, 0.736588314641267,
0.656992290401831, 0.705064784036949, 0.45774177624844, 0.719112251652405,
0.462292822543532, 0.474997081561014, 0.560332746244967), y = c(0.0824375580996275,
0.514211784349754, 0.390203467104584, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.00394833879545331, 0.906601407798007,
0.611778643447906), g = c(1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 4L,
4L)), row.names = c(5L, 6L, 7L, 9L, 10L, 11L, 12L, 15L, 19L,
20L), class = "data.frame"))
expect_equal(
output_16569[["outliers"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.286139534786344,
0.830447626067325, 0.13466659723781, 0.934672247152776, 0.255428824340925,
0.940014522755519, 0.978226428385824, 0.117487361654639), y = c(0.904031387297437,
0.138710167724639, 0.988891728920862, 0.946668232558295, 0.905738130910322,
0.388108282815665, 0.685169729404151, 0.832916080253199, 0.00733414688147604,
0.207658972823992), g = c(1L, 1L, 1L, 1L, 2L, 3L, 3L, 4L, 4L,
4L)), row.names = c(1L, 2L, 3L, 4L, 8L, 13L, 14L, 16L, 17L,
18L), class = "data.frame"))
# Testing names
expect_equal(
names(output_16569),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_16569),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_16569)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_16569),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_16569),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17050 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = "x", .min = NA, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error']]),
xpectr::strip("1 assertions failed:\n * Variable '.min': May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min, .max
xpectr::set_test_seed(42)
# Assigning output
output_14577 <- split_range_outliers_(data = df, col = "x", .min = 0, .max = NULL)
# Testing class
expect_equal(
class(output_14577),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_14577,
type = "list")
# Testing values
expect_equal(
output_14577[["data"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.286139534786344,
0.830447626067325, 0.641745518893003, 0.519095949130133, 0.736588314641267,
0.13466659723781, 0.656992290401831, 0.705064784036949, 0.45774177624844,
0.719112251652405, 0.934672247152776, 0.255428824340925, 0.462292822543532,
0.940014522755519, 0.978226428385824, 0.117487361654639, 0.474997081561014,
0.560332746244967), y = c(0.904031387297437, 0.138710167724639,
0.988891728920862, 0.946668232558295, 0.0824375580996275, 0.514211784349754,
0.390203467104584, 0.905738130910322, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.388108282815665, 0.685169729404151,
0.00394833879545331, 0.832916080253199, 0.00733414688147604,
0.207658972823992, 0.906601407798007, 0.611778643447906), g = c(1L,
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L,
4L, 4L, 4L, 4L)), class = "data.frame", row.names = c(NA, -20L)))
expect_equal(
output_14577[["outliers"]],
structure(list(x = numeric(0), y = numeric(0), g = integer(0)),
row.names = integer(0), class = "data.frame"))
# Testing names
expect_equal(
names(output_14577),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_14577),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_14577)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_14577),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_14577),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min, .max
xpectr::set_test_seed(42)
# Assigning output
output_17191 <- split_range_outliers_(data = df, col = "x", .min = NULL, .max = 1)
# Testing class
expect_equal(
class(output_17191),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_17191,
type = "list")
# Testing values
expect_equal(
output_17191[["data"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.286139534786344,
0.830447626067325, 0.641745518893003, 0.519095949130133, 0.736588314641267,
0.13466659723781, 0.656992290401831, 0.705064784036949, 0.45774177624844,
0.719112251652405, 0.934672247152776, 0.255428824340925, 0.462292822543532,
0.940014522755519, 0.978226428385824, 0.117487361654639, 0.474997081561014,
0.560332746244967), y = c(0.904031387297437, 0.138710167724639,
0.988891728920862, 0.946668232558295, 0.0824375580996275, 0.514211784349754,
0.390203467104584, 0.905738130910322, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.388108282815665, 0.685169729404151,
0.00394833879545331, 0.832916080253199, 0.00733414688147604,
0.207658972823992, 0.906601407798007, 0.611778643447906), g = c(1L,
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L,
4L, 4L, 4L, 4L)), class = "data.frame", row.names = c(NA, -20L)))
expect_equal(
output_17191[["outliers"]],
structure(list(x = numeric(0), y = numeric(0), g = integer(0)),
row.names = integer(0), class = "data.frame"))
# Testing names
expect_equal(
names(output_17191),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_17191),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_17191)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_17191),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_17191),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .max = NULL
xpectr::set_test_seed(42)
# Assigning output
output_19346 <- split_range_outliers_(data = df, col = "x", .min = 0.2, .max = NULL)
# Testing class
expect_equal(
class(output_19346),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_19346,
type = "list")
# Testing values
expect_equal(
output_19346[["data"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.286139534786344,
0.830447626067325, 0.641745518893003, 0.519095949130133, 0.736588314641267,
0.656992290401831, 0.705064784036949, 0.45774177624844, 0.719112251652405,
0.934672247152776, 0.255428824340925, 0.462292822543532, 0.940014522755519,
0.978226428385824, 0.474997081561014, 0.560332746244967), y = c(0.904031387297437,
0.138710167724639, 0.988891728920862, 0.946668232558295, 0.0824375580996275,
0.514211784349754, 0.390203467104584, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.388108282815665, 0.685169729404151,
0.00394833879545331, 0.832916080253199, 0.00733414688147604,
0.906601407798007, 0.611778643447906), g = c(1L, 1L, 1L, 1L,
1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L)), row.names = c(1L,
2L, 3L, 4L, 5L, 6L, 7L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L,
17L, 19L, 20L), class = "data.frame"))
expect_equal(
output_19346[["outliers"]],
structure(list(x = c(0.13466659723781, 0.117487361654639), y = c(0.905738130910322,
0.207658972823992), g = c(2L, 4L)), row.names = c(8L, 18L),
class = "data.frame"))
# Testing names
expect_equal(
names(output_19346),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_19346),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19346)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_19346),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_19346),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .max = 0.6
xpectr::set_test_seed(42)
# Assigning output
output_12554 <- split_range_outliers_(data = df, col = "x", .min = 0.2, .max = 0.6)
# Testing class
expect_equal(
class(output_12554),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_12554,
type = "list")
# Testing values
expect_equal(
output_12554[["data"]],
structure(list(x = c(0.286139534786344, 0.519095949130133, 0.45774177624844,
0.255428824340925, 0.462292822543532, 0.474997081561014, 0.560332746244967),
y = c(0.988891728920862, 0.514211784349754, 0.737595617771149,
0.685169729404151, 0.00394833879545331, 0.906601407798007,
0.611778643447906), g = c(1L, 2L, 3L, 3L, 3L, 4L, 4L)),
row.names = c(3L, 6L, 11L, 14L, 15L, 19L, 20L), class = "data.frame"))
expect_equal(
output_12554[["outliers"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.830447626067325,
0.641745518893003, 0.736588314641267, 0.13466659723781, 0.656992290401831,
0.705064784036949, 0.719112251652405, 0.934672247152776, 0.940014522755519,
0.978226428385824, 0.117487361654639), y = c(0.904031387297437,
0.138710167724639, 0.946668232558295, 0.0824375580996275, 0.390203467104584,
0.905738130910322, 0.446969628101215, 0.836004259996116, 0.811055141268298,
0.388108282815665, 0.832916080253199, 0.00733414688147604, 0.207658972823992),
g = c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 4L)),
row.names = c(1L, 2L, 4L, 5L, 7L, 8L, 9L, 10L, 12L, 13L, 16L,
17L, 18L), class = "data.frame"))
# Testing names
expect_equal(
names(output_12554),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_12554),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_12554)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_12554),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_12554),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .max = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14622 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = "x", .min = 0.2, .max = NA), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14622[['error']]),
xpectr::strip("1 assertions failed:\n * Variable '.max': May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14622[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
## Finished testing 'split_range_outliers_' ####
#
})
Try the rearrr package in your browser
Any scripts or data that you put into this service are public.
rearrr documentation built on April 4, 2025, 1:07 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(rearrr)
context("helpers")
test_that("testing calculate_swirl_degrees_()", {
xpectr::set_test_seed(42)
# Generate expectations for 'calculate_swirl_degrees_'
# Tip: comment out the gxs_function() call
# so it is easy to regenerate the tests
xpectr::set_test_seed(42)
# xpectr::gxs_function(
# fn = calculate_swirl_degrees_,
# args_values = list(
# "distances" = list(runif(15), -runif(15), 0, NA),
# "radius" = list(0.5, -0.5, 1, 1.5, 0.001, 0, NA)
# ),
# indentation = 2,
# copy_env = FALSE
# )
## Testing 'calculate_swirl_degrees_' ####
## Initially generated by xpectr
# Testing different combinations of argument values
# Testing calculate_swirl_degrees_(distances = runif(1...
xpectr::set_test_seed(42)
# Assigning output
output_17375 <- calculate_swirl_degrees_(distances = runif(15), radius = 0.5)
# Testing class
expect_equal(
class(output_17375),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_17375,
type = "double")
# Testing values
expect_equal(
output_17375,
c(329.33018, 337.34715, 103.01023, 298.96115, 231.02839, 186.87454,
265.17179, 48.47998, 236.51722, 253.82332, 164.78704, 258.88041,
336.48201, 91.95438, 166.42542),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_17375),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_17375),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_17375)),
15L)
# Testing calculate_swirl_degrees_(distances = -runif(...
# Changed from baseline: distances = -runif(15)
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_18110 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = -runif(15), radius = 0.5), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_18110[['error']]),
xpectr::strip("Assertion on 'distances' failed: Element 1 is not >= 0."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_18110[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing calculate_swirl_degrees_(distances = 0, radi...
# Changed from baseline: distances = 0
xpectr::set_test_seed(42)
# Assigning output
output_13881 <- calculate_swirl_degrees_(distances = 0, radius = 0.5)
# Testing class
expect_equal(
class(output_13881),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_13881,
type = "double")
# Testing values
expect_equal(
output_13881,
0,
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_13881),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_13881),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_13881)),
1L)
# Testing calculate_swirl_degrees_(distances = NA, rad...
# Changed from baseline: distances = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16851 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = NA, radius = 0.5), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16851[['error']]),
xpectr::strip("Assertion on 'distances' failed: Contains missing values (element 1)."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16851[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing calculate_swirl_degrees_(distances = NULL, r...
# Changed from baseline: distances = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_10039 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = NULL, radius = 0.5), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_10039[['error']]),
xpectr::strip("Assertion on 'distances' failed: Must be of type 'numeric', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_10039[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = -0.5
xpectr::set_test_seed(42)
# Assigning output
output_18329 <- calculate_swirl_degrees_(distances = runif(15), radius = -0.5)
# Testing class
expect_equal(
class(output_18329),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_18329,
type = "double")
# Testing values
expect_equal(
output_18329,
c(30.66982, 22.65285, 256.98977, 61.03885, 128.97161, 173.12546,
94.82821, 311.52002, 123.48278, 106.17668, 195.21296, 101.11959,
23.51799, 268.04562, 193.57458),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_18329),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_18329),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_18329)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = 1
xpectr::set_test_seed(42)
# Assigning output
output_10073 <- calculate_swirl_degrees_(distances = runif(15), radius = 1)
# Testing class
expect_equal(
class(output_10073),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_10073,
type = "double")
# Testing values
expect_equal(
output_10073,
c(164.66509, 168.67357, 51.50512, 149.48057, 115.51419, 93.43727,
132.5859, 24.23999, 118.25861, 126.91166, 82.39352, 129.44021,
168.241, 45.97719, 83.21271),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_10073),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_10073),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_10073)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = 1.5
xpectr::set_test_seed(42)
# Assigning output
output_12076 <- calculate_swirl_degrees_(distances = runif(15), radius = 1.5)
# Testing class
expect_equal(
class(output_12076),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_12076,
type = "double")
# Testing values
expect_equal(
output_12076,
c(109.77673, 112.44905, 34.33674, 99.65372, 77.00946, 62.29151,
88.3906, 16.15999, 78.83907, 84.60777, 54.92901, 86.29347, 112.16067,
30.65146, 55.47514),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_12076),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_12076),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_12076)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = 0.001
xpectr::set_test_seed(42)
# Assigning output
output_19066 <- calculate_swirl_degrees_(distances = runif(15), radius = 0.001)
# Testing class
expect_equal(
class(output_19066),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_19066,
type = "double")
# Testing values
expect_equal(
output_19066,
c(145.08783, 193.57439, 25.11626, 80.57269, 314.1934, 197.27084,
105.89664, 119.9875, 178.61227, 191.66113, 313.51972, 200.2053,
121.00449, 257.18838, 52.70806),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_19066),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_19066),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19066)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = 0
xpectr::set_test_seed(42)
# Assigning output
output_16117 <- calculate_swirl_degrees_(distances = runif(15), radius = 0)
# Testing class
expect_equal(
class(output_16117),
"numeric",
fixed = TRUE)
# Testing type
expect_type(
output_16117,
type = "double")
# Testing values
expect_equal(
output_16117,
c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
tolerance = 1e-4)
# Testing names
expect_equal(
names(output_16117),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_16117),
15L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_16117)),
15L)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_13795 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = runif(15), radius = NA), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_13795[['error']]),
xpectr::strip("Assertion on 'radius' failed: May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_13795[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing calculate_swirl_degrees_(distances = runif(1...
# Changed from baseline: radius = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14357 <- xpectr::capture_side_effects(calculate_swirl_degrees_(distances = runif(15), radius = NULL), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14357[['error']]),
xpectr::strip("Assertion on 'radius' failed: Must be of type 'number', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14357[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
## Finished testing 'calculate_swirl_degrees_' ####
#
})
test_that("testing add_dimensions_()", {
xpectr::set_test_seed(42)
df <- data.frame(
"a" = factor(LETTERS[1:10]),
"b" = 1:10,
"d" = runif(10),
stringsAsFactors = FALSE
)
# Generate expectations for 'add_dimensions_'
# Tip: comment out the gxs_function() call
# so it is easy to regenerate the tests
xpectr::set_test_seed(42)
# xpectr::gxs_function(
# fn = add_dimensions_,
# args_values = list(
# "data" = list(df, 1:10, NA),
# "new_vectors" = list(setNames(list(1:10, 21:30), c("a", "e")),
# list(1:10, 21:30),
# setNames(list(1:9, 21:30), c("a", "e")),
# setNames(list(c(NA, 1:9), 21:30), c("a", "e")),
# setNames(list(list(1:10), list(21:30)), c("a", "e")),
# "hej", NA),
# "suffix" = list("", ".mutated", 1, NA),
# "overwrite" = list(TRUE, FALSE)
# ),
# indentation = 2,
# copy_env = FALSE
# )
## Testing 'add_dimensions_' ####
## Initially generated by xpectr
# Testing different combinations of argument values
# Testing add_dimensions_(data = df, new_vectors = set...
xpectr::set_test_seed(42)
# Assigning output
output_19148 <- add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = TRUE)
# Testing class
expect_equal(
class(output_19148),
"data.frame",
fixed = TRUE)
# Testing column values
expect_equal(
output_19148[["b"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_19148[["d"]],
c(0.91481, 0.93708, 0.28614, 0.83045, 0.64175, 0.5191, 0.73659,
0.13467, 0.65699, 0.70506),
tolerance = 1e-4)
expect_equal(
output_19148[["a"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_19148[["e"]],
c(21, 22, 23, 24, 25, 26, 27, 28, 29, 30),
tolerance = 1e-4)
# Testing column names
expect_equal(
names(output_19148),
c("b", "d", "a", "e"),
fixed = TRUE)
# Testing column classes
expect_equal(
xpectr::element_classes(output_19148),
c("integer", "numeric", "integer", "integer"),
fixed = TRUE)
# Testing column types
expect_equal(
xpectr::element_types(output_19148),
c("integer", "double", "integer", "integer"),
fixed = TRUE)
# Testing dimensions
expect_equal(
dim(output_19148),
c(10L, 4L))
# Testing group keys
expect_equal(
colnames(dplyr::group_keys(output_19148)),
character(0),
fixed = TRUE)
# Testing add_dimensions_(data = 1:10, new_vectors = s...
# Changed from baseline: data = 1:10
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19370 <- xpectr::capture_side_effects(add_dimensions_(data = 1:10, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19370[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'integer'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19370[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = NA, new_vectors = set...
# Changed from baseline: data = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_12861 <- xpectr::capture_side_effects(add_dimensions_(data = NA, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_12861[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'logical'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_12861[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = NULL, new_vectors = s...
# Changed from baseline: data = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_18304 <- xpectr::capture_side_effects(add_dimensions_(data = NULL, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = lis...
# Changed from baseline: new_vectors = list(1:...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16417 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = list(1:10, 21:30), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16417[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': Must have names."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16417[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: new_vectors = setName...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_15190 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:9, 21:30), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error']]),
xpectr::strip("arguments imply differing number of rows: 9, 10"),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: new_vectors = setName...
xpectr::set_test_seed(42)
# Assigning output
output_17365 <- add_dimensions_(data = df, new_vectors = setNames(list(c(NA, 1:9), 21:30), c("a", "e")), suffix = "", overwrite = TRUE)
# Testing class
expect_equal(
class(output_17365),
"data.frame",
fixed = TRUE)
# Testing column values
expect_equal(
output_17365[["b"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_17365[["d"]],
c(0.91481, 0.93708, 0.28614, 0.83045, 0.64175, 0.5191, 0.73659,
0.13467, 0.65699, 0.70506),
tolerance = 1e-4)
expect_equal(
output_17365[["a"]],
c(NA, 1, 2, 3, 4, 5, 6, 7, 8, 9),
tolerance = 1e-4)
expect_equal(
output_17365[["e"]],
c(21, 22, 23, 24, 25, 26, 27, 28, 29, 30),
tolerance = 1e-4)
# Testing column names
expect_equal(
names(output_17365),
c("b", "d", "a", "e"),
fixed = TRUE)
# Testing column classes
expect_equal(
xpectr::element_classes(output_17365),
c("integer", "numeric", "integer", "integer"),
fixed = TRUE)
# Testing column types
expect_equal(
xpectr::element_types(output_17365),
c("integer", "double", "integer", "integer"),
fixed = TRUE)
# Testing dimensions
expect_equal(
dim(output_17365),
c(10L, 4L))
# Testing group keys
expect_equal(
colnames(dplyr::group_keys(output_17365)),
character(0),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: new_vectors = setName...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_11346 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(list(1:10), list(21:30)), c("a", "e")), suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_11346[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': May only contain the following types: {numeric,character,factor}, but element 1 has\n * type 'list'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_11346[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = "he...
# Changed from baseline: new_vectors = "hej"
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16569 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = "hej", suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16569[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': Must be of type 'list', not 'character'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16569[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = NA,...
# Changed from baseline: new_vectors = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17050 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = NA, suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': Must be of type 'list', not 'logical'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = NUL...
# Changed from baseline: new_vectors = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14577 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = NULL, suffix = "", overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14577[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'new_vectors': Must be of type 'list', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14577[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: suffix = 1
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17191 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = 1, overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17191[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'suffix': Must be of type 'string', not 'double'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17191[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: suffix = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19346 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = NA, overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19346[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'suffix': May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19346[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: suffix = ".mutated"
xpectr::set_test_seed(42)
# Assigning output
output_12554 <- add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = ".mutated", overwrite = TRUE)
# Testing class
expect_equal(
class(output_12554),
"data.frame",
fixed = TRUE)
# Testing column values
expect_equal(
output_12554[["a"]],
structure(1:10, .Label = c("A", "B", "C", "D", "E", "F", "G", "H",
"I", "J"), class = "factor"))
expect_equal(
output_12554[["b"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_12554[["d"]],
c(0.91481, 0.93708, 0.28614, 0.83045, 0.64175, 0.5191, 0.73659,
0.13467, 0.65699, 0.70506),
tolerance = 1e-4)
expect_equal(
output_12554[["a.mutated"]],
c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
tolerance = 1e-4)
expect_equal(
output_12554[["e.mutated"]],
c(21, 22, 23, 24, 25, 26, 27, 28, 29, 30),
tolerance = 1e-4)
# Testing column names
expect_equal(
names(output_12554),
c("a", "b", "d", "a.mutated", "e.mutated"),
fixed = TRUE)
# Testing column classes
expect_equal(
xpectr::element_classes(output_12554),
c("factor", "integer", "numeric", "integer", "integer"),
fixed = TRUE)
# Testing column types
expect_equal(
xpectr::element_types(output_12554),
c("integer", "integer", "double", "integer", "integer"),
fixed = TRUE)
# Testing dimensions
expect_equal(
dim(output_12554),
c(10L, 5L))
# Testing group keys
expect_equal(
colnames(dplyr::group_keys(output_12554)),
character(0),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: suffix = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14622 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = NULL, overwrite = TRUE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14622[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'suffix': Must be of type 'string', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14622[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: overwrite = FALSE
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19400 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = FALSE), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19400[['error']]),
xpectr::strip("Adding these dimensions would overwrite existing columns: a."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19400[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing add_dimensions_(data = df, new_vectors = set...
# Changed from baseline: overwrite = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19782 <- xpectr::capture_side_effects(add_dimensions_(data = df, new_vectors = setNames(list(1:10, 21:30), c("a", "e")), suffix = "", overwrite = NULL), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19782[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'overwrite': Must be of type 'logical flag', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19782[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
## Finished testing 'add_dimensions_' ####
#
})
test_that("testing list_coordinates_()", {
xpectr::set_test_seed(42)
# Generate expectations for 'list_coordinates_'
# Tip: comment out the gxs_function() call
# so it is easy to regenerate the tests
xpectr::set_test_seed(42)
# xpectr::gxs_function(
# fn = list_coordinates_,
# args_values = list(
# "coordinates" = list(c(1,5,8), list(1,5,8), 1, c("h",3,6), c(NA, 2, 4), c(4, 3), NA),
# "names" = list(c("x", "y", "z"), list("x", "y", "z"), c("x", "y"), NA)
# ),
# indentation = 2,
# copy_env = FALSE
# )
## Testing 'list_coordinates_' ####
## Initially generated by xpectr
# Testing different combinations of argument values
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
xpectr::set_test_seed(42)
# Assigning output
output_19148 <- list_coordinates_(coordinates = c(1, 5, 8), names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_19148),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_19148,
type = "list")
# Testing values
expect_equal(
output_19148,
list(c(x = 1, y = 5, z = 8)))
# Testing names
expect_equal(
names(output_19148),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_19148),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19148)),
3L)
# Testing list_coordinates_(coordinates = list(1, 5, 8...
# Changed from baseline: coordinates = list(1,...
xpectr::set_test_seed(42)
# Assigning output
output_19370 <- list_coordinates_(coordinates = list(1, 5, 8), names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_19370),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_19370,
type = "list")
# Testing values
expect_equal(
output_19370,
list(list(x = 1, y = 5, z = 8)))
# Testing names
expect_equal(
names(output_19370),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_19370),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19370)),
3L)
# Testing list_coordinates_(coordinates = 1, names = c...
# Changed from baseline: coordinates = 1
xpectr::set_test_seed(42)
# Assigning output
output_12861 <- list_coordinates_(coordinates = 1, names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_12861),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_12861,
type = "list")
# Testing values
expect_equal(
output_12861,
list(c(x = 1, y = 1, z = 1)))
# Testing names
expect_equal(
names(output_12861),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_12861),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_12861)),
3L)
# Testing list_coordinates_(coordinates = c("h", 3, 6)...
# Changed from baseline: coordinates = c("h", ...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_18304 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c("h", 3, 6), names = c("x", "y", "z")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error']]),
xpectr::strip("Assertion failed. One of the following must apply:\n * checkmate::check_numeric(coordinates): Must be of type 'numeric', not 'character'\n * checkmate::check_list(coordinates): Must be of type 'list', not 'character'"),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(NA, 2, 4),...
# Changed from baseline: coordinates = c(NA, 2...
xpectr::set_test_seed(42)
# Assigning output
output_16417 <- list_coordinates_(coordinates = c(NA, 2, 4), names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_16417),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_16417,
type = "list")
# Testing values
expect_equal(
output_16417,
list(c(x = NA, y = 2, z = 4)))
# Testing names
expect_equal(
names(output_16417),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_16417),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_16417)),
3L)
# Testing list_coordinates_(coordinates = c(4, 3), nam...
# Changed from baseline: coordinates = c(4, 3)
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_15190 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(4, 3), names = c("x", "y", "z")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error']]),
xpectr::strip("When 'coordinates' has length >1, 'coordinates' and 'names' must have same length."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = NA, names = ...
# Changed from baseline: coordinates = NA
xpectr::set_test_seed(42)
# Assigning output
output_17365 <- list_coordinates_(coordinates = NA, names = c("x", "y", "z"))
# Testing class
expect_equal(
class(output_17365),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_17365,
type = "list")
# Testing values
expect_equal(
output_17365,
list(c(x = NA, y = NA, z = NA)))
# Testing names
expect_equal(
names(output_17365),
NULL,
fixed = TRUE)
# Testing length
expect_equal(
length(output_17365),
1L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_17365)),
3L)
# Testing list_coordinates_(coordinates = NULL, names ...
# Changed from baseline: coordinates = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_11346 <- xpectr::capture_side_effects(list_coordinates_(coordinates = NULL, names = c("x", "y", "z")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_11346[['error']]),
xpectr::strip("Assertion failed. One of the following must apply:\n * checkmate::check_numeric(coordinates): Must be of type 'numeric', not 'NULL'\n * checkmate::check_list(coordinates): Must be of type 'list', not 'NULL'"),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_11346[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
# Changed from baseline: names = list("x", "y"...
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16569 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(1, 5, 8), names = list("x", "y", "z")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16569[['error']]),
xpectr::strip("Assertion on 'names' failed: Must be of type 'character', not 'list'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16569[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
# Changed from baseline: names = c("x", "y")
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17050 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(1, 5, 8), names = c("x", "y")), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error']]),
xpectr::strip("When 'coordinates' has length >1, 'coordinates' and 'names' must have same length."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
# Changed from baseline: names = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14577 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(1, 5, 8), names = NA), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14577[['error']]),
xpectr::strip("Assertion on 'names' failed: Contains missing values (element 1)."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14577[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing list_coordinates_(coordinates = c(1, 5, 8), ...
# Changed from baseline: names = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17191 <- xpectr::capture_side_effects(list_coordinates_(coordinates = c(1, 5, 8), names = NULL), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17191[['error']]),
xpectr::strip("Assertion on 'names' failed: Must be of type 'character', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17191[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
## Finished testing 'list_coordinates_' ####
#
})
test_that("testing split_range_outliers_()", {
xpectr::set_test_seed(42)
df <- data.frame(
"x" = runif(20),
"y" = runif(20),
"g" = rep(1:4, each = 5)
)
# Generate expectations for 'split_range_outliers_'
# Tip: comment out the gxs_function() call
# so it is easy to regenerate the tests
xpectr::set_test_seed(42)
# xpectr::gxs_function(
# fn = split_range_outliers_,
# args_values = list(
# "data" = list(df, c(1,2,3)),
# "col" = list("x", c("x","y"), "z", NA),
# ".min" = list(.2, .4, NA, NULL),
# ".max" = list(0.8, .6, NA, NULL)
# ), extra_combinations = list(
# list(".min" = 0.0, ".max" = NULL),
# list(".min" = NULL, ".max" = 1.0)
# ),
# indentation = 2,
# copy_env = FALSE
# )
## Testing 'split_range_outliers_' ####
## Initially generated by xpectr
# Testing different combinations of argument values
# Testing split_range_outliers_(data = df, col = "x", ....
xpectr::set_test_seed(42)
# Assigning output
output_19148 <- split_range_outliers_(data = df, col = "x", .min = 0.2, .max = 0.8)
# Testing class
expect_equal(
class(output_19148),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_19148,
type = "list")
# Testing values
expect_equal(
output_19148[["data"]],
structure(list(x = c(0.286139534786344, 0.641745518893003, 0.519095949130133,
0.736588314641267, 0.656992290401831, 0.705064784036949, 0.45774177624844,
0.719112251652405, 0.255428824340925, 0.462292822543532, 0.474997081561014,
0.560332746244967), y = c(0.988891728920862, 0.0824375580996275,
0.514211784349754, 0.390203467104584, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.685169729404151, 0.00394833879545331,
0.906601407798007, 0.611778643447906), g = c(1L, 1L, 2L, 2L,
2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L)), row.names = c(3L, 5L, 6L,
7L, 9L, 10L, 11L, 12L, 14L, 15L, 19L, 20L), class = "data.frame"))
expect_equal(
output_19148[["outliers"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.830447626067325,
0.13466659723781, 0.934672247152776, 0.940014522755519, 0.978226428385824,
0.117487361654639), y = c(0.904031387297437, 0.138710167724639,
0.946668232558295, 0.905738130910322, 0.388108282815665, 0.832916080253199,
0.00733414688147604, 0.207658972823992), g = c(1L, 1L, 1L, 2L,
3L, 4L, 4L, 4L)), row.names = c(1L, 2L, 4L, 8L, 13L, 16L, 17L,
18L), class = "data.frame"))
# Testing names
expect_equal(
names(output_19148),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_19148),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19148)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_19148),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_19148),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = c(1, 2, 3), col ...
# Changed from baseline: data = c(1, 2, 3)
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_19370 <- xpectr::capture_side_effects(split_range_outliers_(data = c(1, 2, 3), col = "x", .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_19370[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'double'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_19370[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = NULL, col = "x",...
# Changed from baseline: data = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_12861 <- xpectr::capture_side_effects(split_range_outliers_(data = NULL, col = "x", .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_12861[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'data': Must be of type 'data.frame', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_12861[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = c("x",...
# Changed from baseline: col = c("x", "y")
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_18304 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = c("x", "y"), .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'col': Must have length 1."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_18304[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "z", ....
# Changed from baseline: col = "z"
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_16417 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = "z", .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_16417[['error']]),
xpectr::strip("1 assertions failed:\n * 'col' not found in 'data'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_16417[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = NA, .m...
# Changed from baseline: col = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_15190 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = NA, .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'col': May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_15190[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = NULL, ...
# Changed from baseline: col = NULL
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17365 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = NULL, .min = 0.2, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17365[['error']]),
xpectr::strip("1 assertions failed:\n * Variable 'col': Must be of type 'string', not 'NULL'."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17365[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min = NULL
xpectr::set_test_seed(42)
# Assigning output
output_11346 <- split_range_outliers_(data = df, col = "x", .min = NULL, .max = 0.8)
# Testing class
expect_equal(
class(output_11346),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_11346,
type = "list")
# Testing values
expect_equal(
output_11346[["data"]],
structure(list(x = c(0.286139534786344, 0.641745518893003, 0.519095949130133,
0.736588314641267, 0.13466659723781, 0.656992290401831, 0.705064784036949,
0.45774177624844, 0.719112251652405, 0.255428824340925, 0.462292822543532,
0.117487361654639, 0.474997081561014, 0.560332746244967), y = c(0.988891728920862,
0.0824375580996275, 0.514211784349754, 0.390203467104584, 0.905738130910322,
0.446969628101215, 0.836004259996116, 0.737595617771149, 0.811055141268298,
0.685169729404151, 0.00394833879545331, 0.207658972823992, 0.906601407798007,
0.611778643447906), g = c(1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L,
3L, 3L, 4L, 4L, 4L)), row.names = c(3L, 5L, 6L, 7L, 8L, 9L,
10L, 11L, 12L, 14L, 15L, 18L, 19L, 20L), class = "data.frame"))
expect_equal(
output_11346[["outliers"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.830447626067325,
0.934672247152776, 0.940014522755519, 0.978226428385824), y = c(0.904031387297437,
0.138710167724639, 0.946668232558295, 0.388108282815665, 0.832916080253199,
0.00733414688147604), g = c(1L, 1L, 1L, 3L, 4L, 4L)), row.names = c(1L,
2L, 4L, 13L, 16L, 17L), class = "data.frame"))
# Testing names
expect_equal(
names(output_11346),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_11346),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_11346)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_11346),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_11346),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min = 0.4
xpectr::set_test_seed(42)
# Assigning output
output_16569 <- split_range_outliers_(data = df, col = "x", .min = 0.4, .max = 0.8)
# Testing class
expect_equal(
class(output_16569),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_16569,
type = "list")
# Testing values
expect_equal(
output_16569[["data"]],
structure(list(x = c(0.641745518893003, 0.519095949130133, 0.736588314641267,
0.656992290401831, 0.705064784036949, 0.45774177624844, 0.719112251652405,
0.462292822543532, 0.474997081561014, 0.560332746244967), y = c(0.0824375580996275,
0.514211784349754, 0.390203467104584, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.00394833879545331, 0.906601407798007,
0.611778643447906), g = c(1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 4L,
4L)), row.names = c(5L, 6L, 7L, 9L, 10L, 11L, 12L, 15L, 19L,
20L), class = "data.frame"))
expect_equal(
output_16569[["outliers"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.286139534786344,
0.830447626067325, 0.13466659723781, 0.934672247152776, 0.255428824340925,
0.940014522755519, 0.978226428385824, 0.117487361654639), y = c(0.904031387297437,
0.138710167724639, 0.988891728920862, 0.946668232558295, 0.905738130910322,
0.388108282815665, 0.685169729404151, 0.832916080253199, 0.00733414688147604,
0.207658972823992), g = c(1L, 1L, 1L, 1L, 2L, 3L, 3L, 4L, 4L,
4L)), row.names = c(1L, 2L, 3L, 4L, 8L, 13L, 14L, 16L, 17L,
18L), class = "data.frame"))
# Testing names
expect_equal(
names(output_16569),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_16569),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_16569)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_16569),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_16569),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_17050 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = "x", .min = NA, .max = 0.8), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error']]),
xpectr::strip("1 assertions failed:\n * Variable '.min': May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_17050[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min, .max
xpectr::set_test_seed(42)
# Assigning output
output_14577 <- split_range_outliers_(data = df, col = "x", .min = 0, .max = NULL)
# Testing class
expect_equal(
class(output_14577),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_14577,
type = "list")
# Testing values
expect_equal(
output_14577[["data"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.286139534786344,
0.830447626067325, 0.641745518893003, 0.519095949130133, 0.736588314641267,
0.13466659723781, 0.656992290401831, 0.705064784036949, 0.45774177624844,
0.719112251652405, 0.934672247152776, 0.255428824340925, 0.462292822543532,
0.940014522755519, 0.978226428385824, 0.117487361654639, 0.474997081561014,
0.560332746244967), y = c(0.904031387297437, 0.138710167724639,
0.988891728920862, 0.946668232558295, 0.0824375580996275, 0.514211784349754,
0.390203467104584, 0.905738130910322, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.388108282815665, 0.685169729404151,
0.00394833879545331, 0.832916080253199, 0.00733414688147604,
0.207658972823992, 0.906601407798007, 0.611778643447906), g = c(1L,
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L,
4L, 4L, 4L, 4L)), class = "data.frame", row.names = c(NA, -20L)))
expect_equal(
output_14577[["outliers"]],
structure(list(x = numeric(0), y = numeric(0), g = integer(0)),
row.names = integer(0), class = "data.frame"))
# Testing names
expect_equal(
names(output_14577),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_14577),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_14577)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_14577),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_14577),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .min, .max
xpectr::set_test_seed(42)
# Assigning output
output_17191 <- split_range_outliers_(data = df, col = "x", .min = NULL, .max = 1)
# Testing class
expect_equal(
class(output_17191),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_17191,
type = "list")
# Testing values
expect_equal(
output_17191[["data"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.286139534786344,
0.830447626067325, 0.641745518893003, 0.519095949130133, 0.736588314641267,
0.13466659723781, 0.656992290401831, 0.705064784036949, 0.45774177624844,
0.719112251652405, 0.934672247152776, 0.255428824340925, 0.462292822543532,
0.940014522755519, 0.978226428385824, 0.117487361654639, 0.474997081561014,
0.560332746244967), y = c(0.904031387297437, 0.138710167724639,
0.988891728920862, 0.946668232558295, 0.0824375580996275, 0.514211784349754,
0.390203467104584, 0.905738130910322, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.388108282815665, 0.685169729404151,
0.00394833879545331, 0.832916080253199, 0.00733414688147604,
0.207658972823992, 0.906601407798007, 0.611778643447906), g = c(1L,
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L,
4L, 4L, 4L, 4L)), class = "data.frame", row.names = c(NA, -20L)))
expect_equal(
output_17191[["outliers"]],
structure(list(x = numeric(0), y = numeric(0), g = integer(0)),
row.names = integer(0), class = "data.frame"))
# Testing names
expect_equal(
names(output_17191),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_17191),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_17191)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_17191),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_17191),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .max = NULL
xpectr::set_test_seed(42)
# Assigning output
output_19346 <- split_range_outliers_(data = df, col = "x", .min = 0.2, .max = NULL)
# Testing class
expect_equal(
class(output_19346),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_19346,
type = "list")
# Testing values
expect_equal(
output_19346[["data"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.286139534786344,
0.830447626067325, 0.641745518893003, 0.519095949130133, 0.736588314641267,
0.656992290401831, 0.705064784036949, 0.45774177624844, 0.719112251652405,
0.934672247152776, 0.255428824340925, 0.462292822543532, 0.940014522755519,
0.978226428385824, 0.474997081561014, 0.560332746244967), y = c(0.904031387297437,
0.138710167724639, 0.988891728920862, 0.946668232558295, 0.0824375580996275,
0.514211784349754, 0.390203467104584, 0.446969628101215, 0.836004259996116,
0.737595617771149, 0.811055141268298, 0.388108282815665, 0.685169729404151,
0.00394833879545331, 0.832916080253199, 0.00733414688147604,
0.906601407798007, 0.611778643447906), g = c(1L, 1L, 1L, 1L,
1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L)), row.names = c(1L,
2L, 3L, 4L, 5L, 6L, 7L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L,
17L, 19L, 20L), class = "data.frame"))
expect_equal(
output_19346[["outliers"]],
structure(list(x = c(0.13466659723781, 0.117487361654639), y = c(0.905738130910322,
0.207658972823992), g = c(2L, 4L)), row.names = c(8L, 18L),
class = "data.frame"))
# Testing names
expect_equal(
names(output_19346),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_19346),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_19346)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_19346),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_19346),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .max = 0.6
xpectr::set_test_seed(42)
# Assigning output
output_12554 <- split_range_outliers_(data = df, col = "x", .min = 0.2, .max = 0.6)
# Testing class
expect_equal(
class(output_12554),
"list",
fixed = TRUE)
# Testing type
expect_type(
output_12554,
type = "list")
# Testing values
expect_equal(
output_12554[["data"]],
structure(list(x = c(0.286139534786344, 0.519095949130133, 0.45774177624844,
0.255428824340925, 0.462292822543532, 0.474997081561014, 0.560332746244967),
y = c(0.988891728920862, 0.514211784349754, 0.737595617771149,
0.685169729404151, 0.00394833879545331, 0.906601407798007,
0.611778643447906), g = c(1L, 2L, 3L, 3L, 3L, 4L, 4L)),
row.names = c(3L, 6L, 11L, 14L, 15L, 19L, 20L), class = "data.frame"))
expect_equal(
output_12554[["outliers"]],
structure(list(x = c(0.914806043496355, 0.937075413297862, 0.830447626067325,
0.641745518893003, 0.736588314641267, 0.13466659723781, 0.656992290401831,
0.705064784036949, 0.719112251652405, 0.934672247152776, 0.940014522755519,
0.978226428385824, 0.117487361654639), y = c(0.904031387297437,
0.138710167724639, 0.946668232558295, 0.0824375580996275, 0.390203467104584,
0.905738130910322, 0.446969628101215, 0.836004259996116, 0.811055141268298,
0.388108282815665, 0.832916080253199, 0.00733414688147604, 0.207658972823992),
g = c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 4L, 4L, 4L)),
row.names = c(1L, 2L, 4L, 5L, 7L, 8L, 9L, 10L, 12L, 13L, 16L,
17L, 18L), class = "data.frame"))
# Testing names
expect_equal(
names(output_12554),
c("data", "outliers"),
fixed = TRUE)
# Testing length
expect_equal(
length(output_12554),
2L)
# Testing sum of element lengths
expect_equal(
sum(xpectr::element_lengths(output_12554)),
6L)
# Testing element classes
expect_equal(
xpectr::element_classes(output_12554),
c("data.frame", "data.frame"),
fixed = TRUE)
# Testing element types
expect_equal(
xpectr::element_types(output_12554),
c("list", "list"),
fixed = TRUE)
# Testing split_range_outliers_(data = df, col = "x", ....
# Changed from baseline: .max = NA
xpectr::set_test_seed(42)
# Testing side effects
# Assigning side effects
side_effects_14622 <- xpectr::capture_side_effects(split_range_outliers_(data = df, col = "x", .min = 0.2, .max = NA), reset_seed = TRUE)
expect_equal(
xpectr::strip(side_effects_14622[['error']]),
xpectr::strip("1 assertions failed:\n * Variable '.max': May not be NA."),
fixed = TRUE)
expect_equal(
xpectr::strip(side_effects_14622[['error_class']]),
xpectr::strip(c("simpleError", "error", "condition")),
fixed = TRUE)
## Finished testing 'split_range_outliers_' ####
#
})
Try the rearrr package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.