Nothing
#' Contains uppercase?
#'
#' Simply change if there is any uppercase letter in a string
#'
#' @param string the string to evaluate
#'
#' @return TRUE or FALSE if the string has an upper case letter
#'
#' @examples
#' strToTest1 <- 'obiWentToSchool'
#' strToTest2 <- 'obiwenttoschool'
#' hasUpperCase(strToTest1)
#' hasUpperCase(strToTest2)
#'
#'
#' @export
#'
hasUpperCase <- function(string) {
return(!is.na(stringr::str_extract(string, "[A-Z]")))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.