add missing print statement in IF validation

USEPA · May 15, 2024 · a77a3f2 · a77a3f2
1 parent 8766a25
commit a77a3f2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ValidateModel.R b/R/ValidateModel.R
@@ -474,7 +474,7 @@ validateImportFactorsApproach <- function(model, demand = "Consumption"){
 
   cat("\nTesting that LCIA results are equivalent between standard and coupled model approaches (i.e., LCIA = LCIA_dm) when\n")
   cat("assuming model$M = model$Q_t.\n")
-  all.equal(LCIA_dm, LCIA)
+  print(all.equal(LCIA_dm, LCIA))
 
 }