fix error

gogonzo · gogonzo · commit 8e8457d0c3a6 · 2024-10-15T10:17:30.000+02:00
diff --git a/R/tm_a_regression.R b/R/tm_a_regression.R
@@ -653,7 +653,7 @@ srv_a_regression <- function(id,
             geom_boxplot(),
           env = list(regressor = regression_var()$regressor, response = regression_var()$response)
         )
-        if (show_outlier) {
+        if (input$show_outlier) {
           plot <- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))
         }
       }

Original file line number	Diff line number	Diff line change
`@@ -653,7 +653,7 @@ srv_a_regression <- function(id,`
`653`	`653`	`geom_boxplot(),`
`654`	`654`	`env = list(regressor = regression_var()$regressor, response = regression_var()$response)`
`655`	`655`	`)`
`656`		`- if (show_outlier) {`
	`656`	`+ if (input$show_outlier) {`
`657`	`657`	`plot <- substitute(expr = plot + outlier_label, env = list(plot = plot, outlier_label = outlier_label()))`
`658`	`658`	`}`
`659`	`659`	`}`