r - snake - kebab case

Cómo convertir not.camel.case a CamelCase en R

Question

En R, quiero convertir

t1 <- c(''this.text'', ''next.text'')
"this.text" "next.text"

a

''ThisText'' ''NextText''

Yo he tratado

gsub(''//..'', '''', t1)

Pero esto me da

"thisext" "nextext"

ya que no sustituye a la letra después del período.

Probablemente muy fácil pero no puedo resolverlo.

Answer 1

Alternativamente una solución basada en expresiones regulares:

t1 <- c(''this.text'', ''next.text'')

# capitalize first letter
t2 <- sub(''^(//w?)'', ''//U//1'', t1, perl=T)

# remove points and capitalize following letter
gsub(''//.(//w?)'', ''//U//1'', t2, perl=T)
[1] "ThisText" "NextText"

Edición: algunas explicaciones.

sub(''^(//w?)'', ''//U//1'', t1, perl=T) , sub es suficiente aquí porque solo estamos interesados ​​en la primera coincidencia. Luego, el primer carácter alfanumérico se compara al comienzo de cada cadena con ^(//w?) . Los paréntesis son necesarios para una referencia posterior en la parte de reemplazo de la función. Para el reemplazo, //U se usa para capitalizar todo lo que viene después (que es el primer carácter).

El mismo principio se aplica en gsub(''//.(//w?)'', ''//U//1'', t2, perl=T) con la única diferencia de que no se hace coincidir el primer carácter, sino todos . .

Answer 2

Aquí hay un enfoque pero con regex probablemente hay mejores:

t1 <- c(''this.text'', ''next.text'')

camel <- function(x){ #function for camel case
    capit <- function(x) paste0(toupper(substring(x, 1, 1)), substring(x, 2, nchar(x)))
    sapply(strsplit(x, "//."), function(x) paste(capit(x), collapse=""))
}

camel(t1)

Esto produce:

> camel(t1)
[1] "ThisText" "NextText"

EDITAR: Como curiosidad, marcé las 4 respuestas (TOM = póster original, TR = yo mismo, JMS = jmsigner y SB = sebastion; comenté en la publicación de jmsigner) y encontré que las respuestas no regex eran más rápidas. Los habría asumido más despacio.

   expr     min      lq  median      uq      max
1 JMS() 183.801 188.000 197.796 201.762  349.409
2  SB()  93.767  97.965 101.697 104.963  147.881
3 TOM()  75.107  82.105  85.370  89.102 1539.917
4  TR()  70.442  76.507  79.772  83.037  139.484

Answer 3

Aquí otra solución a través del paquete snakecase:

install.packages("snakecase")
library(snakecase)

to_upper_camel_case(t1)
#> [1] "ThisText" "NextText"

Githublink: https://github.com/Tazinho/snakecase

Answer 4

En realidad, creo que acabo de resolver esto desde el archivo de ayuda para toupper:

camel <- function(x) {     
     s <- strsplit(x, "//.")[[1]]     
     paste(toupper(substring(s, 1,1)), substring(s, 2),           
     sep="", collapse="") 
 }    

camel(t1) 
sapply(t1,camel)  
this.text  next.text  
"ThisText" "NextText"  

Answer 5

tocamel from rapportools package hace lo que quieres:

> library(rapportools)
> example(tocamel)

tocaml> tocamel("foo.bar")
tocaml>     ## [1] "fooBar"
tocaml> 
tocaml>     tocamel("foo.bar", upper = TRUE)
tocaml>     ## [1] "FooBar"
tocaml> 
tocaml>     tocamel(c("foobar", "foo.bar", "camel_case", "a.b.c.d"))
tocaml>     ## [1] "foobar"    "fooBar"    "camelCase" "aBCD"
tocaml> 

Actualizado:

Otra solución simple y rápida (como @rengis):

camel2 <- function(x) {
    gsub("(^|[^[:alnum:]])([[:alnum:]])", "//U//2", x, perl = TRUE)
}
camel2(t1)
#> [1] "ThisText" "NextText"

Comparación con la solución @TylerRinker:

identical(camel(t1), camel2(t1))
#> [1] TRUE
microbenchmark::microbenchmark(camel(t1), camel2(t1))
#> Unit: microseconds
#>        expr    min      lq     mean  median      uq     max neval cld
#>   camel(t1) 76.378 79.6520 82.21509 81.5065 82.7095 151.867   100   b
#>  camel2(t1) 15.864 16.9425 19.76000 20.9690 21.9735  38.246   100  a