Improve readability, use variable "keep_row"

KWB-R · Apr 4, 2024 · 562d1b2 · 562d1b2
1 parent 08bc0ea
commit 562d1b2
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/R/filter_scripts.R b/R/filter_scripts.R
@@ -2,9 +2,13 @@
 #' @importFrom kwb.utils matchesCriteria removeEmptyColumns
 filter_scripts <- function(scriptInfo, fun.min = 5, epf.min = 10)
 {
-  criteria <- c(paste("fun >=", fun.min), paste("epf >=", epf.min))
-
-  scriptInfo <- scriptInfo[kwb.utils::matchesCriteria(scriptInfo, criteria), ]
-
-  kwb.utils::removeEmptyColumns(scriptInfo)
+  keep_row <- kwb.utils::matchesCriteria(
+    Data = scriptInfo, 
+    criteria = c(
+      paste("fun >=", fun.min), 
+      paste("epf >=", epf.min)
+    )
+  )
+
+  kwb.utils::removeEmptyColumns(scriptInfo[keep_row, ])
 }