test_that("Strict mode", {
expect_identical(
object = upperCamelCase(unnamed, strict = TRUE),
expected = c(
"PercentGc",
"X10um",
"X5X3Bias",
"X5prime",
"G2mScore",
"HelloWorld",
"HelloWorld",
"MazdaRx4",
"NCount",
"RnaiClones",
"Tx2gene",
"Tx2GeneId",
"WorfdbHtmlRemap",
"X123"
)
)
})
test_that("Non-strict mode", {
expect_identical(
object = upperCamelCase(unnamed, strict = FALSE),
expected = c(
"PercentGC",
"X10um",
"X5X3Bias",
"X5prime",
"G2MScore",
"HelloWorld",
"HELLOWORLD",
"MazdaRX4",
"NCount",
"RNAIClones",
"Tx2gene",
"TX2GeneID",
"WorfdbHTMLRemap",
"X123"
)
)
})
test_that("Named character", {
expect_identical(
object = upperCamelCase(named, names = TRUE, strict = TRUE),
expected = c(
ItemA = "HelloWorld",
ItemB = "HelloWorld"
)
)
expect_named(
object = camelCase(named, names = FALSE),
expected = names(named)
)
})
test_that("Disable X prefix", {
object <- c("1" = "1 foo bar")
expect_identical(
object = upperCamelCase(object),
expected = c("X1" = "X1FooBar")
)
expect_identical(
object = upperCamelCase(object, prefix = FALSE),
expected = c("X1" = "1FooBar")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.