Showing 37 of 37 files from the diff.

@@ -17,8 +17,7 @@
Loading
17 17
                       x_name = substitute(x),
18 18
                       error = TRUE) {
19 19
  lifecycle::deprecate_soft("0.5.1", "check_prob()", NULL,
20 -
                            "Please use chk::check_double() and chk::check_range() instead. 
21 -
Use chk::chk_dbl() and chk::chk_range() for faster versions which return NULL.")
20 +
                            "Please use chk::chk_dbl() and chk::chk_range() instead.")
22 21
  x_name <- chk_deparse(x_name)
23 22
24 23
  check_flag_internal(coerce)
@@ -38,8 +37,7 @@
Loading
38 37
                       x_name = substitute(x),
39 38
                       error = TRUE) {
40 39
  lifecycle::deprecate_soft("0.5.1", "check_probability()", NULL,
41 -
                            "Please use chk::check_double() and chk::check_range() instead. 
42 -
Use chk::chk_double() and chk::chk_range() for faster versions which return NULL.")
40 +
                            "Please use chk::chk_dbl() and chk::chk_range() instead.")
43 41
  x_name <- chk_deparse(x_name)
44 42
45 43
  check_prob(x, coerce = coerce, x_name = x_name, error = error)
@@ -51,8 +49,7 @@
Loading
51 49
                       x_name = substitute(x),
52 50
                       error = TRUE) {
53 51
  lifecycle::deprecate_soft("0.5.1", "check_prop()", NULL,
54 -
                            "Please use chk::check_double() and chk::check_range() instead. 
55 -
Use chk::chk_double() and chk::chk_range() for faster versions which return NULL.")
52 +
                            "Please use chk::chk_dbl() and chk::chk_range() instead.")
56 53
  x_name <- chk_deparse(x_name)
57 54
58 55
  check_prob(x, coerce = coerce, x_name = x_name, error = error)

@@ -16,8 +16,7 @@
Loading
16 16
check_integer <- function(x, coerce = FALSE,
17 17
                      x_name = substitute(x),
18 18
                      error = TRUE) {
19 -
  lifecycle::deprecate_soft("0.5.1", "check_integer()", "chk::check_integer()",
20 -
                            "Use chk::chk_integer() for a faster version which returns NULL.")
19 +
  lifecycle::deprecate_soft("0.5.1", "check_integer()", "chk::chk_integer()")
21 20
  x_name <- chk_deparse(x_name)
22 21
  
23 22
  check_flag_internal(coerce)

@@ -15,8 +15,7 @@
Loading
15 15
check_numeric <- function(x, coerce = FALSE,
16 16
                      x_name = substitute(x),
17 17
                      error = TRUE) {
18 -
  lifecycle::deprecate_soft("0.5.1", "check_numeric()", "chk::check_numeric()",
19 -
                            "Use chk::chk_numeric() for a faster version which returns NULL.")
18 +
  lifecycle::deprecate_soft("0.5.1", "check_numeric()", "chk::chk_numeric()")
20 19
  x_name <- chk_deparse(x_name)
21 20
  
22 21
  check_flag_internal(coerce)
@@ -36,8 +35,7 @@
Loading
36 35
check_double <- function(x, coerce = FALSE,
37 36
                       x_name = substitute(x),
38 37
                       error = TRUE) {
39 -
  lifecycle::deprecate_soft("0.5.1", "check_double()", "chk::check_double()",
40 -
                            "Use chk::chk_double() for a faster version which returns NULL.")
38 +
  lifecycle::deprecate_soft("0.5.1", "check_double()", "chk::chk_double()")
41 39
  x_name <- chk_deparse(x_name)
42 40
  
43 41
  check_numeric(x, coerce = coerce, x_name = x_name, error = error)

@@ -8,9 +8,7 @@
Loading
8 8
#' @export
9 9
check_props <- function(x, x_name = substitute(x),
10 10
                       error = TRUE) {
11 -
  lifecycle::deprecate_soft("0.5.1", "check_props()", NULL,
12 -
                            "Please use chk::check_double() and chk::check_range() instead. 
13 -
Use chk::chk_double() and chk::chk_range() for faster versions which return NULL.")
11 +
  lifecycle::deprecate_soft("0.5.1", "check_props()", "chk::check_values()")
14 12
  x_name <- chk_deparse(x_name)
15 13
16 14
  check_flag_internal(error)

@@ -12,8 +12,7 @@
Loading
12 12
check_null <- function(x,
13 13
                         x_name = substitute(x),
14 14
                         error = TRUE) {
15 -
  lifecycle::deprecate_soft("0.5.1", "check_null()", "chk::check_null()",
16 -
                            "Use chk::chk_null() for a faster version which returns NULL.")
15 +
  lifecycle::deprecate_soft("0.5.1", "check_null()", "chk::chk_null()")
17 16
  x_name <- chk_deparse(x_name)
18 17
19 18
  check_flag_internal(error)

@@ -28,7 +28,7 @@
Loading
28 28
  check_flag_internal(error)
29 29
30 30
  if (!missing(regex)) {
31 -
    lifecycle::deprecate_soft("0.5.1", "check_named(regex = )", "check_named(pattern = )")
31 +
    lifecycle::deprecate_soft("0.5.1", "check_named()", "chk::chk_named()")
32 32
    check_string(regex)
33 33
    pattern <- regex
34 34
  }

@@ -38,8 +38,7 @@
Loading
38 38
                       key = character(0),
39 39
                       x_name = substitute(x),
40 40
                       error = TRUE) {
41 -
  lifecycle::deprecate_soft("0.5.1", "check_data()", "chk::check_data()",
42 -
                            "Use chk::chk_data() for a faster version which returns NULL.")
41 +
  lifecycle::deprecate_soft("0.5.1", "check_data()", "chk::check_data()")
43 42
  x_name <- chk_deparse(x_name)
44 43
  
45 44
  check_inherits(x, "data.frame", x_name = x_name)

@@ -13,8 +13,7 @@
Loading
13 13
#' check_tzone(x, tzone = "PST8PDT", error = FALSE)
14 14
check_tzone <- function(x, tzone = "UTC", x_name = substitute(x),
15 15
                         error = TRUE) {
16 -
  lifecycle::deprecate_soft("0.5.1", "check_tzone()", "chk::check_tz()",
17 -
                            "Use chk::chk_tz() for a faster version which returns NULL.")
16 +
  lifecycle::deprecate_soft("0.5.1", "check_tzone()", "chk::chk_tz()")
18 17
  x_name <- chk_deparse(x_name)
19 18
  
20 19
  tzone <- check_string(tzone, coerce = TRUE)

@@ -18,7 +18,7 @@
Loading
18 18
check_levels <- function(x, levels, exclusive = TRUE, order = TRUE,
19 19
                         x_name = substitute(x),
20 20
                         error = TRUE) {
21 -
  lifecycle::deprecate_soft("0.5.1", "check_levels()", "chk::check_dim()")
21 +
  lifecycle::deprecate_soft("0.5.1", "check_levels()", "chk::check_data()")
22 22
  x_name <- chk_deparse(x_name)
23 23
24 24
  check_vector(levels, "", length = c(1L, chk_max_int()), unique = FALSE, named = FALSE)

@@ -14,8 +14,7 @@
Loading
14 14
check_sorted <- function(x,
15 15
                         x_name = substitute(x),
16 16
                         error = TRUE) {
17 -
  lifecycle::deprecate_soft("0.5.1", "check_sorted()", "chk::check_sorted()",
18 -
                            "Use chk::chk_sorted() for a faster version which returns NULL.")
17 +
  lifecycle::deprecate_soft("0.5.1", "check_sorted()", "chk::chk_sorted()")
19 18
  x_name <- chk_deparse(x_name)
20 19
21 20
  check_flag_internal(error)

@@ -20,7 +20,7 @@
Loading
20 20
                        x_name = substitute(x),
21 21
                        y_name = substitute(y),
22 22
                        error = TRUE) {
23 -
  lifecycle::deprecate_soft("0.5.1", "check_rbind()", NULL)
23 +
  lifecycle::deprecate_soft("0.5.1", "check_rbind()", "chk::chk_join()")
24 24
  x_name <- chk_deparse(x_name)
25 25
  y_name <- chk_deparse(y_name)
26 26
  

@@ -16,8 +16,8 @@
Loading
16 16
check_dttm <- function(x, coerce = FALSE, tzone = "UTC",
17 17
                       x_name = substitute(x),
18 18
                       error = TRUE) {
19 -
  lifecycle::deprecate_soft("0.5.1", "check_dttm()", "chk::check_date_time()",
20 -
                            "Use chk::chk_date_time() for a faster version which returns NULL.")
19 +
  lifecycle::deprecate_soft("0.5.1", "check_dttm()", NULL, 
20 +
                            "Please use chk::chk_date_time() and chk::chk_tz() instead.")
21 21
  x_name <- chk_deparse(x_name)
22 22
  
23 23
  check_flag_internal(coerce)
@@ -41,8 +41,8 @@
Loading
41 41
                           tzone = "",
42 42
                           x_name = substitute(x),
43 43
                           error = TRUE) {
44 -
  lifecycle::deprecate_soft("0.5.1", "check_datetime()", "chk::check_date_time()",
45 -
                            "Use chk::chk_date_time() for a faster version which returns NULL.")
44 +
  lifecycle::deprecate_soft("0.5.1", "check_datetime()", NULL,
45 +
                            "Please use chk::chk_date_time() and chk::chk_tz() instead.")
46 46
  x_name <- chk_deparse(x_name)
47 47
  
48 48
  check_dttm(x, coerce = coerce, tzone = tzone, 

@@ -14,8 +14,7 @@
Loading
14 14
                           nargs = NA,
15 15
                           x_name = substitute(x),
16 16
                           error = TRUE) {
17 -
  lifecycle::deprecate_soft("0.5.1", "check_function()", "chk::check_function()",
18 -
                            "Use chk::chk_function() for a faster version which returns NULL.")
17 +
  lifecycle::deprecate_soft("0.5.1", "check_function()", "chk::chk_function()")
19 18
  x_name <- chk_deparse(x_name)
20 19
  
21 20
  check_length_internal(nargs)

@@ -22,8 +22,8 @@
Loading
22 22
                     order = FALSE,
23 23
                     x_name = substitute(x),
24 24
                     error = TRUE) {
25 -
  lifecycle::deprecate_soft("0.5.1", "check_classes()", "chk::check_is()",
26 -
                            "Use chk::chk_is() for a faster version which returns NULL.")
25 +
  lifecycle::deprecate_soft("0.5.1", "check_classes()", NULL,
26 +
                            "Please use chk::chk_is(), chk::chk_s3_class(), chk::chk_s4_class(), or chk::check_values() instead.")  
27 27
  
28 28
  x_name <- chk_deparse(x_name)
29 29
  

@@ -15,8 +15,7 @@
Loading
15 15
check_dbl <- function(x, coerce = FALSE,
16 16
                       x_name = substitute(x),
17 17
                       error = TRUE) {
18 -
  lifecycle::deprecate_soft("0.5.1", "check_dbl()", "chk::check_dbl()",
19 -
                            "Use chk::chk_dbl() for a faster version which returns NULL.")
18 +
  lifecycle::deprecate_soft("0.5.1", "check_dbl()", "chk::chk_dbl()")
20 19
  x_name <- chk_deparse(x_name)
21 20
22 21
  check_flag_internal(coerce)
@@ -35,8 +34,7 @@
Loading
35 34
check_number <- function(x, coerce = FALSE,
36 35
                       x_name = substitute(x),
37 36
                       error = TRUE) {
38 -
  lifecycle::deprecate_soft("0.5.1", "check_number()", "chk::check_number()",
39 -
                            "Use chk::chk_number() for a faster version which returns NULL.")
37 +
  lifecycle::deprecate_soft("0.5.1", "check_number()", "chk::chk_number()")
40 38
  x_name <- chk_deparse(x_name)
41 39
  
42 40
  check_dbl(x, coerce = coerce, x_name = x_name, error = error)
@@ -60,8 +58,7 @@
Loading
60 58
                       x_name = substitute(x),
61 59
                       error = TRUE) {
62 60
  lifecycle::deprecate_soft("0.5.1", "check_pos_dbl()", NULL,
63 -
                            "Please use chk::check_dbl() and chk::check_range() instead. 
64 -
Use chk::chk_dbl() and chk::chk_range() for faster versions which return NULL.")
61 +
                            "Please use chk::chk_dbl() and chk::chk_gt() instead.")
65 62
  x_name <- chk_deparse(x_name)
66 63
67 64
  check_flag_internal(coerce)
@@ -95,8 +92,7 @@
Loading
95 92
                       x_name = substitute(x),
96 93
                       error = TRUE) {
97 94
  lifecycle::deprecate_soft("0.5.1", "check_noneg_dbl()", NULL,
98 -
                            "Please use chk::check_dbl() and chk::check_range() instead. 
99 -
Use chk::chk_dbl() and chk::chk_range() for faster versions which return NULL.")
95 +
                            "Please use chk::chk_dbl() and chk::chk_gte() instead.")
100 96
  x_name <- chk_deparse(x_name)
101 97
102 98
  check_flag_internal(coerce)
@@ -130,8 +126,7 @@
Loading
130 126
                       x_name = substitute(x),
131 127
                       error = TRUE) {
132 128
  lifecycle::deprecate_soft("0.5.1", "check_neg_dbl()", NULL,
133 -
                            "Please use chk::check_dbl() and chk::check_range() instead. 
134 -
Use chk::chk_dbl() and chk::chk_range() for faster versions which return NULL.")
129 +
                            "Please use chk::chk_dbl() and chk::chk_lt() instead.")
135 130
  x_name <- chk_deparse(x_name)
136 131
137 132
  check_flag_internal(coerce)

@@ -20,8 +20,7 @@
Loading
20 20
                         only = FALSE,
21 21
                         x_name = substitute(x),
22 22
                         error = TRUE) {
23 -
  lifecycle::deprecate_soft("0.5.1", "check_scalar()", "chk::check_scalar()",
24 -
                            "Use chk::chk_scalar() for a faster version which returns NULL.")
23 +
  lifecycle::deprecate_soft("0.5.1", "check_scalar()", "chk::chk_scalar()")
25 24
  x_name <- chk_deparse(x_name)
26 25
27 26
  check_vector(x, values = values, length = 1L, named = named, 

@@ -20,7 +20,7 @@
Loading
20 20
                       x_name = substitute(x),
21 21
                       y_name = substitute(y),
22 22
                       error = TRUE) {
23 -
  lifecycle::deprecate_soft("0.5.1", "check_intersection()", NULL)
23 +
  lifecycle::deprecate_soft("0.5.1", "check_intersection()", "chk::chk_join()")
24 24
  x_name <- chk_deparse(x_name)
25 25
  y_name <- chk_deparse(y_name)
26 26
  

@@ -20,7 +20,7 @@
Loading
20 20
check_colnames <- function(x, colnames = character(0), exclusive = FALSE, order = FALSE,
21 21
                         x_name = substitute(x),
22 22
                         error = TRUE) {
23 -
  lifecycle::deprecate_soft("0.5.1", "check_colnames()", "chk::check_names()")
23 +
  lifecycle::deprecate_soft("0.5.1", "check_colnames()", "chk::check_data()")
24 24
25 25
  x_name <- chk_deparse(x_name)
26 26

@@ -16,9 +16,7 @@
Loading
16 16
check_unnamed <- function(x,
17 17
                         x_name = substitute(x),
18 18
                         error = TRUE) {
19 -
  lifecycle::deprecate_soft("0.5.1", "check_unnamed()", NULL,
20 -
                            "Please use chk::check_named() or chk::check_not_empty() instead. 
21 -
Use chk::chk_named() and chk::chk_not_empty() for faster versions which return NULL.")
19 +
  lifecycle::deprecate_soft("0.5.1", "check_unnamed()", "chk::chk_null_or()")
22 20
  x_name <- chk_deparse(x_name)
23 21
24 22
  check_flag_internal(error)

@@ -16,8 +16,7 @@
Loading
16 16
check_logical <- function(x, coerce = FALSE,
17 17
                       x_name = substitute(x),
18 18
                       error = TRUE) {
19 -
  lifecycle::deprecate_soft("0.5.1", "check_logical()", "chk::check_logical()",
20 -
                            "Use chk::chk_logical() for a faster version which returns NULL.")
19 +
  lifecycle::deprecate_soft("0.5.1", "check_logical()", "chk::chk_logical()")
21 20
  x_name <- chk_deparse(x_name)
22 21
23 22
  check_flag_internal(coerce)

@@ -17,7 +17,7 @@
Loading
17 17
check_missing_names <- function(x, names, 
18 18
                                   x_name = substitute(x),
19 19
                                   error = TRUE) {
20 -
  lifecycle::deprecate_soft("0.5.1", "check_missing_names()", "chk::check_names()")
20 +
  lifecycle::deprecate_soft("0.5.1", "check_missing_names()", "chk::chk_not_subset(names())")
21 21
  
22 22
  x_name <- chk_deparse(x_name)
23 23
  

@@ -15,8 +15,7 @@
Loading
15 15
check_inherits <- function(x, class,
16 16
                     x_name = substitute(x),
17 17
                     error = TRUE) {
18 -
  lifecycle::deprecate_soft("0.5.1", "check_inherits()", "chk::check_is()",
19 -
                            "Use chk::chk_is() for a faster version which returns NULL.")
18 +
  lifecycle::deprecate_soft("0.5.1", "check_inherits()", "chk::chk_is()")
20 19
  x_name <- chk_deparse(x_name)
21 20
  
22 21
  check_string_internal(class)

@@ -17,7 +17,7 @@
Loading
17 17
check_nrow <- function(x, nrow = TRUE,
18 18
                         x_name = substitute(x),
19 19
                         error = TRUE) {
20 -
  lifecycle::deprecate_soft("0.5.1", "check_nrow()", "chk::check_dim()")
20 +
  lifecycle::deprecate_soft("0.5.1", "check_nrow()", "chk::check_data()")
21 21
  x_name <- chk_deparse(x_name)
22 22
23 23
  check_length_internal(nrow)

@@ -23,8 +23,7 @@
Loading
23 23
                       x_name = substitute(x),
24 24
                       y_name = substitute(y),
25 25
                       error = TRUE) {
26 -
  lifecycle::deprecate_soft("0.5.1", "check_join()", "chk::check_join()",
27 -
                            "Use chk::chk_join() for a faster version which returns NULL.")
26 +
  lifecycle::deprecate_soft("0.5.1", "check_join()", "chk::chk_join()")
28 27
  x_name <- chk_deparse(x_name)
29 28
  y_name <- chk_deparse(y_name)
30 29
  

@@ -17,8 +17,7 @@
Loading
17 17
                       coerce = FALSE,
18 18
                       x_name = substitute(x),
19 19
                       error = TRUE) {
20 -
  lifecycle::deprecate_soft("0.5.1", "check_date()", "chk::check_date()",
21 -
                            "Use chk::chk_date() for a faster version which returns NULL.")
20 +
  lifecycle::deprecate_soft("0.5.1", "check_date()", "chk::chk_date()")
22 21
  x_name <- chk_deparse(x_name)
23 22
  
24 23
  check_flag_internal(coerce)
@@ -38,8 +37,7 @@
Loading
38 37
                       coerce = FALSE,
39 38
                       x_name = substitute(x),
40 39
                       error = TRUE) {
41 -
  lifecycle::deprecate_soft("0.5.1", "check_day()", "chk::check_date()",
42 -
                            "Use chk::chk_date() for a faster version which returns NULL.")
40 +
  lifecycle::deprecate_soft("0.5.1", "check_day()", "chk::chk_date()")
43 41
  x_name <- chk_deparse(x_name)
44 42
  
45 43
  check_date(x, coerce = coerce, x_name = x_name, error = error)

@@ -18,8 +18,7 @@
Loading
18 18
check_unique <- function(x,
19 19
                         x_name = substitute(x),
20 20
                         error = TRUE) {
21 -
  lifecycle::deprecate_soft("0.5.1", "check_unique()", "chk::check_unique()",
22 -
                            "Use chk::chk_unique() for a faster version which returns NULL.")
21 +
  lifecycle::deprecate_soft("0.5.1", "check_unique()", "chk::chk_unique()")
23 22
  x_name <- chk_deparse(x_name)
24 23
25 24
  check_flag_internal(error)

@@ -11,7 +11,7 @@
Loading
11 11
check_pattern <- function(x, pattern, all = TRUE,
12 12
                          x_name = substitute(x),
13 13
                         error = TRUE) {
14 -
  lifecycle::deprecate_soft("0.5.1", "check_pattern()", "check_grepl()")
14 +
  lifecycle::deprecate_soft("0.5.1", "check_pattern()", "chk::chk_match()")
15 15
  x_name <- chk_deparse(x_name)
16 16
17 17
  check_string_internal(pattern)

@@ -13,7 +13,7 @@
Loading
13 13
#' check_nchar(c("foo", "bar"), nchar = 3)
14 14
check_nchar <- function(x, nchar = TRUE, x_name = substitute(x),
15 15
                         error = TRUE) {
16 -
  lifecycle::deprecate_soft("0.5.1", "check_nchar()", NULL)
16 +
  lifecycle::deprecate_soft("0.5.1", "check_nchar()", "chk::chk_match()")
17 17
  x_name <- chk_deparse(x_name)
18 18
19 19
  check_flag_internal(error)

@@ -15,8 +15,7 @@
Loading
15 15
check_character <- function(x, coerce = FALSE,
16 16
                      x_name = substitute(x),
17 17
                      error = TRUE) {
18 -
  lifecycle::deprecate_soft("0.5.1", "check_character()", "chk::check_character()",
19 -
                            "Use chk::chk_character() for a faster version which returns NULL.")
18 +
  lifecycle::deprecate_soft("0.5.1", "check_character()", "chk::chk_character()")
20 19
  x_name <- chk_deparse(x_name)
21 20
  
22 21
  check_flag_internal(coerce)

@@ -26,6 +26,8 @@
Loading
26 26
                       order = FALSE,
27 27
                       x_name = substitute(x),
28 28
                       error = TRUE) {
29 +
  lifecycle::deprecate_soft("0.5.1", "check_list()", NULL,
30 +
                            "Please use chk::chk_list(), chk::check_dim(), chk::chk_unique(), chk::chk_named(), and/or chk::check_values() instead.")
29 31
  x_name <- chk_deparse(x_name)
30 32
  
31 33
  if (!is.list(x)) err(x_name, " must be a list")
@@ -34,15 +36,15 @@
Loading
34 36
  check_flag_internal(error)
35 37
  
36 38
  if (!missing(length)) {
37 -
    lifecycle::deprecate_soft("0.5.1", "check_list(length = )", "check_length()")
39 +
    lifecycle::deprecate_soft("0.5.1", "check_list(length = )", "chk::check_dim()")
38 40
  }
39 41
40 42
  if (!missing(unique)) {
41 -
    lifecycle::deprecate_soft("0.5.1", "check_list(unique = )", "check_unique()")
43 +
    lifecycle::deprecate_soft("0.5.1", "check_list(unique = )", "chk::chk_unique()")
42 44
  }
43 45
44 46
  if (!missing(named)) {
45 -
    lifecycle::deprecate_soft("0.5.1", "check_list(named = )", "check_named()")
47 +
    lifecycle::deprecate_soft("0.5.1", "check_list(named = )", "chk::chk_named()")
46 48
  }
47 49
  
48 50
  if(!(is_flag(named) || is_string(named) || is_NA(named) || is_count(named) || is_count_range(named))) 

@@ -13,8 +13,7 @@
Loading
13 13
check_environment <- function(x, 
14 14
                           x_name = substitute(x),
15 15
                           error = TRUE) {
16 -
  lifecycle::deprecate_soft("0.5.1", "check_environment()", "chk::check_environment()",
17 -
                            "Use chk::chk_environment() for a faster version which returns NULL.")
16 +
  lifecycle::deprecate_soft("0.5.1", "check_environment()", "chk::chk_environment()")
18 17
  x_name <- chk_deparse(x_name)
19 18
  check_flag_internal(error)
20 19
  

@@ -17,7 +17,7 @@
Loading
17 17
check_missing_colnames <- function(x, colnames, 
18 18
                                   x_name = substitute(x),
19 19
                                   error = TRUE) {
20 -
  lifecycle::deprecate_soft("0.5.1", "check_missing_colnames()", "chk::check_names()")
20 +
  lifecycle::deprecate_soft("0.5.1", "check_missing_colnames()", "chk::chk_not_subset(names())")
21 21
  
22 22
  x_name <- chk_deparse(x_name)
23 23
  

@@ -16,8 +16,7 @@
Loading
16 16
check_int <- function(x, coerce = FALSE,
17 17
                      x_name = substitute(x),
18 18
                      error = TRUE) {
19 -
  lifecycle::deprecate_soft("0.5.1", "check_int()", "chk::check_integer()",
20 -
                            "Use chk::chk_integer() for a faster version which returns NULL.")
19 +
  lifecycle::deprecate_soft("0.5.1", "check_int()", "chk::chk_integer()")
21 20
  x_name <- chk_deparse(x_name)
22 21
  
23 22
  check_flag_internal(coerce)
@@ -50,8 +49,7 @@
Loading
50 49
                      x_name = substitute(x),
51 50
                      error = TRUE) {
52 51
  lifecycle::deprecate_soft("0.5.1", "check_pos_int()", NULL,
53 -
                            "Please use chk::check_integer() and chk::check_range() instead. 
54 -
Use chk::chk_integer() and chk::chk_range() for faster versions which return NULL.")
52 +
                            "Please use chk::chk_integer() and chk::chk_gt() instead.")
55 53
  x_name <- chk_deparse(x_name)
56 54
  
57 55
  check_flag_internal(coerce)
@@ -82,8 +80,7 @@
Loading
82 80
                      x_name = substitute(x),
83 81
                      error = TRUE) {
84 82
  lifecycle::deprecate_soft("0.5.1", "check_neg_int()", NULL,
85 -
                            "Please use chk::check_integer() and chk::check_range() instead. 
86 -
Use chk::chk_integer() and chk::chk_range() for faster versions which return NULL.")
83 +
                            "Please use chk::chk_integer() and chk::chk_lt() instead.")
87 84
  x_name <- chk_deparse(x_name)
88 85
  
89 86
  check_flag_internal(coerce)
@@ -115,8 +112,7 @@
Loading
115 112
                       x_name = substitute(x),
116 113
                       error = TRUE) {
117 114
  lifecycle::deprecate_soft("0.5.1", "check_noneg_int()", NULL,
118 -
                            "Please use chk::check_integer() and chk::check_range() instead. 
119 -
Use chk::chk_integer() and chk::chk_range() for faster versions which return NULL.")
115 +
                            "Please use chk::chk_integer() and chk::chk_gte() instead.")
120 116
  x_name <- chk_deparse(x_name)
121 117
122 118
  check_flag_internal(coerce)
@@ -150,8 +146,7 @@
Loading
150 146
                       x_name = substitute(x),
151 147
                       error = TRUE) {
152 148
  lifecycle::deprecate_soft("0.5.1", "check_count()", NULL,
153 -
                            "Please use chk::check_whole_number() and chk::check_range() instead. 
154 -
Use chk::chk_whole_number() and chk::chk_range() for faster versions which return NULL.")
149 +
                            "Please use chk::chk_whole_number() and chk::chk_gte() instead.")
155 150
  x_name <- chk_deparse(x_name)
156 151
  
157 152
  check_noneg_int(x = x, coerce = coerce, x_name = x_name, error = error)

@@ -17,8 +17,7 @@
Loading
17 17
                         coerce = FALSE,
18 18
                         x_name = substitute(x),
19 19
                         error = TRUE) {
20 -
  lifecycle::deprecate_soft("0.5.1", "check_chr()", "chk::check_chr()",
21 -
                            "Use chk::chk_chr() for a faster version which returns NULL.")
20 +
  lifecycle::deprecate_soft("0.5.1", "check_chr()", "chk::chk_chr()")
22 21
  x_name <- chk_deparse(x_name)
23 22
  
24 23
  check_flag_internal(coerce)
@@ -37,8 +36,7 @@
Loading
37 36
                         coerce = FALSE,
38 37
                         x_name = substitute(x),
39 38
                         error = TRUE) {
40 -
  lifecycle::deprecate_soft("0.5.1", "check_string()", "chk::check_string()",
41 -
                            "Use chk::chk_string() for a faster version which returns NULL.")
39 +
  lifecycle::deprecate_soft("0.5.1", "check_string()", "chk::chk_string()")
42 40
  x_name <- chk_deparse(x_name)
43 41
  
44 42
  check_chr(x, coerce = coerce, x_name = x_name, error = error)

@@ -20,7 +20,7 @@
Loading
20 20
  check_flag_internal(error)
21 21
  
22 22
  if (!missing(regex)) {
23 -
    lifecycle::deprecate_soft("0.5.1", "check_grepl(regex)", "check_grepl(pattern)")
23 +
    lifecycle::deprecate_soft("0.5.1", "check_grepl()", "chk::chk_match()")
24 24
    check_string(regex)
25 25
    pattern <- regex
26 26
  }
@@ -34,7 +34,7 @@
Loading
34 34
#' @export
35 35
check_regex <- function(x, regex = ".*", x_name = substitute(x),
36 36
                        error = TRUE) {
37 -
  lifecycle::deprecate_soft("0.5.1", "check_regex()", "check_grepl()")
37 +
  lifecycle::deprecate_soft("0.5.1", "check_regex()", "chk::chk_match()")
38 38
  x_name <- chk_deparse(x_name)
39 39
  check_grepl(x, regex = regex, x_name = x_name, error = error)
40 40
}

@@ -16,8 +16,7 @@
Loading
16 16
check_lgl <- function(x, coerce = FALSE,
17 17
                       x_name = substitute(x),
18 18
                       error = TRUE) {
19 -
  lifecycle::deprecate_soft("0.5.1", "check_lgl()", "chk::check_lgl()",
20 -
                            "Use chk::chk_lgl() for a faster version which returns NULL.")
19 +
  lifecycle::deprecate_soft("0.5.1", "check_lgl()", "chk::chk_lgl()")
21 20
  x_name <- chk_deparse(x_name)
22 21
23 22
  check_flag_internal(coerce)
@@ -34,8 +33,7 @@
Loading
34 33
check_flag <- function(x, coerce = FALSE,
35 34
                       x_name = substitute(x),
36 35
                       error = TRUE) {
37 -
  lifecycle::deprecate_soft("0.5.1", "check_flag()", "chk::check_flag()",
38 -
                            "Use chk::chk_flag() for a faster version which returns NULL.")
36 +
  lifecycle::deprecate_soft("0.5.1", "check_flag()", "chk::chk_flag()")
39 37
  x_name <- chk_deparse(x_name)
40 38
  
41 39
  check_lgl(x, coerce = coerce, x_name = x_name, error = error)
@@ -53,7 +51,7 @@
Loading
53 51
check_flag_na <- function(x, coerce = TRUE,
54 52
                       x_name = substitute(x),
55 53
                       error = TRUE) {
56 -
  lifecycle::deprecate_soft("0.5.1", "check_flag_na()", "check_scalar()")
54 +
  lifecycle::deprecate_soft("0.5.1", "check_flag_na()", "chk::check_values()")
57 55
  x_name <- chk_deparse(x_name)
58 56
59 57
  check_flag_internal(coerce)

@@ -24,8 +24,8 @@
Loading
24 24
                         only = FALSE,
25 25
                         x_name = substitute(x),
26 26
                         error = TRUE) {
27 -
  lifecycle::deprecate_soft("0.5.1", "check_vector()", "chk::check_vector()",
28 -
                            "Use chk::chk_vector() for a faster version which returns NULL.")
27 +
  lifecycle::deprecate_soft("0.5.1", "check_vector()", NULL,
28 +
                            "Please use chk::chk_vector(), chk::check_dim(), chk::chk_unique(), chk::chk_sorted(), chk::chk_named(), and/or chk::check_values() instead.")
29 29
  x_name <- chk_deparse(x_name)
30 30
  
31 31
  check_flag_internal(unique)
Files Coverage
R 92.33%
Project Totals (51 files) 92.33%
1
comment: false
2

3
coverage:
4
  status:
5
    project:
6
      default:
7
        target: auto
8
        threshold: 1%
9
        informational: true
10
    patch:
11
      default:
12
        target: auto
13
        threshold: 1%
14
        informational: true
Sunburst
The inner-most circle is the entire project, moving away from the center are folders then, finally, a single file. The size and color of each slice is representing the number of statements and the coverage, respectively.
Icicle
The top section represents the entire project. Proceeding with folders and finally individual files. The size and color of each slice is representing the number of statements and the coverage, respectively.
Grid
Each block represents a single file in the project. The size and color of each block is represented by the number of statements and the coverage, respectively.
Loading