Да, он упакован в «as.is», см. Справку (read.dbf)
Например:
library(foreign)
x <- read.dbf(system.file("files/sids.dbf", package="foreign")[1])
any(sapply(x, is.factor))
[1] TRUE
y <- read.dbf(system.file("files/sids.dbf", package="foreign")[1], as.is = TRUE)
any(sapply(y, is.factor))
[1] FALSE