Merge branch 'hotfix'

atusy · Nov 21, 2018 · 39aaa45 · 39aaa45
2 parents f33711c + 1de8185
commit 39aaa45
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/read_qnt_elemw.R b/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])))
   )