tests/testsuite/test_WideToDeep.R

In Fuzzy-Logix/AdapteR: Converts R syntax to SQL to provide fast analytics using in-database C++ library DB Lytix.

table2<-FLTable(table= getTestTableName("tblAutoMpg"),
                obs_id_colname = "ObsID")

if(!getFLPlatform()=="Hadoop"){
    table3<-FLTable(table= getTestTableName("tblUSArrests"),
                    obs_id_colname = "ObsID",
                    var_id_colname = "VarID",
                    cell_val_colname ="Num_Val")
} else {
    table3<-FLTable(table= getTestTableName("tblUSArrests"),
                    obs_id_colname = "ObsID",
                    var_id_colname = "DimID",
                    cell_val_colname ="Value")
}

test_that("check if wide to deep works",{
    deep <- wideToDeep(object = table2,
                       ExcludeCols = "HorsePower,Weight",
                       ClassSpec = list(CarName = "Toyota",Cylinders = "4"),
                       WhereClause="",
                       OutObsIDCol="ObsID",
                       OutVarIDCol="",
                       OutValueCol="out_value")
    expect_true(is.character(deep@wideToDeepAnalysisID))
    expect_true(checkRemoteTableExistence(tableName=getTableNameSlot(deep)))
    dbDrop(deep)
    expect_true(!checkRemoteTableExistence(tableName=getTableNameSlot(deep)))
})

## No DeepToWide On Hadoop
if(!is.Hadoop()){
  test_that("check if deep to wide works",{
    wide <- deepToWide(object = table3,
                 whereconditions="",
                 mapTable="",
                 mapName="",
                 Analysisid = ""
                 )
    expect_true(checkRemoteTableExistence(tableName=getTableNameSlot(wide$table)))
    dbDrop(wide$table)
    expect_true(!checkRemoteTableExistence(tableName=getTableNameSlot(wide$table)))
})
}