fix: if statement

The code try to see if number of TRUE are same among each component of a list `matched`.
However, if every component is composed only of FALSE, number of TRUE are 0 in all case.
Resulting in `if(TRUE)` where `if(FALSE)` is intended.

R/read_qnt_elemw.R

@@ -46,7 +46,10 @@ read_qnt_elemw.0_cnd <- function(
   # match pattern and return values
   matched <- lapply(pattern, function(pattern) str_detect(x, pattern))
 
-  if(length(unique(lapply(matched, sum))) == 1) return(
+  if(
+    any(unlist(matched, use.names = FALSE)) &&
+    length(unique(lapply(matched, sum))) == 1
+  ) return(
     as.data.frame(lapply(matched, function(i) as.numeric(val[i])))
   )