Class & property names are missing from error message when setter is used

[dipterix]

When setter is missing, the error prints out the message @abracadabra must be <integer>, not <double> so users know the cause of error

some_int <- S7::new_class(
  name = "some_int", 
  properties = list(
    abracadabra = S7::new_property(
      class = S7::class_integer
    )
  )
)
some_int(abracadabra = 1.1)
#> Error: <some_int> object properties are invalid:
#> - @abracadabra must be <integer>, not <double>

When setter is made, the error message is not informative

another_int <- S7::new_class(
  name = "another_int", 
  properties = list(
    abracadabra = S7::new_property(
      class = S7::class_integer,
      setter = function(self, value) {
        self@abracadabra <- as.integer(value)
      }
    )
  )
)
another_int(abracadabra = 1.1)
#> Error: `object` must be an <S7_object>, not a <integer>

^{Created on 2024-08-03 with reprex v2.1.1}