change_date: Change 'Date' components

In gipso/lubritime: An Extension for lubridate

Change Date components

Description

⁠change_*()⁠ allows you to change the day, month, year, or date of a Date, POSIXct, or POSIXlt object.

Usage

change_date(x, date)

change_day(x, day)

change_month(x, month)

change_year(x, year)

Arguments

x	A Date, POSIXct, or POSIXlt object.
date	A character or Date object representing the new date.
day	A numeric object representing the day of the month.
month	A numeric object representing the month of the year.
year	A numeric object representing the year.

Value

A Date, POSIXct, or POSIXlt object with the new day, month, year, or date.

See Also

Other utility functions: extract_seconds(), fix_hms(), flat_posixt_date(), get_last_week(), round_time()

Examples

## Scalar example

change_day(as.Date("2021-01-01"), 15)
#> [1] "2021-01-15" # Expected

change_month(as.POSIXct("2021-01-01 12:00:00", tz = "UTC"), 12)
#> [1] "2021-12-01 12:00:00 UTC" # Expected

change_year(as.POSIXlt("2021-01-01 12:00:00", tz = "UTC"), 2022)
#> [1] "2022-01-01 12:00:00 UTC" # Expected

change_date(
  x = as.POSIXlt("2021-01-01 12:00:00", tz = "UTC"),
  date = as.Date("2000-01-01")
)
#> [1] "2000-01-01 12:00:00 UTC" # Expected

## Vector example

x <- as.Date(c("2021-01-01", "2021-01-01"))
change_day(x, 15)
#> [1] "2021-01-15" "2021-01-15" # Expected

x <- as.POSIXct(c("2021-01-01 12:00:00", "2021-01-01 12:00:00"), tz = "UTC")
change_month(x, 10:11)
#> [1] "2021-10-01 12:00:00 UTC" "2021-11-01 12:00:00 UTC" # Expected

x <- as.POSIXlt(c("2021-01-01 12:00:00", "2021-01-01 12:00:00"), tz = "UTC")
change_year(x, 2022)
#> [1] "2022-01-01 12:00:00 UTC" "2022-01-01 12:00:00 UTC" # Expected

x <- as.POSIXlt(c("2021-01-01 12:00:00", "2021-01-01 12:00:00"), tz = "UTC")
change_date(x, as.Date("2000-01-01"))
#> [1] "2000-01-01 12:00:00 UTC" "2000-01-01 12:00:00 UTC" # Expected

gipso/lubritime documentation built on April 17, 2025, 12:03 p.m.