diff --git a/R/build-databases.R b/R/build-databases.R
new file mode 100644
index 00000000..890dfe27
--- /dev/null
+++ b/R/build-databases.R
@@ -0,0 +1,12 @@
+# databases
+Amm.dat       <- paste(scan("../database/Amm.dat",       what="", sep="\n"), collapse="\n")
+iso.dat       <- paste(scan("../database/iso.dat",       what="", sep="\n"), collapse="\n")
+llnl.dat      <- paste(scan("../database/llnl.dat",      what="", sep="\n"), collapse="\n")
+minteq.dat    <- paste(scan("../database/minteq.dat",    what="", sep="\n"), collapse="\n")
+minteq.v4.dat <- paste(scan("../database/minteq.v4.dat", what="", sep="\n"), collapse="\n")
+pitzer.dat    <- paste(scan("../database/pitzer.dat",    what="", sep="\n"), collapse="\n")
+sit.dat       <- paste(scan("../database/sit.dat",       what="", sep="\n"), collapse="\n")
+phreeqc.dat   <- paste(scan("../database/phreeqc.dat",   what="", sep="\n"), collapse="\n")
+wateq4f.dat   <- paste(scan("../database/wateq4f.dat",   what="", sep="\n"), collapse="\n")
+save(list = ls(all=TRUE), file="phreeqc/data/databases.RData")
+rm(list = ls(all=TRUE))
diff --git a/R/build-examples.R b/R/build-examples.R
new file mode 100644
index 00000000..2c5c6a08
--- /dev/null
+++ b/R/build-examples.R
@@ -0,0 +1,12 @@
+# examples
+ex1 <- paste(scan("../phreeqc3-examples/ex1", what="", sep="\n"), collapse="\n")
+ex2 <- paste(scan("../phreeqc3-examples/ex2", what="", sep="\n"), collapse="\n")
+ex3 <- paste(scan("../phreeqc3-examples/ex3", what="", sep="\n"), collapse="\n")
+ex4 <- paste(scan("../phreeqc3-examples/ex4", what="", sep="\n"), collapse="\n")
+ex5 <- paste(scan("../phreeqc3-examples/ex5", what="", sep="\n"), collapse="\n")
+ex6 <- paste(scan("../phreeqc3-examples/ex6", what="", sep="\n"), collapse="\n")
+ex7 <- paste(scan("../phreeqc3-examples/ex7", what="", sep="\n"), collapse="\n")
+ex8 <- paste(scan("../phreeqc3-examples/ex8", what="", sep="\n"), collapse="\n")
+ex9 <- paste(scan("../phreeqc3-examples/ex9", what="", sep="\n"), collapse="\n")
+save(list = ls(all=TRUE), file="phreeqc/data/examples.RData")
+rm(list = ls(all=TRUE))