# This example equilibrates pure water with calcite and displays
# the log file name.
phrLoadDatabaseString(phreeqc.dat)
phrSetLogFileOn(TRUE)
phrSetLogFileName(file.path(tempdir(), "phreeqc.log"))
input <- c(
'SOLUTION 1 Pure water ',
'EQUILIBRIUM_PHASES 1 ',
' Calcite 0 10 ',
'KNOBS ',
' -logfile true '
)
if (is.null(phrRunString(input))) {
cat(paste("see ", phrGetLogFileName(), ".\n", sep = ""))
}
Run the code above in your browser using DataLab