1#' Check if a string is uppercase.
2#'
3#' Return \code{TRUE} if all cased characters in the string are uppercase and there is at
4#' least one cased character, \code{FALSE} otherwise.
5#'
6#' @param str A character vector.
7#'
8#' @return A logical vector.
9#'
10#' @references \url{https://docs.python.org/3/library/stdtypes.html#str.isupper}
11#'
12#' @seealso \code{\link{pystr_islower}}
13#'
14#' @examples
15#' pystr_islower("ALL UPPERCASE!")
16#' pystr_islower("All Uppercase?")
17#' pystr_islower("ABC123")
18#'
19#' @export
20pystr_isupper <- function(str) {
21  return(pystr_isupper_(str))
22}
23