Fixed NA check in NodeExperience<-

ralmond · ralmond · commit de5d86f408b9 · 2023-04-13T22:22:17.000-04:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2023-04-13  Russell Almond  <ralmond@pei>
+
+	* R/Experience.R ("NodeExperience<-"): Fixed issue with checking for NAs. 
+
 2023-04-12  Russell Almond  <ralmond@pei>
 
 	* R/Networks.R (NetworkSession): Added this function as it seems to be needed.
diff --git a/R/Experience.R b/R/Experience.R
@@ -30,7 +30,7 @@ NodeExperience <- function (node) {
   if (!is.numeric(value)) {
     stop("Value must be numeric")
   }
-  if (any(is.na(value) || any(value <= 0))) {
+  if (any(is.na(value)) || any(value <= 0)) {
     stop("Values must be positive numbers.  NAs are not allowed.")
   }
   dv <- dim(value)

Original file line number	Diff line number	Diff line change
`@@ -30,7 +30,7 @@ NodeExperience <- function (node) {`
`30`	`30`	`if (!is.numeric(value)) {`
`31`	`31`	`stop("Value must be numeric")`
`32`	`32`	`}`
`33`		`- if (any(is.na(value) \|\| any(value <= 0))) {`
	`33`	`+ if (any(is.na(value)) \|\| any(value <= 0)) {`
`34`	`34`	`stop("Values must be positive numbers. NAs are not allowed.")`
`35`	`35`	`}`
`36`	`36`	`dv <- dim(value)`