1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
# nocov start
.onLoad <- function(libname, pkgname) {
tzdb::tzdb_initialize()
clock_init_utils()
clock_ns <- topenv(environment())
# Initializers must run after initializing C++ utils and setting tzdata
clock_init_duration_utils(clock_ns)
clock_init_limits_init(clock_ns)
clock_init_year_month_day_utils(clock_ns)
clock_init_year_month_weekday_utils(clock_ns)
clock_init_iso_year_week_day_utils(clock_ns)
clock_init_year_day_utils(clock_ns)
clock_init_sys_time_utils(clock_ns)
clock_init_naive_time_utils(clock_ns)
clock_init_zoned_time_utils(clock_ns)
clock_init_weekday_utils(clock_ns)
vctrs::s3_register(
"pillar::pillar_shaft",
"clock_calendar",
pillar_shaft.clock_calendar
)
vctrs::s3_register(
"pillar::pillar_shaft",
"clock_time_point",
pillar_shaft.clock_time_point
)
vctrs::s3_register(
"pillar::pillar_shaft",
"clock_zoned_time",
pillar_shaft.clock_zoned_time
)
vctrs::s3_register(
"slider::slider_plus",
"Date.clock_duration",
slider_plus.Date.clock_duration
)
vctrs::s3_register(
"slider::slider_plus",
"POSIXct.clock_duration",
slider_plus.POSIXct.clock_duration
)
vctrs::s3_register(
"slider::slider_plus",
"POSIXlt.clock_duration",
slider_plus.POSIXlt.clock_duration
)
vctrs::s3_register(
"slider::slider_minus",
"Date.clock_duration",
slider_minus.Date.clock_duration
)
vctrs::s3_register(
"slider::slider_minus",
"POSIXct.clock_duration",
slider_minus.POSIXct.clock_duration
)
vctrs::s3_register(
"slider::slider_minus",
"POSIXlt.clock_duration",
slider_minus.POSIXlt.clock_duration
)
}
# nocov end
|
