INDEX$UrlCat <- "Not match"
category_name <- c("Category", "Dates", "Page Auteur", "Page d'accueil")
# create category regex, must be the same length
category_regex <- c("category", "2019", "author","example\.com.\/quot;)
for(i in 1:length(category_name)){
INDEX$UrlCat <- ifelse(grepl(category_regex[i], INDEX$Url, ignore.case = T),
category_name[i], INDEX$UrlCat)