add ignore_case option to coll of locate

Author: snowmerak

R/locate.R

@@ -3,15 +3,15 @@ str_locate_single <- function(l, x) {
         return(NULL)
     }
 
-    if (class(x) == "fixed" || class(x) == "regex" || class(x) == "coll" && x@ignore_case) {
+    if (class(x) == "fixed" || class(x) == "regex" && x@ignore_case) {
         l <- convert_to_uppercase(l)
     }
 
     switch(
         class(x),
         fixed = str_bytes_locate(l, get_fixed(x)),
         regex = str_regex_locate(l, get_regex(x)),
-        coll = str_utf8_locate(l, get_coll(x)),
+        coll = str_utf8_locate(l, get_coll(x), x@ignore_case),
         character = str_regex_locate(l, x)
     )
 }