Catching an error in Tab.C2 when uploaded data contain only single …

…Lab for specific analyte.
janlisec · Apr 3, 2024 · 5a3b16a · 5a3b16a
1 parent 1140589
commit 5a3b16a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/fnc_prepTabC2.R b/R/fnc_prepTabC2.R
@@ -17,6 +17,11 @@ prepTabC2 <- function(dat=NULL, excl_labs=FALSE) {
     dat[,"Lab"] <- factor(dat[,"Lab"])
   }
   x <- sapply(split(dat$value, dat$Lab), mean)
+  if (shiny::isRunning()) {
+    shiny::validate(shiny::need(expr = length(x)>1, message = "No statistics for single Lab possible."))
+  } else {
+    stopifnot(length(x)>1)
+  }
   out <- data.frame(
     "Mean" = mean(x),
     "Median" = stats::median(x),