R/_test_tranform.convert.R

In Rdataflow/data.flow: ETL toolchain for data flows

.test_transform.convert<-function(){


    d <- fread("C:/temp/Daten/Holzproduktion.csv")[, c("unit", "status") := list("m3", "official")][]
    key<-names(d)[-7]
    ##
    conv<-data.table(d[1:6,1],conv=1.9/((1:6)%%7+1))
    ##
    conv[]
    d[]
    d[conv,on=names(d)[1]]
    ##
    d.conv <- d[conv, on = names(d)[1]][, c("unit", "status", "value", "conv") := list("t", "converted", value * conv, NULL)][]
    f<-funion(d,d.conv)
    f[]


    return(f)
}