From cd5970ccb7cb7b6f0f258d8dd85f85f4e13dda8d Mon Sep 17 00:00:00 2001
From: Rainer Walke <walke@demogr.mpg.de>
Date: Fri, 20 Sep 2019 08:30:25 +0200
Subject: [PATCH] add validity methods for RD1 and RE1

---
 R/eo1.R | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/R/eo1.R b/R/eo1.R
index 5af9951..3181fa6 100644
--- a/R/eo1.R
+++ b/R/eo1.R
@@ -200,6 +200,25 @@ setMethod("selectRegion", "RD1", function(x, selectRegion) {
 }
 )
 
+# validity method
+setValidity("RD1",
+            function(object) {
+              msg <- NULL
+              valid <- TRUE
+
+              rd1colnames <- c("Year","Region_Code","Region_Name","Age_Name","Total1","Male","Female","D_Total","D_Male","D_Female", "AgeLow")
+              if (!all(rd1colnames %in% colnames(object@rd1))) {
+                valid <- FALSE
+                msg <- c(msg, paste(c("ex1 must contain:",rd1colnames), collapse=" "))
+              }
+
+              if (valid) TRUE else msg
+            }
+)
+
+
+
+
 
 ####
 # Class for 'GENESIS-Tabelle: 12411-03-03-4'
@@ -251,6 +270,24 @@ setMethod("selectRegion", "RE1", function(x, selectRegion) {
 }
 )
 
+# validity method
+setValidity("RE1",
+            function(object) {
+              msg <- NULL
+              valid <- TRUE
+              re1colnames <-c("Region_Code","Region_Name","Age_Name","Total1","Male","Female","D_Total","D_Male","D_Female",
+                "A_Total","A_Male","A_Female", "Year", "AgeLow")
+              if (!all(re1colnames %in% colnames(object@re1))) {
+                valid <- FALSE
+                msg <- c(msg, paste(c("ex1 must contain:",re1colnames), collapse=" "))
+              }
+
+              if (valid) TRUE else msg
+            }
+)
+
+
+
 ####