fix for eva

Schuch666 · Schuch666 · commit c586aebd0782 · 2024-08-05T18:40:32.000-04:00
diff --git a/R/eva.R b/R/eva.R
@@ -120,15 +120,16 @@ eva <- function(mo, ob, rname = station, table = NULL,
       RESULT[,] = NA
       RESULT$n  = 0
       row.names(RESULT) <- rname
-      return(RESULT)
+      return(rbind(table,RESULT))
+      return(rbind(table,RESULT))
     }
     if(!station %in% names(mo)){
       cat(station,'not found in model input\n')
       RESULT <- eval_function((1:19)/10,(1:19)/10, ...)
       RESULT[,] = NA
       RESULT$n  = 0
       row.names(RESULT) <- rname
-      return(RESULT)
+      return(rbind(table,RESULT))
     }
   }
 

Original file line number	Diff line number	Diff line change
`@@ -120,15 +120,16 @@ eva <- function(mo, ob, rname = station, table = NULL,`
`120`	`120`	`RESULT[,] = NA`
`121`	`121`	`RESULT$n = 0`
`122`	`122`	`row.names(RESULT) <- rname`
`123`		`- return(RESULT)`
	`123`	`+ return(rbind(table,RESULT))`
	`124`	`+ return(rbind(table,RESULT))`
`124`	`125`	`}`
`125`	`126`	`if(!station %in% names(mo)){`
`126`	`127`	`cat(station,'not found in model input\n')`
`127`	`128`	`RESULT <- eval_function((1:19)/10,(1:19)/10, ...)`
`128`	`129`	`RESULT[,] = NA`
`129`	`130`	`RESULT$n = 0`
`130`	`131`	`row.names(RESULT) <- rname`
`131`		`- return(RESULT)`
	`132`	`+ return(rbind(table,RESULT))`
`132`	`133`	`}`
`133`	`134`	`}`
`134`	`135`