diff --git a/R/mix.R b/R/mix.R index f99372e9061596b074377f8f6841e7c0581f1959..4834d690f838645c838842027afe95781d8fb818 100644 --- a/R/mix.R +++ b/R/mix.R @@ -496,9 +496,13 @@ getEntryFromComp<-function(entry,id,set,mode,compTab) { res<- if (length(ind)==1) compTab[ind,entry] else { if (length(ind)>1) { - stop("Nonunique entry selection in comprehensive table.") + warning("Nonunique selection in comprehensive table:") + for (i in ind) { + message('ID: ',compTab$ID[[i]],' set: ',compTab$set[[i]],' mode: ',compTab$mode[[i]]) + } + warning("The compound set table likely containes duplicate IDs per set/mode combination. Please correct this.") } else { - stop("Entries not found for id ", id,"set ",set, "and mode ", mode, " .") + warning("Entries not found for id ", id,"set ",set, "and mode ", mode, " .") } } res