fixed bug camel_case, changed test_contents

Author: nachocab

R/new-template.R

@@ -124,7 +124,7 @@ get_translator_test_contents <- function(template_name) {
     paste0("context(\"", template_name, "\")
 
 test_that(\"get_data works\", {
-    params <- list(data = 1:10)
+    params <- list(x = 1:10)
     ", tolower(template_name), " <- ", template_name, "$new(params)
     ", tolower(template_name), "$get_data()
     expect_equal(", tolower(template_name), "$data, 1:10)

R/utils.R

@@ -44,7 +44,7 @@ title_case <- function(strings){
 camel_case <- function(strings){
     strings <- gsub("_", ".", strings)
     strings <- strsplit(strings, "\\.")
-    strings <- sapply(strings, title_case)
+    strings <- sapply(strings, title_case, simplify = FALSE)
     camel_case <- sapply(strings, paste, collapse = "")
     camel_case
 }

tests/testthat/test-utils.R

@@ -65,8 +65,14 @@ test_that("title_case", {
 })
 
 test_that("camel_case", {
+    expect_equal(camel_case("paco_pepe"), "PacoPepe")
+    expect_equal(camel_case("PacoPepe"), "PacoPepe")
+
     strings <- c("paco_pepe", "paco.pepe", "paco.pepe_luis")
     expect_equal(camel_case(strings), c("PacoPepe","PacoPepe", "PacoPepeLuis"))
+
+    strings <- c("PacoPepe","PacoPepe", "PacoPepeLuis")
+    expect_equal(camel_case(strings), c("PacoPepe","PacoPepe", "PacoPepeLuis"))
 })
 
 test_that("snake_case", {