From e31acfe57a87dd9ad581b45fa046c03f0a77a3cd Mon Sep 17 00:00:00 2001 From: Scott R Charlton Date: Thu, 13 Feb 2014 05:36:56 +0000 Subject: [PATCH] added R scripts to build datasets git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@8489 1feff8c3-07ed-0310-ac33-dd36852eb9cd --- R/build-databases.R | 12 ++++++++++++ R/build-examples.R | 12 ++++++++++++ 2 files changed, 24 insertions(+) create mode 100644 R/build-databases.R create mode 100644 R/build-examples.R 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))