diff --git a/R/utils_da.R b/R/utils_da.R
index 185a036..141f807 100644
--- a/R/utils_da.R
+++ b/R/utils_da.R
@@ -88,6 +88,7 @@ anyAllNA <- function(data) {
 
 
 castDataNumericMatrix <- function(data) {
+  force(data) # evaluate to check for errors
   data <- tryCatch({
     numericData <- lapplyDf(data, FUN = as.numeric)
   },