library(dplyr)
library(stringr)

! str_detect("THE QUEEN’S HAND", "[[:lower:]]")
! str_detect("##45$&%&3#", "[[:lower:]]")
! str_detect("THE QUEEN’s HAND\n", "[[:lower:]]")
! str_detect("aa", "[[:lower:]]")