R/load.BIFIE.data.R

In BIFIEsurvey: Tools for Survey Statistics in Educational Assessment

## File Name: load.BIFIE.data.R
## File Version: 1.24


#*** load BIFIEdata objects when objects are saved as full BIFIEdata
#***    objects in one file
load.BIFIEdata <- function(filename, dir=getwd() )
{
    d1 <- load( file=file.path(dir,filename) )
    objname <- "bdat_temp"
    cdata <- NULL
    miceadds::Reval( paste0("cdata <- ", d1,"$cdata" )    , print.string=FALSE  )
    if (cdata){        # if cdata=TRUE
        l1 <- paste0( d1, "$wgtrep <- matrix(",
                       d1,"$wgtreplist$unique_wgt[ ", d1, "$wgtreplist$indexwgtrep ],
                             nrow=", d1, "$N, ncol=", d1, "$RR ) ")
        miceadds::Reval( l1, print.string=FALSE )
        miceadds::Reval( paste0( d1, "$wgtreplist <- NULL" ), print.string=FALSE)
    }
    # save object in global environment
    eval(parse(text=paste(objname, "<- ", d1)))
    eval( parse(text=paste0( "return( ", objname, ")" ) ) )
}