## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(comment = "#>", collapse = TRUE)
## -----------------------------------------------------------------------------
library(lubridate)
ymd("20110604")
mdy("06-04-2011")
dmy("04/06/2011")
## -----------------------------------------------------------------------------
arrive <- ymd_hms("2011-06-04 12:00:00", tz = "Pacific/Auckland")
arrive
leave <- ymd_hms("2011-08-10 14:00:00", tz = "Pacific/Auckland")
leave
## -----------------------------------------------------------------------------
second(arrive)
second(arrive) <- 25
arrive
second(arrive) <- 0
wday(arrive)
wday(arrive, label = TRUE)
## -----------------------------------------------------------------------------
meeting <- ymd_hms("2011-07-01 09:00:00", tz = "Pacific/Auckland")
with_tz(meeting, "America/Chicago")
## -----------------------------------------------------------------------------
mistake <- force_tz(meeting, "America/Chicago")
with_tz(mistake, "Pacific/Auckland")
## -----------------------------------------------------------------------------
auckland <- interval(arrive, leave)
auckland
auckland <- arrive %--% leave
auckland
## -----------------------------------------------------------------------------
jsm <- interval(ymd(20110720, tz = "Pacific/Auckland"), ymd(20110831, tz = "Pacific/Auckland"))
jsm
## -----------------------------------------------------------------------------
int_overlaps(jsm, auckland)
## -----------------------------------------------------------------------------
setdiff(auckland, jsm)
## -----------------------------------------------------------------------------
minutes(2) ## period
dminutes(2) ## duration
## -----------------------------------------------------------------------------
leap_year(2011) ## regular year
ymd(20110101) + dyears(1)
ymd(20110101) + years(1)
leap_year(2012) ## leap year
ymd(20120101) + dyears(1)
ymd(20120101) + years(1)
## -----------------------------------------------------------------------------
meetings <- meeting + weeks(0:5)
## -----------------------------------------------------------------------------
meetings %within% jsm
## -----------------------------------------------------------------------------
auckland / ddays(1)
auckland / ddays(2)
auckland / dminutes(1)
## -----------------------------------------------------------------------------
auckland %/% months(1)
auckland %% months(1)
## -----------------------------------------------------------------------------
as.period(auckland %% months(1))
as.period(auckland)
## -----------------------------------------------------------------------------
jan31 <- ymd("2013-01-31")
jan31 + months(0:11)
floor_date(jan31, "month") + months(0:11) + days(31)
jan31 %m+% months(0:11)
## -----------------------------------------------------------------------------
last_day <- function(date) {
ceiling_date(date, "month") - days(1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.