From da62a10abb6865cc799182e2ef6feee290c7812c Mon Sep 17 00:00:00 2001 From: Benjamin Date: Fri, 11 Dec 2015 09:49:29 -0500 Subject: [PATCH] casting errors from factorFormula Addresses Issue #65 --- R/factorFormula.R | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/R/factorFormula.R b/R/factorFormula.R index 5e1191f..395d1c0 100644 --- a/R/factorFormula.R +++ b/R/factorFormula.R @@ -55,6 +55,14 @@ factorFormula <- function(form, network){ nodeType = relabel_mat[, 3], MoreArgs = list(network = network)) + if (any(vapply(new_label, length, numeric(1)) == 0)) + { + noFactors <- unique(names(new_label[vapply(new_label, length, numeric(1)) == 0])) + stop(paste0("The following nodes do not have factor levels defined ", + "in the 'factorLevels' element of the HydeNetwork object: ", + paste0(noFactors, collapse = ", "))) + } + form <- rewriteFormula(relabel, new_label, form) as.formula(form)