Skip to contents

Checks whether a vector can be coerced to a length-1 lubridate::Period vector.

Usage

to_dur_scalar(
  x,
  ...,
  allow_null = FALSE,
  allow_zero_length = FALSE,
  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_zero_length

(logical(1)) Are zero-length vectors acceptable?

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 length-1 lubridate::Period vector.

Examples

to_dur_scalar("P1D")
#> [1] "1d 0H 0M 0S"
try(to_dur_scalar(c("P1D", "P2D")))
#> Error in eval(expr, envir) : 
#>   `c("P1D", "P2D")` must be a single <Period>.
#>  `c("P1D", "P2D")` has 2 values.