linter

Aleksander Chlebowski · Aleksander Chlebowski · commit 741b615f6c4c · 2024-03-19T15:12:38.000+01:00
diff --git a/R/data_extract_filter_module.R b/R/data_extract_filter_module.R
@@ -67,7 +67,7 @@ data_extract_filter_srv <- function(id, datasets, filter) {
         choices <- value_choices(
           data = datasets[[filter$dataname]](),
           var_choices = input$col,
-          var_label = `if`(isTRUE(input$col == attr(filter$choices, "var_choices")), attr(filter$choices, "var_label"), NULL)
+          var_label = if (isTRUE(input$col == attr(filter$choices, "var_choices"))) attr(filter$choices, "var_label")
         )
 
         selected <- if (!is.null(filter$selected)) {

Original file line number	Diff line number	Diff line change
`@@ -67,7 +67,7 @@ data_extract_filter_srv <- function(id, datasets, filter) {`
`67`	`67`	`choices <- value_choices(`
`68`	`68`	`data = datasets[[filter$dataname]](),`
`69`	`69`	`var_choices = input$col,`
`70`		- var_label = `if`(isTRUE(input$col == attr(filter$choices, "var_choices")), attr(filter$choices, "var_label"), NULL)
	`70`	`+ var_label = if (isTRUE(input$col == attr(filter$choices, "var_choices"))) attr(filter$choices, "var_label")`
`71`	`71`	`)`
`72`	`72`
`73`	`73`	`selected <- if (!is.null(filter$selected)) {`