From b3d9bf2e5571cf506b924a6fc9cbcc366c82e340 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 27 Sep 2018 18:57:55 +0200
Subject: Soil names for soil sorption tables

---
 R/chent.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'R')

diff --git a/R/chent.R b/R/chent.R
index e977544..abe96a2 100644
--- a/R/chent.R
+++ b/R/chent.R
@@ -355,14 +355,16 @@ chent <- R6Class("chent",
       }
     },
     soil_sorption = NULL,
-    add_soil_sorption = function(type, Kf, Kfoc, N,
+    add_soil_sorption = function(soils, Kf, Kfoc, N,
+                                 type = NA,
                                  pH_orig = NA, pH_medium = NA,
                                  pH_H2O = NA,
                                  perc_OC = NA, perc_clay = NA, CEC = NA,
                                  remark = "", source, page = NA) {
       new_soil_sorption = data.frame(
-        type = type,
+        soils = soils,
         Kf = Kf, Kfoc = Kfoc, N = N,
+        type = type,
         pH_orig = pH_orig,
         pH_medium = pH_medium,
         pH_H2O = pH_H2O,
-- 
cgit v1.2.1