Running 'as.Date.R' [150s]
  Running 'bugfixes.R' [0s]
  Comparing 'bugfixes.Rout' to 'bugfixes.Rout.save' ... OK
  Running 'na.fill.R' [126s]
  Running 'na.locf.R' [0s]
  Comparing 'na.locf.Rout' to 'na.locf.Rout.save' ... OK
  Running 'vignette-zoo-quickref.R' [1s]
  Comparing 'vignette-zoo-quickref.Rout' to 'vignette-zoo-quickref.Rout.save' ... OK
  Running 'vignette-zoo.R' [1s]
  Comparing 'vignette-zoo.Rout' to 'vignette-zoo.Rout.save' ... OK
Running the tests in 'tests/as.Date.R' failed.
Complete output:
  > ## set Z's timezone for reproducibility
  > Sys.setenv(TZ = "Europe/Vienna")
  > 
  > ## base results
  > as.Date(10957, origin = "1970-01-01")
  [1] "2000-01-01"
  > as.Date("2000-01-01")
  [1] "2000-01-01"
  > as.Date(as.POSIXct("2000-01-01 00:00:00 GMT", tz = "GMT"))
  [1] "2000-01-01"
  > as.Date(as.POSIXlt("2000-01-01 00:00:00 GMT", tz = "GMT"))
  [1] "2000-01-01"
  > as.Date(NA)
  [1] NA
  > 
  > ## for chron objects
  > library("chron")
  > as.Date(dates("01/01/2000"))
  [1] "2000-01-01"
  > as.Date(chron("01/01/2000", "00:00:00"))
  [1] "2000-01-01"
  > 
  > ## for tis objects
  > library("tis")
  > as.Date(ti(20000101, "daily"))
  [1] "2000-01-01"
  > as.Date(jul(20000101))
  [1] "2000-01-01"
  > 
  > ## for timeDate objects
  > library("timeDate")
  
  Attaching package: 'timeDate'
  
  The following objects are masked from 'package:tis':
  
      dayOfWeek, dayOfYear, isHoliday
  
  > as.Date(timeDate("2000-01-01"))
  [1] "2000-01-01"
  > 
  > ## with zoo attached (masking as.Date/as.Date.numeric)
  > library("zoo")
  
  Attaching package: 'zoo'
  
  The following objects are masked from 'package:base':
  
      as.Date, as.Date.numeric
  
  > as.Date(10957)
  [1] "2000-01-01"
  > as.Date("2000-01-01")
  [1] "2000-01-01"
  > as.Date(as.POSIXct("2000-01-01 00:00:00 GMT", tz = "GMT"))
  [1] "2000-01-01"
  > as.Date(as.POSIXlt("2000-01-01 00:00:00 GMT", tz = "GMT"))
  [1] "2000-01-01"
  > as.Date(NA)
  [1] NA
  > as.Date(yearmon(2000))
  [1] "2000-01-01"
  > as.Date(yearqtr(2000))
  [1] "2000-01-01"
  > as.Date(dates("01/01/2000"))
  [1] "2000-01-01"
  > as.Date(chron("01/01/2000", "00:00:00"))
  [1] "2000-01-01"
  > as.Date.ti <- tis:::as.Date.ti                  ## filed request for export
  > as.Date(ti(20000101, "daily"))
  [1] "2000-01-01"
  > as.Date.jul <- tis:::as.Date.jul                ## filed request for export
  > as.Date(jul(20000101))
  [1] "2000-01-01"
  > as.Date.timeDate <- timeDate:::as.Date.timeDate ## filed request for export
  > as.Date(timeDate("2000-01-01"))
  [1] "2000-01-01"
  > 
  > ## with mondate attached (masking again as.Date)
  > library("mondate")
  
  Attaching package: 'mondate'
  
  The following objects are masked from 'package:tis':
  
      day, month, quarter, year, ymd
  
  The following object is masked from 'package:base':
  
      as.difftime
  
  > as.Date(10957)
  [1] "2000-01-01"
  > as.Date("2000-01-01")
  [1] "2000-01-01"
  > as.Date(as.POSIXct("2000-01-01 00:00:00 GMT", tz = "GMT"))
  [1] "2000-01-01"
  > as.Date(as.POSIXlt("2000-01-01 00:00:00 GMT", tz = "GMT"))
  [1] "2000-01-01"
  > as.Date(NA)
  [1] NA
  > as.Date(yearmon(2000))
  [1] "2000-01-01"
  > as.Date(yearqtr(2000))
  [1] "2000-01-01"
  > as.Date(dates("01/01/2000"))
  [1] "2000-01-01"
  > as.Date(chron("01/01/2000", "00:00:00"))
  [1] "2000-01-01"
  > as.Date(ti(20000101, "daily"))
  [1] "2000-01-01"
  > as.Date(jul(20000101))
  [1] "2000-01-01"
  > as.Date(timeDate("2000-01-01"))
  [1] "2000-01-01"
  > as.Date(mondate(1/31))
  [1] "2000-01-01"
  > 
  > 
  > proc.time()
     user  system elapsed 
     0.70    0.10    0.79 
Running the tests in 'tests/na.fill.R' failed.
Complete output:
  > library("zoo")
  
  Attaching package: 'zoo'
  
  The following objects are masked from 'package:base':
  
      as.Date, as.Date.numeric
  
  > 
  > target <- c(100, 1, 200, 2, 300)
  > current <- na.fill0(c(NA, 1, NA, 2, NA), c(100, 200, 300))
  > identical(target, current)
  [1] TRUE
  > 
  > target <- structure(c(100, 1, 200, 2), na.action = 5L)
  > current <- na.fill0(c(NA, 1, NA, 2, NA), list(100, 200, NULL))
  > identical(target, current)
  [1] TRUE
  > 
  > target <- structure(c(1, 1, 200, 2), na.action = 5L)
  > current <- na.fill0(c(NA, 1, NA, 2, NA), list("extend", 200, NULL))
  > identical(target, current)
  [1] TRUE
  > 
  > target <- c(1, 1, 200, 2, 2)
  > current <- na.fill0(c(NA, 1, NA, 2, NA), list("extend", 200, "extend"))
  > identical(target, current)
  [1] TRUE
  > 
  > target <- structure(c(1, 2), na.action = c(1L, 3L, 5L))
  > current <- na.fill0(c(NA, 1, NA, 2, NA), list())
  > identical(target, current)
  [1] TRUE
  > 
  > target <- NULL
  > current <- na.fill0(NULL, list(1))
  > identical(target, current)
  [1] TRUE
  > 
  > target <- 1
  > current <- na.fill0(1, list(1))
  > identical(target, current)
  [1] TRUE
  > 
  > target <- 1
  > current <- na.fill0(1, 2)
  > identical(target, current)
  [1] TRUE
  > 
  > target <- structure(c(17650, 17650, 0, 17651, 17651), class = "Date")
  > current <- na.fill0(as.Date("2018-04-28") + c(NA, 1, NA, 2, NA), list("extend", as.Date(0)))
  > identical(target, current)
  [1] TRUE
  > 
  > target <- structure(c(0, 17650, 0, 17651, 0), class = "Date")
  > current <- na.fill0(as.Date("2018-04-28") + c(NA, 1, NA, 2, NA), as.Date(0))
  > identical(target, current)
  [1] TRUE
  > 
  > proc.time()
     user  system elapsed 
     0.21    0.06    0.26