From 7548543ca6cf1c9747efb874bb85aa8dc8edde1b Mon Sep 17 00:00:00 2001
From: Niek Den Teuling <niek.den.teuling@philips.com>
Date: Wed, 6 Jan 2021 02:44:59 +0100
Subject: [PATCH] Fixed externalMetric for model list input

---
 R/models.R | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/R/models.R b/R/models.R
index fbe16b42..69589c66 100644
--- a/R/models.R
+++ b/R/models.R
@@ -192,10 +192,9 @@ setMethod('externalMetric', signature('lcModels', 'lcModel'), .externalMetric.lc
 #' @return For `externalMetric(list, lcModel)`: A named `numeric` vector or `data.frame`
 #' containing the computed model metrics.
 setMethod('externalMetric', signature('list', 'lcModel'),
-  function(object, object2, name, drop = TRUE)
-  {
-  assert_that(is.lcModels(object))
-  .externalMetric.lcModels(object, object2, name, drop = drop)
+  function(object, object2, name, drop = TRUE) {
+    models = as.lcModels(object)
+    .externalMetric.lcModels(models, object2, name, drop = drop)
 })