Avoid T & F

Author: krauwe

R/classify_nuts.R

@@ -69,7 +69,7 @@ classify_nuts <-
       cli_abort("Input {.arg data} must be a data frame or tibble, not {.obj_type_friendly {data}}.")
     if (!is.character(nuts_code))
       cli_abort("Input {.arg nuts_code} must be provided as a string, not {.obj_type_friendly {nuts_code}}.")
-    if (nuts_code %in% colnames(data) == F)
+    if (nuts_code %in% colnames(data) == FALSE)
       cli_abort("Input {.arg nuts_code} not found in the provided data frame.")
     if (!ties %in% c("most_recent", "oldest"))
       cli_abort("Input {.arg ties} must be 'most_recent' or 'oldest'.")
@@ -82,7 +82,7 @@ classify_nuts <-
       rename(from_code = !!sym(nuts_code))
 
     # Simple NUTS code check
-    if (any(str_detect(data$from_code, "^[A-Za-z]{2}[A-Za-z0-9]{1,3}$") == F))
+    if (any(str_detect(data$from_code, "^[A-Za-z]{2}[A-Za-z0-9]{1,3}$") == FALSE))
       cli_abort(
         c(
           "Variable {.var {nuts_code}} contains invalid NUTS codes.",

R/convert_nuts_level.R

@@ -62,7 +62,7 @@ convert_nuts_level <-
     if (is.null(variables))
       cli_abort("Input {.arg variables} cannot be NULL.")
 
-    if (any(names(variables) %in% colnames(data[["data"]])) == F)
+    if (any(names(variables) %in% colnames(data[["data"]])) == FALSE)
       cli_abort("Input {.arg variables} not found in the provided data frame.")
 
     if (any(!(unlist(variables) %in% c("absolute", "relative"))))
@@ -182,7 +182,7 @@ convert_nuts_level <-
     stocks <- cross_walks %>%
       filter(.data$from_version == .data$to_version) %>%
       select(-c("from_version", "to_version", "to_code")) %>%
-      distinct(.data$from_code, .keep_all = T)
+      distinct(.data$from_code, .keep_all = TRUE)
 
     # - Expand all NUTS codes by all group combinations
     if (!is.null(group_vars)) {

R/convert_nuts_version.R

@@ -77,7 +77,7 @@ convert_nuts_version <-
     if (is.null(variables))
       cli_abort("Input {.arg variables} cannot be NULL.")
 
-    if (any(names(variables) %in% colnames(data[["data"]])) == F)
+    if (any(names(variables) %in% colnames(data[["data"]])) == FALSE)
       cli_abort("Input {.arg variables} not found in the provided data frame.")
 
     if (any(!(unlist(variables) %in% c("absolute", "relative"))))