t3: Tropical Tuna Treatment

#' @name elementarycatch
#' @title R6 class elementarycatch
#' @description Create R6 reference object class elementarycatch
#' @importFrom R6 R6Class
elementarycatch <- R6::R6Class(classname = "elementarycatch",
                               public = list(
                                 # initialize ----
                                 #' @description Initialize function for R6 activities class.
                                 #' @param activity_id Object of class {\link[base]{character}} expected. Activity identification.
                                 #' @param elementarycatch_id Object of class {\link[base]{character}} expected. Elementary catch identification.
                                 #' @param ocean Object of class {\link[base]{integer}} expected. Ocean identification.
                                 #' @param school_type Object of class {\link[base]{integer}} expected. School type identification.
                                 #' @param logbook_category Object of class {\link[base]{integer}} expected. Logbook weight category.
                                 #' @param logbook_category_name Object of class {\link[base]{character}} expected. Logbook category name identification.
                                 #' @param specie_code Object of class {\link[base]{integer}} expected. Specie code identification.
                                 #' @param specie_code3l Object of class {\link[base]{character}} expected. Specie code identification on 3 characters.
                                 #' @param catch_weight Object of class {\link[base]{numeric}} expected. Catch weight in tonnes.
                                 initialize = function(activity_id,
                                                       elementarycatch_id,
                                                       ocean,
                                                       school_type,
                                                       logbook_category,
                                                       logbook_category_name,
                                                       specie_code,
                                                       specie_code3l,
                                                       catch_weight) {
                                   # attributee "activity_id" verification
                                   check_activity_id(activity_id)
                                   # attribute "elementarycatch_id" verification
                                   check_elementarycatch_id(elementarycatch_id)
                                   # attribute "ocean" verification
                                   check_ocean(ocean)
                                   # attribute "school_type" verification
                                   check_school_type(school_type)
                                   # attribute "logbook_category" verification
                                   check_logbook_category(logbook_category)
                                   # attribute "logbook_category_name" verification
                                   check_logbook_category_name(logbook_category_name)
                                   # attribute "specie_code" verification
                                   check_specie_code(specie_code)
                                   # attribute "specie_code3l" verification
                                   check_specie_code3l(specie_code3l)
                                   # attribute "catch_weight" verification
                                   check_catch_weight(catch_weight)
                                   # attributeions
                                   private$activity_id <- activity_id
                                   private$elementarycatch_id <- elementarycatch_id
                                   private$ocean <- ocean
                                   private$school_type <- school_type
                                   private$logbook_category <- logbook_category
                                   private$logbook_category_name <- logbook_category_name
                                   private$specie_code <- specie_code
                                   private$specie_code3l <- specie_code3l
                                   private$catch_weight <- catch_weight
                                 }),
                               private = list(
                                 activity_id = NULL,
                                 elementarycatch_id = NULL,
                                 ocean = NULL,
                                 school_type = NULL,
                                 logbook_category = NULL,
                                 logbook_category_name = NULL,
                                 specie_code = NULL,
                                 specie_code3l = NULL,
                                 catch_weight = NULL,
                                 catch_weight_rf1 = NULL,
                                 catch_weight_rf2 = NULL,
                                 corrected_logbook_category = NULL,
                                 catch_weight_category_corrected = NULL
                               ))