R/archive/snake_case-as.R

#' @include SnakeCase.R
#' @rdname SnakeCase
#' @name as

setAs( 'character', 'SnakeCase', function(from) str_snake_case(from) )

#' @rdname SnakeCase
#' @name as

setAs( 'TitleCase', 'SnakeCase', function(from) str_snake_case(from) )


# @examples 
#   as.snake_case( "one flew over the cuckoo's_nest" )
#' @rdname SnakeCase
#' @export

as.snake_case <- function(x) as(x, 'SnakeCase' )       

Try the lettercase package in your browser

Any scripts or data that you put into this service are public.

lettercase documentation built on May 1, 2019, 9:45 p.m.