options(encoding = "UTF-8")
test1 <- 'aland islands'
test2 <- 'åland islands'
regex1 <- "[å|a]land islands"
regex2 <- "\\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)
# your code goes here
b3B0aW9ucyhlbmNvZGluZyA9ICJVVEYtOCIpCgp0ZXN0MSA8LSAnYWxhbmQgaXNsYW5kcycKdGVzdDIgPC0gJ8OlbGFuZCBpc2xhbmRzJwoKcmVnZXgxIDwtICJbw6V8YV1sYW5kIGlzbGFuZHMiCnJlZ2V4MiA8LSAiXFxiW8OlfGFdbGFuZCBpc2xhbmRzIgoKZ3JlcGwocmVnZXgxLCB0ZXN0MSwgcGVybCA9IFRSVUUpCmdyZXBsKHJlZ2V4MiwgdGVzdDEsIHBlcmwgPSBUUlVFKQoKZ3JlcGwocmVnZXgxLCB0ZXN0MiwgcGVybCA9IFRSVUUpCmdyZXBsKHJlZ2V4MiwgdGVzdDIsIHBlcmwgPSBUUlVFKQoKZ3JlcGwocmVnZXgxLCB0ZXN0MiwgcGVybCA9IEZBTFNFKQpncmVwbChyZWdleDIsIHRlc3QyLCBwZXJsID0gRkFMU0UpCiMgeW91ciBjb2RlIGdvZXMgaGVyZQ==