tests/test_as_is.R

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

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

lookup.xport('puromycin.xpt')

## By default, character variable "STATE" should be converted into a
## factor
x <- read.xport('puromycin.xpt')
str(x)

stopifnot( class(x$STATE)=="factor" )

## When as.is=TRUE, character variable "STATE" should be preserved as
## a character variable.

x <- read.xport('puromycin.xpt',as.is=TRUE)
str(x)

stopifnot( class(x$STATE)=="character" )