12
12
# ' Replace by [is_term()]
13
13
# ' @export
14
14
is.term <- function (x ) {
15
- deprecate_soft (" 0.1.0" ,
15
+ deprecate_warn (" 0.1.0" ,
16
16
what = " term::is.term()" ,
17
17
with = " term::is_term()"
18
18
)
@@ -26,7 +26,7 @@ is.term <- function(x) {
26
26
# ' Replace by [is_incomplete_terms()]
27
27
# ' @export
28
28
is.incomplete_terms <- function (x ) {
29
- deprecate_soft (" 0.1.0" ,
29
+ deprecate_warn (" 0.1.0" ,
30
30
what = " term::is.incomplete_terms()" ,
31
31
with = " term::is_incomplete_terms()"
32
32
)
@@ -40,7 +40,7 @@ is.incomplete_terms <- function(x) {
40
40
# ' Replace by [is_inconsistent_terms()]
41
41
# ' @export
42
42
is.inconsistent_terms <- function (x ) {
43
- deprecate_soft (" 0.1.0" ,
43
+ deprecate_warn (" 0.1.0" ,
44
44
what = " term::is.inconsistent_terms()" ,
45
45
with = " term::is_inconsistent_terms()"
46
46
)
@@ -54,7 +54,7 @@ is.inconsistent_terms <- function(x) {
54
54
# ' Replace by [pars()]
55
55
# ' @export
56
56
parameters <- function (x , ... ) {
57
- deprecate_soft (" 0.1.0" ,
57
+ deprecate_warn (" 0.1.0" ,
58
58
what = " parameters()" ,
59
59
with = " pars()"
60
60
)
@@ -69,7 +69,7 @@ parameters <- function(x, ...) {
69
69
# ' Replace by pars<-
70
70
# ' @export
71
71
`parameters<-` <- function (x , value ) {
72
- deprecate_soft (" 0.1.0" ,
72
+ deprecate_warn (" 0.1.0" ,
73
73
what = " `parameters<-`()" ,
74
74
with = " `pars<-`()"
75
75
)
@@ -84,7 +84,7 @@ parameters <- function(x, ...) {
84
84
# ' Replace by [set_pars()]
85
85
# ' @export
86
86
set_parameters <- function (x , pars ) {
87
- deprecate_soft (" 0.1.0" ,
87
+ deprecate_warn (" 0.1.0" ,
88
88
what = " term::set_parameters()" ,
89
89
with = " term::set_pars()"
90
90
)
@@ -98,7 +98,7 @@ set_parameters <- function(x, pars) {
98
98
# ' Replace by [tindex()]
99
99
# ' @export
100
100
tdims <- function (x ) {
101
- deprecate_soft (" 0.1.0" ,
101
+ deprecate_warn (" 0.1.0" ,
102
102
what = " term::tdims()" ,
103
103
with = " term::tindex()"
104
104
)
0 commit comments