data(warpbreaks)
str(warpbreaks)
try1 <- paste(tempfile(), ".dbf", sep="")
dbf.write(warpbreaks, try1, factor2char=FALSE)
in1 <- dbf.read(try1)
str(in1)
try2 <- paste(tempfile(), ".dbf", sep="")
dbf.write(warpbreaks, try2, factor2char=TRUE)
in2 <- dbf.read(try2)
str(in2)
Run the code above in your browser using DataCamp Workspace