-
Notifications
You must be signed in to change notification settings - Fork 2
/
deprecated.R
141 lines (124 loc) · 2.6 KB
/
deprecated.R
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
#' @rdname dtt_second
#' @export
dtt_seconds <- function(x, ...) {
.Deprecated("dtt_second")
UseMethod("dtt_second")
}
#' @rdname dtt_second
#' @export
`dtt_seconds<-` <- function(x, value) {
.Deprecated("dtt_second<-")
UseMethod("dtt_second<-")
}
#' @rdname dtt_minute
#' @export
dtt_minutes <- function(x, ...) {
.Deprecated("dtt_minute")
UseMethod("dtt_minute")
}
#' @rdname dtt_minute
#' @export
`dtt_minutes<-` <- function(x, value) {
.Deprecated("dtt_minute<-")
UseMethod("dtt_minute<-")
}
#' Is Date Time
#'
#' @param x An R object.
#'
#' @return A flag indicating whether R is a POSIXct vector.
#' @family is
#' @export
dtt_is_date_time <- function(x) {
.Deprecated("is.POSIXct")
is.POSIXct(x)
}
#' Is Date
#'
#' @param x An R object.
#'
#' @return A flag indicating whether R is a Date vector.
#' @family is
#' @export
dtt_is_date <- function(x) {
.Deprecated("is.Date")
is.Date(x)
}
#' @rdname dtt_hour
#' @export
dtt_hours <- function(x, ...) {
.Deprecated("dtt_hour")
UseMethod("dtt_hour")
}
#' @rdname dtt_hour
#' @export
`dtt_hours<-` <- function(x, value) {
.Deprecated("dtt_hour<-")
UseMethod("dtt_hour<-")
}
#' @rdname dtt_day
#' @export
dtt_days <- function(x, ...) {
.Deprecated("dtt_day")
UseMethod("dtt_day")
}
#' @rdname dtt_day
#' @export
`dtt_days<-` <- function(x, value) {
.Deprecated("dtt_day<-")
UseMethod("dtt_day<-")
}
#' @rdname dtt_default_tz
#' @export
dtt_sys_tz <- function() {
.Deprecated("dtt_default_tz")
dtt_default_tz()
}
#' @rdname dtt_default_tz
#' @export
dtt_set_sys_tz <- function(tz = NULL) {
.Deprecated("dtt_set_default_tz")
dtt_set_default_tz(tz = tz)
}
#' @rdname dtt_default_tz
#' @export
dtt_reset_sys_tz <- function() {
.Deprecated("dtt_reset_default_tz")
dtt_reset_default_tz()
}
#' @rdname dtt_month
#' @export
dtt_months <- function(x, ...) {
.Deprecated("dtt_month")
UseMethod("dtt_month")
}
#' @rdname dtt_month
#' @export
`dtt_months<-` <- function(x, value) {
.Deprecated("dtt_month<-")
UseMethod("dtt_month<-")
}
#' @rdname dtt_year
#' @export
dtt_years <- function(x, ...) {
.Deprecated("dtt_year")
UseMethod("dtt_year")
}
#' @rdname dtt_year
#' @export
`dtt_years<-` <- function(x, value) {
.Deprecated("dtt_year<-")
UseMethod("dtt_year<-")
}
#' Dayte Time
#'
#' @param x A Date or POSIXct vector.
#' @param start An integer vector of the starting month or a Date vector of the
#' starting date.
#' @return A Date or POSIXct vector with the year for February 29th as 1972.
#' @family dayte
#' @export
dtt_daytt <- function(x, start = 1L) {
.Deprecated("dtt_dayte or dtt_dayte_time")
daytte(x, start = start)
}