regexp question

library(pipeR)
library(stringr)

set.seed(20)
str_candidates <- c(
  str_c("{", replicate(30L, str_c(sample(letters, sample(5:20, 5L), TRUE), collapse = "")), "}"),
  str_c("{{", replicate(30L, str_c(sample(letters, sample(5:20, 5L), TRUE), collapse = "")), "}}"),
  str_c("{{", replicate(30L, str_c(sample(letters, sample(5:20, 5L), TRUE), collapse = "")), ":",
        str_c(rep(" ", sample(4, 1L)), collapse = ""),
        replicate(30L, str_c(sample(c(letters, str_split("/*-+=~!@#$%^&*`?", "")[[1]]), sample(5:20, 5), TRUE),
                            collapse = "")), "}}"),
  str_c("<", replicate(30L, str_c(sample(letters, sample(5:20, 5L), TRUE), collapse = "")), ">"),
  letters, LETTERS
)

N <- 10000L
n <- 50L

a <- replicate(N, sample(str_candidates, n, TRUE) %>>% str_c(collapse=" "), simplify = TRUE)
a2 <- ??

## test 1
all.equal(str_split(a, " ") %>>% laply(function(x) sum(str_detect(x, "^[a-zA-Z]$"))),
          str_split(a2, " ") %>>% laply(function(x) sum(str_detect(x, "^[a-zA-Z]$"))))
# expected result: TRUE

## test 2
str_detect(a2, "<[^<>]*>") %>>% any
# expected result: FALSE

## test 3
str_detect(a2, "[^\\{]\\{[^{}]*\\}[^\\}]") %>>% any
# expected result: FALSE
str_detect(a2, "^\\{[^{}]*\\}[^\\}]") %>>% any
# expected result: FALSE
str_detect(a2, "[^\\{]\\{[^{}]*\\}$") %>>% any
# expected result: FALSE