tests/testthat/_snaps/valid.md

In S7: An Object Oriented System Meant to Become a Successor to S3 and S4

validate() validates object and type recursively

Code
  obj <- klass(1, -1)
  attr(obj, "x") <- -1
  validate(obj)
Condition
  Error:
  ! <klass> object is invalid:
  - x must be positive
Code
  attr(obj, "x") <- "y"
  validate(obj)
Condition
  Error:
  ! <klass> object properties are invalid:
  - @x must be <double>, not <character>

Code
  obj <- klass2(1, -1, 1)
  attr(obj, "x") <- -1
  validate(obj)
Condition
  Error:
  ! <klass2> object is invalid:
  - x must be positive
Code
  attr(obj, "x") <- "y"
  attr(obj, "z") <- "y"
  validate(obj)
Condition
  Error:
  ! <klass2> object properties are invalid:
  - @x must be <double>, not <character>
  - @z must be <double>, not <character>

validate checks base type

Code
  validate(x)
Condition
  Error:
  ! <Double> object is invalid:
  - Underlying data must be <double> not <character>

validate checks the type of setters

Code
  foo(x = 123)
Condition
  Error:
  ! <foo>@x must be <double>, not <character>

S7 documentation built on April 3, 2025, 10:50 p.m.