document and build

NAMESPACE

@@ -12,11 +12,13 @@ S3method(type,stringr_fixed)
 S3method(type,stringr_regex)
 export("%>%")
 export("str_sub<-")
+export(StrToPascal)
 export(boundary)
 export(coll)
 export(fixed)
 export(invert_match)
 export(regex)
+export(strToCamel)
 export(str_c)
 export(str_conv)
 export(str_count)
@@ -57,8 +59,12 @@ export(str_starts)
 export(str_sub)
 export(str_sub_all)
 export(str_subset)
+export(str_to_camel)
+export(str_to_kebab)
 export(str_to_lower)
+export(str_to_pascal)
 export(str_to_sentence)
+export(str_to_snake)
 export(str_to_title)
 export(str_to_upper)
 export(str_trim)

R/case.R

@@ -22,6 +22,7 @@
 #'
 #' @inheritParams str_detect
 #' @inheritParams coll
+#' @param separator string. For snake case, can change the `_`
 #' @return A character vector the same length as `string`.
 #' @examples
 #' dog <- "The quick brown dog"
@@ -116,7 +117,7 @@ str_to_snake <- function(string, separator = "_", locale = "en") {
 }
 #' @export
 #' @rdname case
-str_to_kebab <- function(string) {
-  string <- str_to_snake(string, separator = "-")
+str_to_kebab <- function(string, locale = "en") {
+  string <- str_to_snake(string, separator = "-", locale = locale)
   return(string)
 }