#Not in R .
## Table does not exist in FL_TRAIN, Aster
test_that("FLSqueezeSpace",{
widetable <- FLTable(getTestTableName("tblstringID"), "stringID")
flv <- widetable[1:6,"string"]
resultflvector <- FLSqueezeSpace(flv)
expect_equal(as.R(flv),as.R(resultflvector))
singleSpace <- c("DU ANE", "Home Depot", "MARH TA", "WAL MA RT", "WALMART", "WARTHA")
multiSpace <- gsub(" "," ",singleSpace)
flv <- as.FL(multiSpace)
resultflvector <- FLSqueezeSpace(flv)
expect_equal(singleSpace,as.R(resultflvector))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.