remove not needed slot setters

NAMESPACE

@@ -13,10 +13,6 @@ exportClasses(EX1)
 exportClasses(LT1)
 exportClasses(RD1)
 exportClasses(RE1)
-exportMethods("ex1<-")
-exportMethods("lt1<-")
-exportMethods("rd1<-")
-exportMethods("re1<-")
 exportMethods(content)
 exportMethods(ex1)
 exportMethods(footer)

R/AllGeneric.R

@@ -12,26 +12,17 @@ setGeneric("region", function(object) standardGeneric("region"))
 
 setGeneric("protocol", function(object) standardGeneric("protocol"))
 
-setGeneric("lt1<-", function(object, value) standardGeneric("lt1<-"))
-
 setGeneric("selectYears", function(object, selectYears) standardGeneric("selectYears"))
 
 setGeneric("ex1", function(object) standardGeneric("ex1"))
 
-setGeneric("ex1<-", function(object, value) standardGeneric("ex1<-"))
-
-
 setGeneric("rd1", function(object) standardGeneric("rd1"))
 
 setGeneric("rd1total", function(object) standardGeneric("rd1total"))
 
-setGeneric("rd1<-", function(object, value) standardGeneric("rd1<-"))
-
 setGeneric("selectRegion", function(object, selectRegion) standardGeneric("selectRegion"))
 
 setGeneric("re1", function(object) standardGeneric("re1"))
 
 setGeneric("re1total", function(object) standardGeneric("re1total"))
 
-setGeneric("re1<-", function(object, value) standardGeneric("re1<-"))
-

R/GENESISClasses.R

@@ -38,10 +38,6 @@ setMethod("region", "RD1", function(object) object@region)
 #' @export
 setMethod("protocol", "RD1", function(object) object@protocol)
 
-# slot setters
-#' @export
-setReplaceMethod("rd1", "RD1", function(object, value) {object@rd1 <- value; validObject(object); object})
-
 # constructor
 #' @export
 RegDeath1 <- function(header, footer, rd1, rd1total, content, region, protocol)
@@ -126,10 +122,6 @@ setMethod("region", "RE1", function(object) object@region)
 #' @export
 setMethod("protocol", "RE1", function(object) object@protocol)
 
-# slot setters
-#' @export
-setReplaceMethod("re1", "RE1", function(object, value) {object@re1 <- value; validObject(object); object})
-
 # constructor
 #' @export
 RegExp1 <- function(header, footer, re1, re1total, content, region, protocol)

R/HMDClasses.R

@@ -85,19 +85,6 @@ setMethod("region", "LT1", function(object) object@region)
 #' @rdname LT1-class
 setMethod("protocol", "LT1", function(object) object@protocol)
 
-## slot setters
-
-#' LT1 lt1<-
-#'
-#' The \code{lt1<-}-method allows to modify the life table information in a LT1 object
-#'
-#' @param value data.table
-#' @return The \code{lt1<-}-method changes the life table information
-#' @export
-#' @rdname LT1-class
-setReplaceMethod("lt1", "LT1", function(object, value) {object@lt1 <- value; validObject(object); object})
-
-
 ## constructor
 
 #' LT1 constructor
@@ -204,10 +191,6 @@ setMethod("region", "EX1", function(object) object@region)
 #' @export
 setMethod("protocol", "EX1", function(object) object@protocol)
 
-# slot setters
-#' @export
-setReplaceMethod("ex1", "EX1", function(object, value) {object@ex1 <- value; validObject(object); object})
-
 # constructor
 #' @export
 Exposure1 <- function(header, ex1, content, region, protocol)