fixed lintr errors

epiverse-trace · Jul 30, 2024 · 6077f02 · 6077f02
1 parent 449b931
commit 6077f02
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/documentation.R b/R/documentation.R
@@ -169,8 +169,7 @@ look_up <- function(keywords, module = "all", logic = "or", language = "EN") {
         ignore.case = TRUE
       ), ]
     } else if (logic == "and") {
-      found <- ds[rowSums(vapply(
-        keywords, function(keyword) {
+      found <- ds[rowSums(vapply(keywords, function(keyword) {
           grepl(keyword, ds[["descripcion"]], ignore.case = TRUE)
         },
         logical(nrow(ds))
@@ -183,8 +182,7 @@ look_up <- function(keywords, module = "all", logic = "or", language = "EN") {
         ignore.case = TRUE
       ), ]
     } else if (logic == "and") {
-      found <- ds[rowSums(vapply(
-        keywords, function(keyword) {
+      found <- ds[rowSums(vapply(keywords, function(keyword) {
           grepl(keyword, ds[["description"]], ignore.case = TRUE)
         },
         logical(nrow(ds))