0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
anytime
/
tinytest
/
[
Home
]
File: test_calc_unique.R
library(anytime) now <- Sys.time() times <- sample(format(now + 1:10), 1000, replace=TRUE) expect_equal(anytime(times), anytime(times, calcUnique=TRUE)) expect_equal(utctime(times), utctime(times, calcUnique=TRUE)) today <- Sys.Date() dates <- sample(format(today + 1:10), 1000, replace=TRUE) expect_equal(anytime(dates), anytime(dates, calcUnique=TRUE)) expect_equal(utctime(dates), utctime(dates, calcUnique=TRUE))