fork download
copy 
  1. name_format <- function(x) gsub("([A-Z])", perl = TRUE, "\\L\\1", gsub("(?!^[A-Z])([A-Z])", perl = TRUE, "_\\L\\1", x))
  2. print(name_format("AccountsOnFile"))
  3.  
Success #stdin #stdout 0.23s 39724KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "accounts_on_file"
https://ideone.com/uav06F
language:
R (R 3.5.2)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!