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
|
#' Get or set the time zone
#'
#' @description
#' `r lifecycle::badge("deprecated")`
#'
#' - `date_zone()` is deprecated in favor of [date_time_zone()].
#'
#' - `date_set_zone()` is deprecated in favor of [date_time_set_zone()].
#'
#' @inheritParams date_time_zone
#'
#' @keywords internal
#' @name date-zone
NULL
#' @rdname date-zone
#' @export
date_zone <- function(x) {
# - soft-deprecated: 0.7.0
lifecycle::deprecate_soft(
when = "0.7.0",
what = "date_zone()",
with = "date_time_zone()"
)
UseMethod("date_zone")
}
#' @export
date_zone.Date <- function(x) {
abort("Can't get the zone of a 'Date'.")
}
#' @export
date_zone.POSIXt <- function(x) {
posixt_tzone(x)
}
#' @rdname date-zone
#' @export
date_set_zone <- function(x, zone) {
# - soft-deprecated: 0.7.0
lifecycle::deprecate_soft(
when = "0.7.0",
what = "date_set_zone()",
with = "date_time_set_zone()"
)
UseMethod("date_set_zone")
}
#' @export
date_set_zone.Date <- function(x, zone) {
abort("Can't set the zone of a 'Date'.")
}
#' @export
date_set_zone.POSIXt <- function(x, zone) {
x <- to_posixct(x)
check_zone(zone)
posixt_set_tzone(x, zone)
}
|
