From b2e537f9077b521afe882be1aaf8e0d833cbbd8c Mon Sep 17 00:00:00 2001
From: phit0 <philipp.schad@stud.uni-goettingen.de>
Date: Wed, 10 Nov 2021 17:49:49 +0100
Subject: [PATCH] [base] helpful error message for missing classes
---
R/read_in_utils.R | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/R/read_in_utils.R b/R/read_in_utils.R
index 11add85..af6e526 100644
--- a/R/read_in_utils.R
+++ b/R/read_in_utils.R
@@ -270,7 +270,11 @@ order_parameters <- function(parameters, class_name){
for(i in seq_len(length(parameters))){
# cat("\n", names(parameters)[[i]], "\n")
- assertthat::assert_that(names(parameters)[[i]] %in% class_args)
+ assertthat::assert_that(names(parameters)[[i]] %in% class_args,
+ msg = paste0(names(parameters)[[i]],
+ " not in class_args of class ",
+ class_name,
+ collapse = " "))
}
}
--
GitLab