fixes #28

RobinHankin · Dec 11, 2021 · 7e56f4a · 7e56f4a
1 parent d5cfadc
commit 7e56f4a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/spray.R b/R/spray.R
@@ -77,8 +77,8 @@ setClass("spray",
    jj <- coeffs(S)
    if(is.disord(value)){
 
-     stopifnot(consistent(coeffs(S),value))
-
+     stopifnot(consistent(jj,value))
+     if((!identical(hash(jj),hash(value))) & (length(value)>1)){stop("length > 1")}
 
      jj <- value
    } else {