inst/unitTests/runit.seqmondate.r

In chiefmurph/mondate: Keep track of dates in terms of months

# 10/26/15
# Going to restrict the seqmondate methods (without the dot)
#   to only work with from and to being specified and of the same class
test.seqmondate.missing <- function() {
  checkException(seqmondate(from = mondate(1:12), by = "months"))
  checkException(seqmondate(to = mondate(1:12),   by = "months"))
  checkException(seqmondate(from = as.Date(mondate(1:12)), by = "months"))
  checkException(seqmondate(to = as.Date(mondate(1:12)),   by = "months"))
}

# 10/10/2015
#seqmondate(as.Date("2015-01-31"), length = 6, by = "months") # used to not work
# used to give
# [1] "2015-01-31" "2015-03-01" "2015-03-31" "2015-05-01" "2015-05-31" "2015-07-01"

test.seqmondate.basicfunctioning <- function() {

  # from, to
  # last day of the month
  checkTrue(all(
    seqmondate(from = mondate("01/31/2014"), to = mondate("04/30/2014")) ==
      mondate.ymd(2014, 1:4)
    ))
  # first day of the month
  checkTrue(all(
    as.character(seqmondate(from = mondate("1/1/2014"), to = mondate("4/1/2014"))) ==
      as.character(mondate.ymd(2014, 1:4, 1))
  ))
  
  # from, to, by
  # last day of the month
  checkTrue(all(
    seqmondate(from = mondate("01/31/2014"), to = mondate("04/30/2014"), by = 2) ==
      mondate.ymd(2014, c(1, 3))
  ))

  # last day of the month
  checkTrue(all(
    as.character(seqmondate(from = mondate("01/1/2014"), to = mondate("11/1/2014"), by = 2)) ==
      c("01/01/2014", "03/01/2014", "05/01/2014", "07/01/2014", "09/01/2014", "11/01/2014")
  ))
  
  # by character
  # when by = "days" uses seq.Date, so both from and to must be specifiec
  checkException(seqmondate(from = mondate("2000-04-30"), by = "days"))
  checkException(seqmondate(to = mondate("2000-08-31"), by = "days"))
  checkException(seqmondate(from = mondate("2000-04-30"), by = "days", length = 3))
  
  checkTrue(all(
    as.character(
      seqmondate(from = mondate("04/30/2014"), to = mondate("05/6/2014"), by = "days")) ==
        c("04/30/2014", "05/01/2014", "05/02/2014", "05/03/2014", "05/04/2014", 
          "05/05/2014", "05/06/2014")
    ))
  checkTrue(all(
    as.character(
      seqmondate(from = mondate("2000-04-30"), to = mondate("2000-05-31"), by = "weeks")) ==
      c("2000-04-30", "2000-05-07", "2000-05-14", "2000-05-21", "2000-05-28")
  ))
      
  m <- seqmondate(from = mondate("2000-01-31"), to = mondate("2000-06-30"), by = "months")
  checkTrue(all(m == mondate.ymd(2000, 1:6)))
  
  # only one value here
  checkTrue(length(
    seqmondate(from = mondate("2000-04-30"), to = mondate("2000-08-31"), by = "years")) == 1)
  checkTrue(all(
    as.character(
      seqmondate(from = mondate("2000-04-30"), to = mondate("2005-04-30"), by = "years")) ==
      c("2000-04-30", "2001-04-30", "2002-04-30", "2003-04-30", "2004-04-30", "2005-04-30")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = mondate("2015-03-31"), to = mondate("2015-12-31"), by = "quarters")) ==
      c("2015-03-31", "2015-06-30", "2015-09-30", "2015-12-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = mondate("2015-03-31"), to = mondate("2015-12-31"), by = "3 months")) ==
      c("2015-03-31", "2015-06-30", "2015-09-30", "2015-12-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = mondate("2014-12-31"), to = mondate("2015-12-31"), by = "2 quarters")) ==
      c("2014-12-31", "2015-06-30", "2015-12-31")
  ))

  # repeat above with Date's

  # from, to -- defaults to by = "months"
  # last day of the month
  checkTrue(all(
    seqmondate(from = as.Date("2014-01-31"), to = as.Date("2014-04-30")) ==
      as.Date(mondate.ymd(2014, 1:4))
  ))
  # first day of the month
  checkTrue(all(
    seqmondate(from = as.Date("2014-01-01"), to = as.Date("2014-04-01")) ==
      as.Date(mondate.ymd(2014, 1:4, 1))
    ))
  
  # from, to, by
  # last day of the month
  checkTrue(all(
    seqmondate(from = as.Date("2014-01-31"), to = as.Date("2014-04-30"), by = 2) ==
      as.Date(mondate.ymd(2014, c(1, 3)))
  ))
  
  # last day of the month
  checkTrue(all(
    as.character(seqmondate(from = as.Date("2014-01-01"), to = as.Date("2014-11-01"), by = 2)) ==
      c("2014-01-01", "2014-03-01", "2014-05-01", "2014-07-01", "2014-09-01", "2014-11-01")
  ))
  
  # by character
  # when by = "days" uses seq.Date, so both from and to must be specifiec
  checkException(seqmondate(from = as.Date("2000-04-30"), by = "days"))
  checkException(seqmondate(to = as.Date("2000-08-31"), by = "days"))
  checkException(seqmondate(from = as.Date("2000-04-30"), by = "days", length = 3))
  
  # days and weeks work as with seq.Date b/c that's what eventually gets called
  checkTrue(all(
      seqmondate(from = as.Date("2014-04-30"), to = as.Date("2014-05-06"), by = "days") ==
        seq(from = as.Date("2014-04-30"), to = as.Date("2014-05-06"), by = "days")
  ))
  checkTrue(all(
    seqmondate(from = as.Date("2014-04-30"), to = as.Date("2014-12-06"), by = "weeks") ==
      seq(from = as.Date("2014-04-30"), to = as.Date("2014-12-06"), by = "weeks")
  ))
  
  checkTrue(all(
    as.character(
      seqmondate(from = as.Date("2000-01-31"), to = as.Date("2000-06-30"), by = "months")) ==
      c("2000-01-31", "2000-02-29", "2000-03-31", "2000-04-30", "2000-05-31", "2000-06-30")
  ))

  # only one value here
  checkTrue(length(
    seqmondate(from = as.Date("2000-04-30"), to = as.Date("2000-08-31"), by = "years")) == 1)
  checkTrue(all(
    as.character(
      seqmondate(from = as.Date("2000-04-30"), to = as.Date("2005-04-30"), by = "years")) ==
      c("2000-04-30", "2001-04-30", "2002-04-30", "2003-04-30", "2004-04-30", "2005-04-30")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = as.Date("2000-04-01"), to = as.Date("2005-04-01"), by = "years")) ==
      c("2000-04-01", "2001-04-01", "2002-04-01", "2003-04-01", "2004-04-01", "2005-04-01")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = as.Date("2015-03-31"), to = as.Date("2015-12-31"), by = "quarters")) ==
      c("2015-03-31", "2015-06-30", "2015-09-30", "2015-12-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = as.Date("2015-03-31"), to = as.Date("2015-12-31"), by = "3 months")) ==
      c("2015-03-31", "2015-06-30", "2015-09-30", "2015-12-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = as.Date("2014-12-31"), to = as.Date("2015-12-31"), by = "2 quarters")) ==
      c("2014-12-31", "2015-06-30", "2015-12-31")
  ))
  
  # 'from' alone
  checkTrue(all(
    as.character(
      seqmondate(from = mondate("2015-01-31"), by = "month", length.out = 3)) ==
      c("2015-01-31", "2015-02-28", "2015-03-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = as.Date("2015-01-31"), by = "month", length.out = 3)) ==
      c("2015-01-31", "2015-02-28", "2015-03-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = as.POSIXlt("2015-01-31"), by = "month", length.out = 3)) ==
      c("2015-01-31", "2015-02-28", "2015-03-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = as.POSIXct("2015-01-31"), by = "month", length.out = 3)) ==
      c("2015-01-31", "2015-02-28", "2015-03-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(from = "2015-01-31", by = "month", length.out = 3)) ==
      c("2015-01-31", "2015-02-28", "2015-03-31")
  ))
  
  # 'to' alone
  checkTrue(all(
    as.character(
      seqmondate(to = mondate("2015-01-31"), by = "month", length.out = 3)) ==
      c("2014-11-30", "2014-12-31", "2015-01-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(to = as.Date("2015-01-31"), by = "month", length.out = 3)) ==
      c("2014-11-30", "2014-12-31", "2015-01-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(to = as.POSIXlt("2015-01-31"), by = "month", length.out = 3)) ==
      c("2014-11-30", "2014-12-31", "2015-01-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(to = as.POSIXct("2015-01-31"), by = "month", length.out = 3)) ==
      c("2014-11-30", "2014-12-31", "2015-01-31")
  ))
  checkTrue(all(
    as.character(
      seqmondate(to = "2015-01-31", by = "month", length.out = 3)) ==
      c("2014-11-30", "2014-12-31", "2015-01-31")
  ))

  # ANY, ANY Mixture  
  checkTrue(all(
    as.character(
      seqmondate(from = mondate.ymd(2014, 11), to = "2015-01-31")) ==
      c("11/30/2014", "12/31/2014", "01/31/2015")
  ))
}