Nothing
#' 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.