# databases
Amm.dat.string       <- paste(scan("../database/Amm.dat",       what="", sep="\n"), collapse="\n")
iso.dat.string       <- paste(scan("../database/iso.dat",       what="", sep="\n"), collapse="\n")
llnl.dat.string      <- paste(scan("../database/llnl.dat",      what="", sep="\n"), collapse="\n")
minteq.dat.string    <- paste(scan("../database/minteq.dat",    what="", sep="\n"), collapse="\n")
minteq.v4.dat.string <- paste(scan("../database/minteq.v4.dat", what="", sep="\n"), collapse="\n")
pitzer.dat.string    <- paste(scan("../database/pitzer.dat",    what="", sep="\n"), collapse="\n")
sit.dat.string       <- paste(scan("../database/sit.dat",       what="", sep="\n"), collapse="\n")
phreeqc.dat.string   <- paste(scan("../database/phreeqc.dat",   what="", sep="\n"), collapse="\n")
wateq4f.dat.string   <- paste(scan("../database/wateq4f.dat",   what="", sep="\n"), collapse="\n")
# lists
Amm.dat.list         <- scan("../database/Amm.dat",       what="", sep="\n")
iso.dat.list         <- scan("../database/iso.dat",       what="", sep="\n")
llnl.dat.list        <- scan("../database/llnl.dat",      what="", sep="\n")
minteq.dat.list      <- scan("../database/minteq.dat",    what="", sep="\n")
minteq.v4.dat.list   <- scan("../database/minteq.v4.dat", what="", sep="\n")
pitzer.dat.list      <- scan("../database/pitzer.dat",    what="", sep="\n")
sit.dat.list         <- scan("../database/sit.dat",       what="", sep="\n")
phreeqc.dat.list     <- scan("../database/phreeqc.dat",   what="", sep="\n")
wateq4f.dat.list     <- scan("../database/wateq4f.dat",   what="", sep="\n")
save(list = ls(all=TRUE), file="phreeqc/data/databases.RData")
rm(list = ls(all=TRUE))