tests/test-read_file.r

In swish-climate-impact-assessment/swishdbtools: Database tools for use with the SWISH and CARDAT projects

################################################################
# name:read_file
if (!require(RODBC)) install.packages('RODBC'); require(RODBC) # for
                                      # getSqlTypeInfo
if(!require(foreign)) install.packages('foreign'); require(foreign)
#if(!require(XLConnect)) install.packages('XLConnect'); require(XLConnect)

require(devtools)
install_github("swishdbtools", "swish-climate-impact-assessment")
filename <- file.path(Sys.getenv("TEMP"), "airquality.dta")
write.dta(airquality, filename)
write.csv(airquality, gsub("dta", "csv", filename), row.names=FALSE)
# manually convert to xls
dir("/tmp")
df <- read_file(filename)
#df <- read_file(gsub("dta","xls",filename))
df <- read_file(gsub("dta","csv",filename))