Skip to contents

Coerce to date with additional checks

Source: R/stabilize_date.R
stabilize_date.Rd

Compared to to_date(), stabilize_date() checks more details, but is slower. stabilise_date() is a synonym of stabilize_date().

Usage

stabilize_date(
  x,
  ...,
  allow_null = TRUE,
  allow_na = TRUE,
  min_size = NULL,
  max_size = NULL,
  unique = FALSE,
  min_value = NULL,
  max_value = NULL,
  allowed_values = NULL,
  x_arg = caller_arg(x),
  call = caller_env(),
  x_class = object_type(x)
)

stabilise_date(
  x,
  ...,
  allow_null = TRUE,
  allow_na = TRUE,
  min_size = NULL,
  max_size = NULL,
  unique = FALSE,
  min_value = NULL,
  max_value = NULL,
  allowed_values = NULL,
  x_arg = caller_arg(x),
  call = caller_env(),
  x_class = object_type(x)
)

Arguments

x

The object to stabilize.

...

Arguments passed to methods.

allow_null

(logical(1)) Is NULL an acceptable value?

allow_na

(logical(1)) Are NA values ok?

min_size

(integer(1)) The minimum size of the object. Object size will be tested using vctrs::vec_size().

max_size

(integer(1)) The maximum size of the object. Object size will be tested using vctrs::vec_size().

unique

(logical(1)) Should all elements in x be distinct?

min_value

(numeric(1)) The lowest allowed value for x. If NULL (default) values are not checked.

max_value

(numeric(1)) The highest allowed value for x. If NULL (default) values are not checked.

allowed_values

A vector of permitted values (coerced to the target type). NULL (default) skips the check. NA values in x are permitted independently of allowed_values, subject to allow_na.

x_arg

(character(1)) The name of the object being stabilized to use in error messages. The automatic value will work in most cases, or pass it through from higher-level functions to make error messages clearer in unexported functions.

call

(environment) The execution environment to mention as the source of error messages.

x_class

(character(1)) The class name of the object being stabilized to use in error messages. Use this if you remove a special class from the object before checking its coercion, but want the error message to match the original class.

Value

The input as a base::Date vector, or an error condition with classes <stbl-error>, <stbl-condition>, <rlang_error>, <error>, <condition>, and a specific class by failure mode:

  • <stbl-error-coerce-date> when x cannot be coerced to date.

  • <stbl-error-incompatible_values-date> when some values cannot be safely converted to date.

  • <stbl-error-bad_null> for NULL values when allow_null = FALSE.

  • <stbl-error-bad_na> for NA values when allow_na = FALSE.

  • <stbl-error-size_too_small> when the vector is shorter than min_size.

  • <stbl-error-size_too_large> when the vector is longer than max_size.

  • <stbl-error-duplicate_elements> when unique = TRUE and duplicates are present.

  • <stbl-error-outside_range> when values fall outside min_value or max_value.

  • <stbl-error-allowed_values> when values are not in allowed_values.

See also

Other date functions: specify_date(), stabilize_date_scalar(), to_date(), to_date_scalar()

Other stabilization functions: assert_present(), stabilize_any_of(), stabilize_arg(), stabilize_chr(), stabilize_chr_scalar(), stabilize_date_scalar(), stabilize_dbl(), stabilize_dbl_scalar(), stabilize_df(), stabilize_dttm(), stabilize_dttm_scalar(), stabilize_dur(), stabilize_dur_scalar(), stabilize_fct(), stabilize_fct_scalar(), stabilize_int(), stabilize_int_scalar(), stabilize_lgl(), stabilize_lgl_scalar(), stabilize_lst(), stabilize_time(), stabilize_time_scalar(), to_chr(), to_chr_scalar(), to_date(), to_date_scalar(), to_dbl(), to_dbl_scalar(), to_dttm(), to_dttm_scalar(), to_dur(), to_dur_scalar(), to_fct(), to_fct_scalar(), to_int(), to_int_scalar(), to_lgl(), to_lgl_scalar(), to_time(), to_time_scalar()

Examples

stabilize_date(as.Date("2024-01-01"))
#> [1] "2024-01-01"
stabilize_date("2024-01-01")
#> [1] "2024-01-01"
stabilize_date(NULL)
#> NULL
try(stabilize_date(NULL, allow_null = FALSE))
#> Error in eval(expr, envir) : `NULL` must not be <NULL>.
try(stabilize_date(c(as.Date("2024-01-01"), NA), allow_na = FALSE))
#> Error in eval(expr, envir) : 
#>   `c(as.Date("2024-01-01"), NA)` must not contain NA values.
#> • NA locations: 2
try(stabilize_date("11/13/2018"))
#> Error in eval(expr, envir) : 
#>   `"11/13/2018"` <character> must be coercible to <date>
#> ✖ Can't convert some values due to invalid or ambiguous date format.
#> • Locations: 1
#> • Values: "11/13/2018"
try(stabilize_date("2024-01-01", min_value = "2024-06-01"))
#> Error in eval(expr, envir) : `"2024-01-01"` must be >= 2024-06-01.
#> ✖ "2024-01-01" is too low.
try(stabilize_date("2024-12-01", max_value = "2024-06-01"))
#> Error in eval(expr, envir) : `"2024-12-01"` must be <= 2024-06-01.
#> ✖ "2024-12-01" is too high.
try(stabilize_date(
  c("2024-01-01", "2024-01-02"),
  allowed_values = "2024-01-01"
))
#> Error in eval(expr, envir) : 
#>   `c("2024-01-01", "2024-01-02")` must be one of the allowed values.
#> ℹ Allowed value: "2024-01-01".
#> ✖ Unexpected location: 2
#> ✖ Unexpected value: "2024-01-02".