update nrows validation in scatterplot (#880)

donyunardi · web-flow · commit 8db6b55f4570 · 2025-05-19T22:06:37.000-07:00
Fixes #19 The plot is now generated as long as the dataset has at least one row.
diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R
@@ -716,7 +716,7 @@ srv_g_scatterplot <- function(id,
         ))
       }
 
-      teal::validate_has_data(ANL[, c(x_var, y_var)], 10, complete = TRUE, allow_inf = FALSE)
+      teal::validate_has_data(ANL[, c(x_var, y_var)], 1, complete = TRUE, allow_inf = FALSE)
 
       if (log_x) {
         validate(

Original file line number	Diff line number	Diff line change
`@@ -716,7 +716,7 @@ srv_g_scatterplot <- function(id,`
`716`	`716`	`))`
`717`	`717`	`}`
`718`	`718`
`719`		`- teal::validate_has_data(ANL[, c(x_var, y_var)], 10, complete = TRUE, allow_inf = FALSE)`
	`719`	`+ teal::validate_has_data(ANL[, c(x_var, y_var)], 1, complete = TRUE, allow_inf = FALSE)`
`720`	`720`
`721`	`721`	`if (log_x) {`
`722`	`722`	`validate(`