Minor fix in 'vlookup' for case when variable 'ind' exists in the 'di…

…ct' data.frame
gdemin · Jul 29, 2020 · 91d6249 · 91d6249
1 parent 87818b6
commit 91d6249
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/vlookup.R b/R/vlookup.R
@@ -139,7 +139,10 @@ vlookup = function(lookup_value, dict, result_column = 2, lookup_column = 1, no_
     } else {
         res = dict[ind, result_column, drop = FALSE]
     }
-    if(!identical(no_match, NA)) res[is.na(ind), ] = no_match
+    if(!identical(no_match, NA)) {
+        ind = is.na(ind)
+        res[ind, ] = no_match
+    }
     res
 }