The hms package provides a simple class for storing durations or time-of-day values and displaying them in the hh:mm:ss format. This class is intended to simplify data exchange with databases, spreadsheets, and other data sources:
POSIXt
difftime class"digits.secs" optionhms aims to:
00:00:00,
on top of difftime and always with seconds as the unit, so that coercion to numeric is unambiguous.hh:mm:ss,
with fractional seconds up to a microsecond, regardless of the "digits.secs" option.<time> column in a tibble.difftime, POSIXct and POSIXlt —
through as_hms() and the vec_cast() methods.parse_hms() and parse_hm(),
and rounding with round_hms(), trunc_hms(), ceiling_hms() and floor_hms().It is explicitly not trying to:
as_hms() performs no conversion, and lubridate::with_tz() or lubridate::force_tz() is the documented way to shift a value first.units() warns and leaves the value unchanged.hms() performs no bounds checking, and values may exceed the 24-hour boundary or be negative.hms has no common type with character or numeric, so combining them is an error rather than a guess.parse_hms() reads "HH:MM:SS" with optional fractional seconds, and parse_hm() reads "HH:MM".# The easiest way to get hms is to install the whole tidyverse:
install.packages("tidyverse")
# Alternatively, install just hms:
install.packages("hms")
# Or the the development version from GitHub:
# install.packages("pak")
pak::pak("tidyverse/hms")
The following example showcases ways of using the hms class standalone or as a data frame column.
library(hms)
hms(56, 34, 12)
#> 12:34:56
as_hms(Sys.time())
#> 09:30:00
parse_hms("12:34:56")
#> 12:34:56
as.POSIXct(hms(1))
#> [1] "1970-01-01 00:00:01 UTC"
tibble::tibble(hours = 1:3, hms = hms(hours = 1:3))
#> # A tibble: 3 × 2
#> hours hms
#> <int> <time>
#> 1 1 01:00
#> 2 2 02:00
#> 3 3 03:00
Objects of the hms and its underlying difftime classes are stored as number of seconds since 00:00:00.
Use as.numeric() and as_hms() to convert to and from numbers.
times <- parse_hms(c("00:00:00.25", "00:00:01", "00:01:30", "01:00:00"))
times
#> 00:00:00.25
#> 00:00:01.00
#> 00:01:30.00
#> 01:00:00.00
times_num <- as.numeric(times)
times_num
#> [1] 0.25 1.00 90.00 3600.00
as_hms(times_num)
#> 00:00:00.25
#> 00:00:01.00
#> 00:01:30.00
#> 01:00:00.00
Please note that the 'hms' project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.