print() repeats its output

[RobinHankin]

(Issue #40 refers). Look:

suppressMessages(library("spray"))
a <- spray(diag(3))
print(a)
#>            val
#>  0 0 1  =    1
#>  0 1 0  =    1
#>  1 0 0  =    1
#>            val
#>  0 0 1  =    1
#>  0 1 0  =    1
#>  1 0 0  =    1

^{Created on 2023-07-03 with reprex v2.0.2}

Compare base R:

x <- runif(3)
x
#> [1] 0.4543533 0.3738614 0.5407450
print(x)
#> [1] 0.4543533 0.3738614 0.5407450

^{Created on 2023-07-03 with reprex v2.0.2}

(where there is no duplication)