options(encoding = "UTF-8")
test1 <- 'aland islands'
test2 <- 'åland islands'
regex1 <- "[å|a]land islands"
regex2 <- "(*UCP)\\b([å|a])land islands"
grepl(regex1, test1, perl = TRUE)
grepl(regex2, test1, perl = TRUE)
grepl(regex1, test2, perl = TRUE)
grepl(regex2, test2, perl = TRUE)
grepl(regex1, test2, perl = FALSE)
grepl(regex2, test2, perl = FALSE)
b3B0aW9ucyhlbmNvZGluZyA9ICJVVEYtOCIpCgp0ZXN0MSA8LSAnYWxhbmQgaXNsYW5kcycKdGVzdDIgPC0gJ8OlbGFuZCBpc2xhbmRzJwoKcmVnZXgxIDwtICJbw6V8YV1sYW5kIGlzbGFuZHMiCnJlZ2V4MiA8LSAiKCpVQ1ApXFxiKFvDpXxhXSlsYW5kIGlzbGFuZHMiCgpncmVwbChyZWdleDEsIHRlc3QxLCBwZXJsID0gVFJVRSkKZ3JlcGwocmVnZXgyLCB0ZXN0MSwgcGVybCA9IFRSVUUpCgpncmVwbChyZWdleDEsIHRlc3QyLCBwZXJsID0gVFJVRSkKZ3JlcGwocmVnZXgyLCB0ZXN0MiwgcGVybCA9IFRSVUUpCgpncmVwbChyZWdleDEsIHRlc3QyLCBwZXJsID0gRkFMU0UpCmdyZXBsKHJlZ2V4MiwgdGVzdDIsIHBlcmwgPSBGQUxTRSk=