tests/dfAttributes.R

In SASxport: Read and Write 'SAS' 'XPORT' Files

library(SASxport)
library(Hmisc)
Sys.setenv("TZ"="GMT")

## manually create a data set
abc.out <- data.frame( x=c(1, 2, NA, NA ), y=c('a', 'B', NA, '*' ) )

## add a data set label (not used by R)
Hmisc::label(abc.out, self=TRUE) <- "xxxx data set xxxxx"
SAStype(abc.out) <- "normal"

## add a format specifier (not used by R)
SASformat(abc.out$x) <- 'date7.'

## add a variable label (not used by R)
Hmisc::label(abc.out$y)  <- 'character variable'

# create a SAS XPORT file from our local data frame
write.xport(abc.out,
            file="dfAttributes.xpt",
            cDate=strptime("28JUL07:21:08:06 ", format="%d%b%y:%H:%M:%S"),
            osType="SunOS",
            sasVer="9.1",
            autogen.formats=FALSE
            )

# read the SAS data back in
abc.in <- read.xport("dfAttributes.xpt",
                     names.tolower=FALSE,
                     verbose=TRUE)

## Test that the files are otherwise identical
Hmisc::label(abc.out, self=TRUE, "MISSING!")
Hmisc::label(abc.in , self=TRUE, "MISSING!")

SAStype(abc.out, "MISSING!")
SAStype(abc.in , "MISSING!")

stopifnot( Hmisc::label  (abc.out, self=TRUE, "MISSING!") ==
           Hmisc::label  (abc.in,  self=TRUE, "MISSING!") )

stopifnot( SAStype(abc.out, "MISSING!") ==
           SAStype(abc.in,  "MISSING!") )