add prototype for year and quarter

Yunuuuu · Nov 8, 2023 · 04adde4 · 04adde4
1 parent 3d16231
commit 04adde4
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/class-FAERS.R b/R/class-FAERS.R
@@ -54,16 +54,16 @@ methods::setClass(
  format = "character"
  ),
  prototype = list(
+ year = integer(),
+ quarter = character(),
  data = NULL,
  meddra = NULL,
  deduplication = FALSE,
  standardization = FALSE
  )
 )
 
-## Validator for FAERS
-
-################ utils methods ########################
+################ validate method ########################
 validate_faers <- function(object) {
  if (length(object@year) != length(object@quarter)) {
  return("the length of `@year` and `@quarter` must be the same")
@@ -135,6 +135,7 @@ methods::setClass(
  contains = "FAERS"
 )
 
+################ show method ########################
 #' @param object A [FAERS] object.
 #' @importFrom methods show
 #' @export