Skip to content

Commit 04c9828

Browse files
rcannoodrcannood
committed
fix for breaking changes in r devel
1 parent 45d2e4f commit 04c9828

14 files changed

Lines changed: 237 additions & 237 deletions

‎DESCRIPTION‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ Description: Provides tools for describing parameters of algorithms in an abstra
2626
in order to be able to use 'dynparam' in conjunction with 'mlrMBO'.
2727
License: MIT + file LICENSE
2828
LazyData: TRUE
29-
RoxygenNote: 7.1.0
29+
RoxygenNote: 7.1.1
3030
Roxygen: list(markdown = TRUE)
3131
Encoding: UTF-8
3232
Depends:

‎tests/testthat/test-distribution_expuniform.R‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -12,27 +12,27 @@ test_that("expuniform_distribution works with random values", {
1212

1313
# create distribution
1414
dis <- expuniform_distribution(lower = lower, upper = upper)
15-
expect_equal(dis$lower, lower, tolerance = 1e-4)
16-
expect_equal(dis$upper, upper, tolerance = 1e-4)
15+
expect_equal(dis$lower, lower, tolerance = 1e-4, check.environment = FALSE)
16+
expect_equal(dis$upper, upper, tolerance = 1e-4, check.environment = FALSE)
1717

1818
# transform to list
1919
lis <- as.list(dis)
20-
expect_equal(lis$type, gsub("_distribution", "", class(dis))[[1]])
21-
expect_equal(lis$lower, lower, tolerance = 1e-4)
22-
expect_equal(lis$upper, upper, tolerance = 1e-4)
20+
expect_equal(lis$type, gsub("_distribution", "", class(dis))[[1]], check.environment = FALSE)
21+
expect_equal(lis$lower, lower, tolerance = 1e-4, check.environment = FALSE)
22+
expect_equal(lis$upper, upper, tolerance = 1e-4, check.environment = FALSE)
2323

2424
# transform back to distribution
2525
dis2 <- as_distribution(lis)
26-
expect_equal(class(dis2), class(dis))
27-
expect_equal(dis2$lower, lower, tolerance = 1e-4)
28-
expect_equal(dis2$upper, upper, tolerance = 1e-4)
26+
expect_equal(class(dis2), class(dis), check.environment = FALSE)
27+
expect_equal(dis2$lower, lower, tolerance = 1e-4, check.environment = FALSE)
28+
expect_equal(dis2$upper, upper, tolerance = 1e-4, check.environment = FALSE)
2929

3030
# test dist and quan functions
3131
dfun <- distribution_function(dis)
3232
qfun <- quantile_function(dis)
3333

34-
expect_equal(qfun(c(0, 0.5, 1)), c(lower, middle, upper), tolerance = 1e-4)
35-
expect_equal(dfun(c(lower, middle, upper)), c(0, .5, 1), tolerance = 1e-4)
34+
expect_equal(qfun(c(0, 0.5, 1)), c(lower, middle, upper), tolerance = 1e-4, check.environment = FALSE)
35+
expect_equal(dfun(c(lower, middle, upper)), c(0, .5, 1), tolerance = 1e-4, check.environment = FALSE)
3636
})
3737

