diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R
index 80184fba8..6d8a2023f 100644
--- a/R/tm_g_scatterplotmatrix.R
+++ b/R/tm_g_scatterplotmatrix.R
@@ -214,7 +214,7 @@ srv_g_scatterplotmatrix <- function(id, data, reporter, filter_panel_api, variab
       }
 
       teal::validate_has_data(ANL, 10)
-      teal::validate_has_data(ANL[, cols_names], 10, complete = TRUE, allow_inf = FALSE)
+      teal::validate_has_data(ANL[, cols_names, drop = FALSE], 10, complete = TRUE, allow_inf = FALSE)
 
       # get labels and proper variable names
       varnames <- varname_w_label(cols_names, ANL, wrap_width = 20) # nolint
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
index f30ac883f..583ffff3a 100644
--- a/R/tm_outliers.R
+++ b/R/tm_outliers.R
@@ -332,7 +332,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
         `if`(
           length(categorical_var) == 0,
           ANL,
-          ANL[, names(ANL) != categorical_var]
+          ANL[, names(ANL) != categorical_var, drop = FALSE]
         ),
         min_nrow = 10,
         complete = TRUE,