Add an algorithm for checking if a string is in uppercase (#130)

Ifeanyi55 · web-flow · commit c2dcaff0007b · 2024-10-29T19:38:22.000+02:00
diff --git a/text_manipulation/is.uppercase.R b/text_manipulation/is.uppercase.R
@@ -0,0 +1,10 @@
+is.uppercase <- function(string) {
+  # split the string at character level
+  string_split <- c(unlist(strsplit(string, split = "")))
+  # check if the split string exactly matches its uppercase version
+  check_case <- string_split == toupper(string_split)
+  # return a boolean value based on the outcome of the check
+  return(all(check_case))
+}
+
+is.uppercase("BUSINESS")