3838
test_that("expuniform_distribution errors when expected", {

‎tests/testthat/test-distribution_normal.R‎

Lines changed: 20 additions & 20 deletions
Original file line numberDiff line numberDiff line change
@@ -15,29 +15,29 @@ test_that("normal_distribution works with random values", {
1515

1616
# create distribution
1717
dis <- normal_distribution(mean = mean, sd = sd)
18-
expect_equal(dis$mean, mean, tolerance = 1e-4)
19-
expect_equal(dis$sd, sd, tolerance = 1e-4)
18+
expect_equal(dis$mean, mean, tolerance = 1e-4, check.environment = FALSE)
19+
expect_equal(dis$sd, sd, tolerance = 1e-4, check.environment = FALSE)
2020

2121
# transform to list
2222
lis <- as.list(dis)
23-
expect_equal(lis$type, gsub("_distribution", "", class(dis))[[1]])
24-
expect_equal(lis$mean, mean, tolerance = 1e-4)
25-
expect_equal(lis$sd, sd, tolerance = 1e-4)
23+
expect_equal(lis$type, gsub("_distribution", "", class(dis))[[1]], check.environment = FALSE)
24+
expect_equal(lis$mean, mean, tolerance = 1e-4, check.environment = FALSE)
25+
expect_equal(lis$sd, sd, tolerance = 1e-4, check.environment = FALSE)
2626

2727
# transform back to distribution
2828
dis2 <- as_distribution(lis)
29-
expect_equal(class(dis2), class(dis))
30-
expect_equal(dis2$mean, mean, tolerance = 1e-4)
31-
expect_equal(dis2$sd, sd, tolerance = 1e-4)
29+
expect_equal(class(dis2), class(dis), check.environment = FALSE)
30+
expect_equal(dis2$mean, mean, tolerance = 1e-4, check.environment = FALSE)
31+
expect_equal(dis2$sd, sd, tolerance = 1e-4, check.environment = FALSE)
3232

3333
# test dist and quan functions
3434
dfun <- distribution_function(dis)
3535
qfun <- quantile_function(dis)
3636

37-
expect_equal(qfun(0), -Inf)
38-
expect_equal(qfun(0.5), mean, tolerance = 1e-4)
39-
expect_equal(qfun(1), Inf)
40-
expect_equal(dfun(c(-Inf, mean, Inf)), c(0, .5, 1), tolerance = 1e-4)
37+
expect_equal(qfun(0), -Inf, check.environment = FALSE)
38+
expect_equal(qfun(0.5), mean, tolerance = 1e-4, check.environment = FALSE)
39+
expect_equal(qfun(1), Inf, check.environment = FALSE)
40+
expect_equal(dfun(c(-Inf, mean, Inf)), c(0, .5, 1), tolerance = 1e-4, check.environment = FALSE)
4141
})
4242

4343
test_that("normal_distribution with limits works with random values", {
@@ -48,20 +48,20 @@ test_that("normal_distribution with limits works with random values", {
4848

4949
# create distribution
5050
dis <- normal_distribution(mean = mean, sd = sd, lower = lower, upper = upper)
51-
expect_equal(dis$lower, lower, tolerance = 1e-4)
52-
expect_equal(dis$upper, upper, tolerance = 1e-4)
51+
expect_equal(dis$lower, lower, tolerance = 1e-4, check.environment = FALSE)
52+
expect_equal(dis$upper, upper, tolerance = 1e-4, check.environment = FALSE)
5353

5454
# transform to list
5555
lis <- as.list(dis)
56-
expect_equal(lis$type, gsub("_distribution", "", class(dis))[[1]])
57-
expect_equal(lis$lower, lower, tolerance = 1e-4)
58-
expect_equal(lis$upper, upper, tolerance = 1e-4)
56+
expect_equal(lis$type, gsub("_distribution", "", class(dis))[[1]], check.environment = FALSE)
57+
expect_equal(lis$lower, lower, tolerance = 1e-4, check.environment = FALSE)
58+
expect_equal(lis$upper, upper, tolerance = 1e-4, check.environment = FALSE)
5959

6060
# transform back to distribution
6161
dis2 <- as_distribution(lis)
62-
expect_equal(class(dis2), class(dis))
63-
expect_equal(dis2$lower, lower, tolerance = 1e-4)
64-
expect_equal(dis2$upper, upper, tolerance = 1e-4)
62+
expect_equal(class(dis2), class(dis), check.environment = FALSE)
63+
expect_equal(dis2$lower, lower, tolerance = 1e-4, check.environment = FALSE)
64+
expect_equal(dis2$upper, upper, tolerance = 1e-4, check.environment = FALSE)
6565
})
6666

6767
test_that("normal_distribution errors when expected", {

‎tests/testthat/test-distribution_super.R‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -7,10 +7,10 @@ test_that("as_distribution works", {
77
expect_error(as_distribution(list(type = "uniform", upper = 1, low = 4)), "li is missing 1 name from required_args")
88
expect_error(as_distribution(list(type = "dddqd", lower = 1, upper = 2, mean = 1, sd = 2)), "li\\$type is missing 1 element from")
99

10-
expect_equal(as_distribution(list(type = "uniform", lower = 1L, upper = 2L)), uniform_distribution(lower = 1L, upper = 2L))
11-
expect_equal(as_distribution(list(type = "expuniform", lower = 1L, upper = 2L)), expuniform_distribution(lower = 1L, upper = 2L))
12-
expect_equal(as_distribution(list(type = "normal", mean = 1L, sd = 2L)), normal_distribution(mean = 1L, sd = 2L))
13-
expect_equal(as_distribution(list(type = "normal", mean = 1L, sd = 2L, lower = -4L, upper = 3L)), normal_distribution(mean = 1L, sd = 2L, lower = -4L, upper = 3L))
10+
expect_equal(as_distribution(list(type = "uniform", lower = 1L, upper = 2L)), uniform_distribution(lower = 1L, upper = 2L), check.environment = FALSE)
11+
expect_equal(as_distribution(list(type = "expuniform", lower = 1L, upper = 2L)), expuniform_distribution(lower = 1L, upper = 2L), check.environment = FALSE)
12+
expect_equal(as_distribution(list(type = "normal", mean = 1L, sd = 2L)), normal_distribution(mean = 1L, sd = 2L), check.environment = FALSE)
13+
expect_equal(as_distribution(list(type = "normal", mean = 1L, sd = 2L, lower = -4L, upper = 3L)), normal_distribution(mean = 1L, sd = 2L, lower = -4L, upper = 3L), check.environment = FALSE)
1414
})
1515

1616
test_that("is_distribution works", {
@@ -23,6 +23,6 @@ test_that("is_distribution works", {
2323

2424
test_that("print and cat works", {
2525
dis <- distribution(lower = 1, upper = 2, c = 3)
26-
expect_equal(as.character(dis), "distribution(lower = 1, upper = 2, c = 3)")
26+
expect_equal(as.character(dis), "distribution(lower = 1, upper = 2, c = 3)", check.environment = FALSE)
2727
expect_output(print(dis), "distribution\\(lower = 1, upper = 2, c = 3\\)")
2828
})

‎tests/testthat/test-distribution_uniform.R‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -12,27 +12,27 @@ test_that("uniform_distribution works with random values", {
1212

1313
# create distribution
1414
dis <- uniform_distribution(lower = lower, upper = upper)
15-
expect_equal(dis$lower, lower, tolerance = 1e-4)
16-
expect_equal(dis$upper, upper, tolerance = 1e-4)
15+
expect_equal(dis$lower, lower, tolerance = 1e-4, check.environment = FALSE)
16+
expect_equal(dis$upper, upper, tolerance = 1e-4, check.environment = FALSE)
1717

1818
# transform to list
1919
lis <- as.list(dis)
20-
expect_equal(lis$type, gsub("_distribution", "", class(dis))[[1]])
21-
expect_equal(lis$lower, lower, tolerance = 1e-4)
22-
expect_equal(lis$upper, upper, tolerance = 1e-4)
20+
expect_equal(lis$type, gsub("_distribution", "", class(dis))[[1]], check.environment = FALSE)
21+
expect_equal(lis$lower, lower, tolerance = 1e-4, check.environment = FALSE)
22+
expect_equal(lis$upper, upper, tolerance = 1e-4, check.environment = FALSE)
2323

2424
# transform back to distribution
2525
dis2 <- as_distribution(lis)
26-
expect_equal(class(dis2), class(dis))
27-
expect_equal(dis2$lower, lower, tolerance = 1e-4)
28-
expect_equal(dis2$upper, upper, tolerance = 1e-4)
26+
expect_equal(class(dis2), class(dis), check.environment = FALSE)
27+
expect_equal(dis2$lower, lower, tolerance = 1e-4, check.environment = FALSE)
28+
expect_equal(dis2$upper, upper, tolerance = 1e-4, check.environment = FALSE)
2929

3030
# test dist and quan functions
3131
dfun <- distribution_function(dis)
3232
qfun <- quantile_function(dis)
3333

34-
expect_equal(qfun(c(0, 0.5, 1)), c(lower, middle, upper), tolerance = 1e-4)
35-
expect_equal(dfun(c(lower, middle, upper)), c(0, .5, 1), tolerance = 1e-4)
34+
expect_equal(qfun(c(0, 0.5, 1)), c(lower, middle, upper), tolerance = 1e-4, check.environment = FALSE)
35+
expect_equal(dfun(c(lower, middle, upper)), c(0, .5, 1), tolerance = 1e-4, check.environment = FALSE)
3636
})
3737

3838
test_that("uniform_distribution errors when expected", {

‎tests/testthat/test-helper_collapse_set.R‎

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1,19 +1,19 @@
11
context("test-helper_collapse_set")
22

33
test_that("collapse_set works", {
4-
expect_equal(collapse_set("AaAaAa"), "AaAaAa")
4+
expect_equal(collapse_set("AaAaAa"), "AaAaAa", check.environment = FALSE)
55

6-
expect_equal(collapse_set(letters[1:5]), "{a, b, c, d, e}")
6+
expect_equal(collapse_set(letters[1:5]), "{a, b, c, d, e}", check.environment = FALSE)
77

8-
expect_equal(collapse_set("a", "B", "c", "d", 1, 8L), "{a, B, c, d, 1, 8}")
8+
expect_equal(collapse_set("a", "B", "c", "d", 1, 8L), "{a, B, c, d, 1, 8}", check.environment = FALSE)
99

10-
expect_equal(collapse_set(list("a", "B", "c"), c(1, 8L)), "{a, B, c, 1, 8}")
10+
expect_equal(collapse_set(list("a", "B", "c"), c(1, 8L)), "{a, B, c, 1, 8}", check.environment = FALSE)
1111

12-
expect_equal(collapse_set(), "{}")
12+
expect_equal(collapse_set(), "{}", check.environment = FALSE)
1313

14-
expect_equal(collapse_set(456789), "456789")
14+
expect_equal(collapse_set(456789), "456789", check.environment = FALSE)
1515

16-
expect_equal(collapse_set(c(1, 2, NA)), "{1, 2, NA}")
16+
expect_equal(collapse_set(c(1, 2, NA)), "{1, 2, NA}", check.environment = FALSE)
1717

18-
expect_equal(collapse_set(1, "b", list("Ree", 1.5), prefix = "~", postfix = "_", sep = "#"), "~1#b#Ree#1.5_")
18+
expect_equal(collapse_set(1, "b", list("Ree", 1.5), prefix = "~", postfix = "_", sep = "#"), "~1#b#Ree#1.5_", check.environment = FALSE)
1919
})

‎tests/testthat/test-param_character.R‎

Lines changed: 28 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -9,10 +9,10 @@ test_that("correlation method test", {
99
)
1010

1111
expect_is(p, "character_parameter")
12-
expect_equal(p$id, "method")
13-
expect_equal(p$default, "pearson")
14-
expect_equal(p$values, c("pearson", "spearman", "kendall"))
15-
expect_equal(p$description, "Which correlation coefficient to compute.")
12+
expect_equal(p$id, "method", check.environment = FALSE)
13+
expect_equal(p$default, "pearson", check.environment = FALSE)
14+
expect_equal(p$values, c("pearson", "spearman", "kendall"), check.environment = FALSE)
15+
expect_equal(p$description, "Which correlation coefficient to compute.", check.environment = FALSE)
1616

1717
expect_match(as.character(p), "character")
1818
expect_match(as.character(p), "method")
@@ -21,21 +21,21 @@ test_that("correlation method test", {
2121

2222
li <- as.list(p)
2323

24-
expect_equal(li$type, "character")
25-
expect_equal(li$id, "method")
26-
expect_equal(li$default, "pearson")
27-
expect_equal(li$values, c("pearson", "spearman", "kendall"))
28-
expect_equal(li$description, "Which correlation coefficient to compute.")
24+
expect_equal(li$type, "character", check.environment = FALSE)
25+
expect_equal(li$id, "method", check.environment = FALSE)
26+
expect_equal(li$default, "pearson", check.environment = FALSE)
27+
expect_equal(li$values, c("pearson", "spearman", "kendall"), check.environment = FALSE)
28+
expect_equal(li$description, "Which correlation coefficient to compute.", check.environment = FALSE)
2929

3030
p2 <- as_parameter(li)
31-
expect_equal(p2, p)
31+
expect_equal(p2, p, check.environment = FALSE)
3232

3333
ph <- as_paramhelper(p)
3434

35-
expect_equal(ph$id, "method")
36-
expect_equal(ph$default, "pearson")
37-
expect_equal(unlist(ph$values) %>% unname(), c("pearson", "spearman", "kendall"))
38-
expect_equal(ph$len, 1)
35+
expect_equal(ph$id, "method", check.environment = FALSE)
36+
expect_equal(ph$default, "pearson", check.environment = FALSE)
37+
expect_equal(unlist(ph$values) %>% unname(), c("pearson", "spearman", "kendall"), check.environment = FALSE)
38+
expect_equal(ph$len, 1, check.environment = FALSE)
3939

4040
expect_match(get_description(p), "correlation coefficient to compute")
4141
expect_match(get_description(p), "character")
@@ -50,10 +50,10 @@ test_that("multiple value test", {
5050
description = "persons"
5151
)
5252

53-
expect_equal(p$id, "winner")
54-
expect_equal(p$default, c("bob", "celine"))
55-
expect_equal(p$values, c("alice", "bob", "celine", "david", "eric", "filip"))
56-
expect_equal(p$description, "persons")
53+
expect_equal(p$id, "winner", check.environment = FALSE)
54+
expect_equal(p$default, c("bob", "celine"), check.environment = FALSE)
55+
expect_equal(p$values, c("alice", "bob", "celine", "david", "eric", "filip"), check.environment = FALSE)
56+
expect_equal(p$description, "persons", check.environment = FALSE)
5757

5858
expect_match(as.character(p), "character")
5959
expect_match(as.character(p), "winner")
@@ -62,21 +62,21 @@ test_that("multiple value test", {
6262

6363
li <- as.list(p)
6464

65-
expect_equal(li$type, "character")
66-
expect_equal(li$id, "winner")
67-
expect_equal(li$default, c("bob", "celine"))
68-
expect_equal(li$values, c("alice", "bob", "celine", "david", "eric", "filip"))
69-
expect_equal(li$description, "persons")
65+
expect_equal(li$type, "character", check.environment = FALSE)
66+
expect_equal(li$id, "winner", check.environment = FALSE)
67+
expect_equal(li$default, c("bob", "celine"), check.environment = FALSE)
68+
expect_equal(li$values, c("alice", "bob", "celine", "david", "eric", "filip"), check.environment = FALSE)
69+
expect_equal(li$description, "persons", check.environment = FALSE)
7070

7171
p2 <- as_parameter(li)
72-
expect_equal(p2, p)
72+
expect_equal(p2, p, check.environment = FALSE)
7373

7474
ph <- as_paramhelper(p)
7575

76-
expect_equal(ph$id, "winner")
77-
expect_equal(unlist(unname(ph$default)), c("bob", "celine"))
78-
expect_equal(unlist(unname(ph$values)), c("alice", "bob", "celine", "david", "eric", "filip"))
79-
expect_equal(ph$len, 2)
76+
expect_equal(ph$id, "winner", check.environment = FALSE)
77+
expect_equal(unlist(unname(ph$default)), c("bob", "celine"), check.environment = FALSE)
78+
expect_equal(unlist(unname(ph$values)), c("alice", "bob", "celine", "david", "eric", "filip"), check.environment = FALSE)
79+
expect_equal(ph$len, 2, check.environment = FALSE)
8080
})
8181

8282
test_that("wrong parse fails gracefully", {

‎tests/testthat/test-param_integer.R‎

Lines changed: 30 additions & 30 deletions
Original file line numberDiff line numberDiff line change
@@ -9,10 +9,10 @@ test_that("k cluster test", {
99
)
1010

1111
expect_is(p, "integer_parameter")
12-
expect_equal(p$id, "k")
13-
expect_equal(p$default, 5L)
14-
expect_equal(p$distribution, uniform_distribution(3L, 10L))
15-
expect_equal(p$description, "The number of clusters.")
12+
expect_equal(p$id, "k", check.environment = FALSE)
13+
expect_equal(p$default, 5L, check.environment = FALSE)
14+
expect_equal(p$distribution, uniform_distribution(3L, 10L), check.environment = FALSE)
15+
expect_equal(p$description, "The number of clusters.", check.environment = FALSE)
1616

1717
expect_match(as.character(p), "integer")
1818
expect_match(as.character(p), "k")
@@ -21,22 +21,22 @@ test_that("k cluster test", {
2121

2222
li <- as.list(p)
2323

24-
expect_equal(li$type, "integer")
25-
expect_equal(li$id, "k")
26-
expect_equal(li$default, 5L)
27-
expect_equal(li$distribution, as.list(uniform_distribution(3L, 10L)))
28-
expect_equal(li$description, "The number of clusters.")
24+
expect_equal(li$type, "integer", check.environment = FALSE)
25+
expect_equal(li$id, "k", check.environment = FALSE)
26+
expect_equal(li$default, 5L, check.environment = FALSE)
27+
expect_equal(li$distribution, as.list(uniform_distribution(3L, 10L)), check.environment = FALSE)
28+
expect_equal(li$description, "The number of clusters.", check.environment = FALSE)
2929

3030
p2 <- as_parameter(li)
31-
expect_equal(p2, p)
31+
expect_equal(p2, p, check.environment = FALSE)
3232

3333
ph <- as_paramhelper(p)
3434

35-
expect_equal(ph$id, "k")
36-
expect_equal(ph$default, (5L-3L) / (10L-3L))
37-
expect_equal(ph$lower, 0)
38-
expect_equal(ph$upper, 1)
39-
expect_equal(ph$len, 1)
35+
expect_equal(ph$id, "k", check.environment = FALSE)
36+
expect_equal(ph$default, (5L-3L) / (10L-3L), check.environment = FALSE)
37+
expect_equal(ph$lower, 0, check.environment = FALSE)
38+
expect_equal(ph$upper, 1, check.environment = FALSE)
39+
expect_equal(ph$len, 1, check.environment = FALSE)
4040
})
4141

4242
test_that("multiple value test", {
@@ -47,10 +47,10 @@ test_that("multiple value test", {
4747
description = "The number of iterations."
4848
)
4949

50-
expect_equal(p$id, "num_iter")
51-
expect_equal(p$default, c(100L, 1000L))
52-
expect_equal(p$distribution, expuniform_distribution(10L, 10000L))
53-
expect_equal(p$description, "The number of iterations.")
50+
expect_equal(p$id, "num_iter", check.environment = FALSE)
51+
expect_equal(p$default, c(100L, 1000L), check.environment = FALSE)
52+
expect_equal(p$distribution, expuniform_distribution(10L, 10000L), check.environment = FALSE)
53+
expect_equal(p$description, "The number of iterations.", check.environment = FALSE)
5454

5555
expect_match(as.character(p), "integer")
5656
expect_match(as.character(p), "num_iter")
@@ -59,22 +59,22 @@ test_that("multiple value test", {
5959

6060
li <- as.list(p)
6161

62-
expect_equal(li$type, "integer")
63-
expect_equal(li$id, "num_iter")
64-
expect_equal(li$default, c(100L, 1000L))
65-
expect_equal(li$distribution, as.list(expuniform_distribution(10L, 10000L)))
66-
expect_equal(li$description, "The number of iterations.")
62+
expect_equal(li$type, "integer", check.environment = FALSE)
63+
expect_equal(li$id, "num_iter", check.environment = FALSE)
64+
expect_equal(li$default, c(100L, 1000L), check.environment = FALSE)
65+
expect_equal(li$distribution, as.list(expuniform_distribution(10L, 10000L)), check.environment = FALSE)
66+
expect_equal(li$description, "The number of iterations.", check.environment = FALSE)
6767

6868
p2 <- as_parameter(li)
69-
expect_equal(p2, p)
69+
expect_equal(p2, p, check.environment = FALSE)
7070

7171
ph <- as_paramhelper(p)
7272

73-
expect_equal(ph$id, "num_iter")
74-
expect_equal(unlist(unname(ph$default)), (log(c(100L, 1000L)) - log(10L)) / (log(10000L) - log(10L)))
75-
expect_equal(ph$lower, c(0, 0))
76-
expect_equal(ph$upper, c(1, 1))
77-
expect_equal(ph$len, 2)
73+
expect_equal(ph$id, "num_iter", check.environment = FALSE)
74+
expect_equal(unlist(unname(ph$default)), (log(c(100L, 1000L)) - log(10L)) / (log(10000L) - log(10L)), check.environment = FALSE)
75+
expect_equal(ph$lower, c(0, 0), check.environment = FALSE)
76+
expect_equal(ph$upper, c(1, 1), check.environment = FALSE)
77+
expect_equal(ph$len, 2, check.environment = FALSE)
7878
})
7979

8080
test_that("wrong parse fails gracefully", {

0 commit comments

Comments
 (0)