1
1
test_that(' extract' , {
2
- skip_if(tune_check())
3
-
4
2
x <- linear_reg() %> % set_engine(" lm" ) %> % fit(mpg ~ . , data = mtcars )
5
3
x_no_spec <- x
6
4
x_no_spec $ spec <- NULL
@@ -18,7 +16,6 @@ test_that('extract', {
18
16
19
17
test_that(' extract parameter set from model with no parameters' , {
20
18
skip_on_covr()
21
- skip_if(tune_check())
22
19
23
20
lm_model <- linear_reg() %> % set_engine(" lm" )
24
21
@@ -29,7 +26,6 @@ test_that('extract parameter set from model with no parameters', {
29
26
30
27
test_that(' extract parameter set from model with main and engine parameters' , {
31
28
skip_on_covr()
32
- skip_if(tune_check())
33
29
34
30
bst_model <-
35
31
boost_tree(mode = " classification" , trees = hardhat :: tune(" funky name \n " )) %> %
@@ -62,7 +58,6 @@ test_that('extract parameter set from model with no loaded implementation', {
62
58
63
59
test_that(' extract single parameter from model with no parameters' , {
64
60
skip_on_covr()
65
- skip_if(tune_check())
66
61
67
62
lm_model <- linear_reg() %> % set_engine(" lm" )
68
63
@@ -73,7 +68,6 @@ test_that('extract single parameter from model with no parameters', {
73
68
74
69
test_that(' extract single parameter from model with main and engine parameters' , {
75
70
skip_on_covr()
76
- skip_if(tune_check())
77
71
78
72
bst_model <-
79
73
boost_tree(mode = " classification" , trees = hardhat :: tune(" funky name \n " )) %> %
@@ -91,7 +85,6 @@ test_that('extract single parameter from model with main and engine parameters',
91
85
92
86
test_that(" extract_parameter_dials doesn't error if namespaced args are used" , {
93
87
skip_on_covr()
94
- skip_if(tune_check())
95
88
96
89
bst_model <-
97
90
logistic_reg(mode = " classification" , penalty = hardhat :: tune()) %> %
0 commit comments