Skip to contents

Checks whether a vector can be converted to a length-1 hms::hms() vector.

Usage

to_time_scalar(
  x,
  ...,
  treat_number_as = c("seconds", "milliseconds", "days", "error"),
  allow_null = FALSE,
  allow_zero_length = FALSE,
  x_arg = caller_arg(x),
  to_arg = NULL,
  call = caller_env(),
  x_class = object_type(x)
)

Arguments

x

The object to stabilize.

...

Arguments passed to methods.

treat_number_as

(character(1)) How to interpret numeric input: "seconds" or "milliseconds" since midnight, "days" as a fraction of a day (so 0.5 is 12:00:00), or "error" to reject numbers. Ignored for non-numeric input.

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.

to_arg

(character(1) or NULL) The name of the object that x is being converted to match, for use in error messages. When NULL, error messages describe only x. When supplied, conversion failure messages name both x_arg and to_arg.

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 conversion, but want the error message to match the original class.

Value

The input as a length-1 hms::hms() vector, or an error condition with classes <stbl-error>, <stbl-condition>, <rlang_error>, <error>, <condition>, and a specific class by failure mode:

  • <stbl-error-incompatible_values-time> when some values cannot be safely converted to a time of day.

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

  • <stbl-error-bad_empty> for empty vectors when allow_zero_length = FALSE.

  • <stbl-error-non_scalar> for non-scalar vectors.

Examples

to_time_scalar("13:20:00Z")
#> 13:20:00
try(to_time_scalar(c("13:20:00Z", "14:20:00Z")))
#> Error in eval(expr, envir) : 
#>   `c("13:20:00Z", "14:20:00Z")` must be a single <hms/difftime>.
#> ✖ `c("13:20:00Z", "14:20:00Z")` has 2 values.