Skip to content

Commit 179cece

Browse files
strengejackestrengejacke
committed
skip test on mac
1 parent e6dca9d commit 179cece

1 file changed

Lines changed: 85 additions & 27 deletions

File tree

‎WIP/test-format_model_parameters.R‎

Lines changed: 85 additions & 27 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
1+
skip_on_os("mac")
2+
13
if (require("splines")) {
24
data(mtcars)
35

@@ -8,36 +10,55 @@ if (require("splines")) {
810

911
m <- lm(mpg ~ qsec:wt + wt / drat, data = mtcars)
1012
test_that("format_model_parameters-2", {
11-
expect_equal(unname(format_parameters(m)), c("(Intercept)", "wt", "qsec : wt", "wt : drat"))
13+
expect_equal(
14+
unname(format_parameters(m)),
15+
c("(Intercept)", "wt", "qsec : wt", "wt : drat")
16+
)
1217
})
1318

1419
m <- lm(mpg ~ qsec:wt + wt:drat + wt, data = mtcars)
1520
test_that("format_model_parameters-3", {
16-
expect_equal(unname(format_parameters(m)), c("(Intercept)", "wt", "qsec : wt", "wt : drat"))
21+
expect_equal(
22+
unname(format_parameters(m)),
23+
c("(Intercept)", "wt", "qsec : wt", "wt : drat")
24+
)
1725
})
1826

1927
m <- lm(mpg ~ qsec:wt + wt / drat + wt, data = mtcars)
2028
test_that("format_model_parameters-4", {
21-
expect_equal(unname(format_parameters(m)), c("(Intercept)", "wt", "qsec : wt", "wt : drat"))
29+
expect_equal(
30+
unname(format_parameters(m)),
31+
c("(Intercept)", "wt", "qsec : wt", "wt : drat")
32+
)
2233
})
2334

2435
m <- lm(mpg ~ qsec * wt + wt:drat + wt, data = mtcars)
2536
test_that("format_model_parameters-5", {
26-
expect_equal(unname(format_parameters(m)), c("(Intercept)", "qsec", "wt", "qsec * wt", "wt : drat"))
37+
expect_equal(
38+
unname(format_parameters(m)),
39+
c("(Intercept)", "qsec", "wt", "qsec * wt", "wt : drat")
40+
)
2741
})
2842

2943
m <- lm(mpg ~ wt + qsec + wt:qsec, data = mtcars)
3044
test_that("format_model_parameters-6", {
31-
expect_equal(unname(format_parameters(m)), c("(Intercept)", "wt", "qsec", "wt * qsec"))
45+
expect_equal(
46+
unname(format_parameters(m)),
47+
c("(Intercept)", "wt", "qsec", "wt * qsec")
48+
)
3249
})
3350

3451
m <- lm(Sepal.Width ~ Species * Petal.Length, data = iris)
3552
test_that("format_model_parameters-7", {
3653
expect_equal(
3754
unname(format_parameters(m)),
3855
c(
39-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
40-
"Petal.Length", "Species [versicolor] * Petal.Length", "Species [virginica] * Petal.Length"
56+
"(Intercept)",
57+
"Species [versicolor]",
58+
"Species [virginica]",
59+
"Petal.Length",
60+
"Species [versicolor] * Petal.Length",
61+
"Species [virginica] * Petal.Length"
4162
)
4263
)
4364
})
@@ -47,7 +68,9 @@ if (require("splines")) {
4768
expect_equal(
4869
unname(format_parameters(m)),
4970
c(
50-
"(Intercept)", "Species [setosa] : Petal.Length", "Species [versicolor] : Petal.Length",
71+
"(Intercept)",
72+
"Species [setosa] : Petal.Length",
73+
"Species [versicolor] : Petal.Length",
5174
"Species [virginica] : Petal.Length"
5275
)
5376
)
@@ -58,8 +81,11 @@ if (require("splines")) {
5881
expect_equal(
5982
unname(format_parameters(m)),
6083
c(
61-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
62-
"Species [setosa] : Petal.Length", "Species [versicolor] : Petal.Length",
84+
"(Intercept)",
85+
"Species [versicolor]",
86+
"Species [virginica]",
87+
"Species [setosa] : Petal.Length",
88+
"Species [versicolor] : Petal.Length",
6389
"Species [virginica] : Petal.Length"
6490
)
6591
)
@@ -70,8 +96,12 @@ if (require("splines")) {
7096
expect_equal(
7197
unname(format_parameters(m)),
7298
c(
73-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
74-
"Petal.Length", "Species [versicolor] * Petal.Length", "Species [virginica] * Petal.Length"
99+
"(Intercept)",
100+
"Species [versicolor]",
101+
"Species [virginica]",
102+
"Petal.Length",
103+
"Species [versicolor] * Petal.Length",
104+
"Species [virginica] * Petal.Length"
75105
)
76106
)
77107
})
@@ -81,8 +111,11 @@ if (require("splines")) {
81111
expect_equal(
82112
unname(format_parameters(m)),
83113
c(
84-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
85-
"Species [setosa] : Petal.Length", "Species [versicolor] : Petal.Length",
114+
"(Intercept)",
115+
"Species [versicolor]",
116+
"Species [virginica]",
117+
"Species [setosa] : Petal.Length",
118+
"Species [versicolor] : Petal.Length",
86119
"Species [virginica] : Petal.Length"
87120
)
88121
)
@@ -93,8 +126,11 @@ if (require("splines")) {
93126
expect_equal(
94127
unname(format_parameters(m)),
95128
c(
96-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
97-
"Species [setosa] : Petal.Length", "Species [versicolor] : Petal.Length",
129+
"(Intercept)",
130+
"Species [versicolor]",
131+
"Species [virginica]",
132+
"Species [setosa] : Petal.Length",
133+
"Species [versicolor] : Petal.Length",
98134
"Species [virginica] : Petal.Length"
99135
)
100136
)
@@ -105,8 +141,12 @@ if (require("splines")) {
105141
expect_equal(
106142
unname(format_parameters(m)),
107143
c(
108-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
109-
"Petal.Length", "Species [versicolor] * Petal.Length", "Species [virginica] * Petal.Length"
144+
"(Intercept)",
145+
"Species [versicolor]",
146+
"Species [virginica]",
147+
"Petal.Length",
148+
"Species [versicolor] * Petal.Length",
149+
"Species [virginica] * Petal.Length"
110150
)
111151
)
112152
})
@@ -116,7 +156,9 @@ if (require("splines")) {
116156
expect_equal(
117157
unname(format_parameters(m)),
118158
c(
119-
"(Intercept)", "Petal.Length", "Species [versicolor] : Petal.Length",
159+
"(Intercept)",
160+
"Petal.Length",
161+
"Species [versicolor] : Petal.Length",
120162
"Species [virginica] : Petal.Length"
121163
)
122164
)
@@ -127,8 +169,12 @@ if (require("splines")) {
127169
expect_equal(
128170
unname(format_parameters(m)),
129171
c(
130-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
131-
"Petal.Length", "Species [versicolor] * Petal.Length", "Species [virginica] * Petal.Length"
172+
"(Intercept)",
173+
"Species [versicolor]",
174+
"Species [virginica]",
175+
"Petal.Length",
176+
"Species [versicolor] * Petal.Length",
177+
"Species [virginica] * Petal.Length"
132178
)
133179
)
134180
})
@@ -138,8 +184,12 @@ if (require("splines")) {
138184
expect_equal(
139185
unname(format_parameters(m)),
140186
c(
141-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
142-
"Petal.Length", "Species [versicolor] * Petal.Length", "Species [virginica] * Petal.Length"
187+
"(Intercept)",
188+
"Species [versicolor]",
189+
"Species [virginica]",
190+
"Petal.Length",
191+
"Species [versicolor] * Petal.Length",
192+
"Species [virginica] * Petal.Length"
143193
)
144194
)
145195
})
@@ -149,8 +199,12 @@ if (require("splines")) {
149199
expect_equal(
150200
unname(format_parameters(m)),
151201
c(
152-
"(Intercept)", "Petal.Length", "Species [versicolor]", "Species [virginica]",
153-
"Species [versicolor] * Petal.Length", "Species [virginica] * Petal.Length"
202+
"(Intercept)",
203+
"Petal.Length",
204+
"Species [versicolor]",
205+
"Species [virginica]",
206+
"Species [versicolor] * Petal.Length",
207+
"Species [virginica] * Petal.Length"
154208
)
155209
)
156210
})
@@ -160,8 +214,12 @@ if (require("splines")) {
160214
expect_equal(
161215
unname(format_parameters(m)),
162216
c(
163-
"(Intercept)", "Species [versicolor]", "Species [virginica]",
164-
"Petal.Length", "Species [versicolor] * Petal.Length", "Species [virginica] * Petal.Length"
217+
"(Intercept)",
218+
"Species [versicolor]",
219+
"Species [virginica]",
220+
"Petal.Length",
221+
"Species [versicolor] * Petal.Length",
222+
"Species [virginica] * Petal.Length"
165223
)
166224
)
167225
})

0 commit comments

Comments
 (0)