csiro-hydroinformatics / c-interop Goto Github PK

  x <- GetSimulationSpan_Pkg_R(subSim)
  # Would like to also test this but there is a puzzling difference. I did not grok the result of str(unclass(x$Start)) given the output of str(x$Start) and attributes(x$Start). 
  # DO NOTE however the difference in date attributes. and the additional tclass on the xts start.
  # expect_equal(x$Start, start(rain))
  # > start(rain)
  # [1] "2002-01-01 UTC"
  # > str(start(rain))
  #  POSIXct[1:1], format: "2002-01-01"
  # > str(x$Start)
  #  POSIXct[1:1], format: "2002-01-01"
  # > str(unclass(start(rain)))
  #  num 1.01e+09
  #  - attr(*, "tzone")= chr "UTC"
  #  - attr(*, "tclass")= chr [1:2] "POSIXct" "POSIXt"
  # > str(unclass(x$Start))
  #  num 1.01e+09
  #  - attr(*, "tzone")= chr "UTC"
  # > attributes(x$Start)
  # $class
  # [1] "POSIXct" "POSIXt" 
  # $tzone
  # [1] "UTC"
  # > attributes(start(rain))
  # $tzone
  # [1] "UTC"
  # $tclass
  # [1] "POSIXct" "POSIXt" 
  # $class
  # [1] "POSIXct" "POSIXt" 

setClass('RegularTimeSeriesGeometry', 
  slots = c(
    Start='POSIXct',
    Length='integer',
    TimeStepSeconds='integer'), 
  prototype=c(
    Start=lubridate::origin,
    Length=0,
    TimeStepSeconds=3600)
)
  
setClass('RegularTimeSeries', 
  slots = c(
    TsGeom='RegularTimeSeriesGeometry',
    EnsembleSize='integer',
    NumericData='matrix'), 
  prototype=c(
    TsGeom=new('RegularTimeSeriesGeometry'),
    EnsembleSize=0,
    NumericData=as.matrix(numeric()))
)