Наследование R S4 — проблемы с проверкой достоверности и дополнительными слотами

Я пытаюсь создать класс B, содержащий другой класс A с дополнительными слотами (объект должен быть создан, даже если при определении класса A не передаются аргументы):

При определении класса A и создании экземпляра проверка достоверности в порядке (обнаружение пустых слотов допускается):

setClass("A",
         slots = c(x = "numeric", y = "character"),
         prototype = list(
           x = numeric(0),
           y = character(0)
         ),
         validity=function(object){
           if (length(object@x) == 0){
             warning("x slot is empty")
           }
           if (length(object@y) == 0){
             warning("y slot is empty")
           }
           return(TRUE)
         })

setMethod("initialize", signature = "A",
          definition = function(.Object, x, y)
          {
            if (!missing(x)) {
              .Object@x <- x
            } else {
              .Object@x <- numeric(0)
            }
            if (!missing(y)) {
              .Object@y <- y
            } else {
              .Object@y <- character(0)
            }
            validObject(.Object)
            return(.Object)
          } )

new("A", x=1:10)
# warning message "validityMethod(object) : y slot is empty"

Но при создании объекта класса B следующим образом я получаю сообщения о достоверности, даже если аргументы передаются, и они дублируются:

setClass("B",
         slots = c(a = "data.frame"),
         contains = "A",
         validity = function(object) {
           if (length(object@a) == 0) {
             warning("a is empty")
           }
           return(TRUE)
           })

setMethod("initialize", signature = "B",
          definition = function(.Object, a, ...)
          {
            .Object@a <- a
            .Object <- callNextMethod(.Object, ...)
            validObject(.Object)
            return(.Object)
          } )

new("B", a = data.frame(10), x = 5, y = "c")

# gives warning messages: 
#1: in validityMethod(object) : x slot is empty
#2: in validityMethod(object) : y slot is empty
#3: in validityMethod(object) : x slot is empty
#4: in validityMethod(object) : y slot is empty

Когда аргумент действительно отсутствует, я получаю дополнительное сообщение (снова продублированное):

new("B", a = data.frame(10), x = 5)

# warning:
#
#1: in validityMethod(object) : x slot is empty
#2: in validityMethod(object) : y slot is empty
#3: in validityMethod(as(object, superClass)) : y slot is empty
#4: in validityMethod(object) : x slot is empty
#5: in validityMethod(object) : y slot is empty
#6: in validityMethod(as(object, superClass)) : y slot is empty

Как мне избежать этих дублированных сообщений и заставить их работать (только когда аргументы действительно отсутствуют)?