diff --git a/NEWS.md b/NEWS.md index 9318985c7..2688dd5bf 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# teal.modules.general 0.2.16.9011 +# teal.modules.general 0.2.16.9012 ### Enhancements diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R index 85e43923a..1f3b57d15 100644 --- a/R/tm_g_scatterplotmatrix.R +++ b/R/tm_g_scatterplotmatrix.R @@ -216,7 +216,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 71341c563..937d7338d 100644 --- a/R/tm_outliers.R +++ b/R/tm_outliers.R @@ -334,7 +334,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,