Add an algorithm for checking if a string is in lowercase (#131)

Author: Ifeanyi55

text_manipulation/is.lower.R

@@ -0,0 +1,12 @@
+is.lowercase <- function(string) {
+  # split the string at character level
+  string_split <- c(unlist(strsplit(string, split = "")))
+  # check if the split string exactly matches its lowercase version
+  check_case <- string_split == tolower(string_split)
+  # return a boolean value based on the outcome of the check
+  return(all(check_case))
+}
+
+is.lowercase("social")
+
+