R/elementarysamples.R

In OB7-IRD/t3: Tropical Tuna Treatment

#' @name elementarysamples
#' @title R6 class elementarysamples
#' @description Create R6 reference object class elementarysamples
#' @importFrom R6 R6Class
elementarysamples <- R6::R6Class(classname = "elementarysamples",
                                 inherit = list_t3,
                                 public = list(
                                   # initialize ----
                                   #' @description Initialize function for R6 elementarysamples class.
                                   #' @param ... (empty, list or R6-elementarysample classes) Nothing, a list of object R6-elementarysample classes or one object R6-elementarysample classes.
                                   initialize = function(...) {
                                     arguments <- list(...)
                                     if (nargs() == 0) {
                                       super$initialize()
                                     } else {
                                       for (i in 1:nargs()) {
                                         if (length(class(arguments[[i]])) == 1
                                             && inherits(x = arguments[[i]],
                                                         what = "list")) {
                                           for (i in length(arguments[[i]])) {
                                             if (length(class(arguments[[i]][[i]])) == 2
                                                 && (! any(class(arguments[[i]][[i]]) == "R6")
                                                     & ! any(class(new_item[[i]]) == "elementarysample"))) {
                                               cat(format(Sys.time(), "%Y-%m-%d %H:%M:%S"),
                                                   " - Error: invalid \"data\" argument, class list or R6-elementarysample expected.\n",
                                                   sep = "")
                                               stop()
                                             }
                                           }
                                           private$data <- append(private$data, arguments[[i]])
                                         } else if (length(class(arguments[[i]])) == 2
                                                    && (any(class(arguments[[i]]) == "R6")
                                                        & any(class(arguments[[i]]) == "elementarysample"))) {
                                           private$data <- append(private$data,
                                                                  arguments[[i]])
                                         } else {
                                           cat(format(Sys.time(), "%Y-%m-%d %H:%M:%S"),
                                               " - Error: invalid \"data\" argument, class list or R6-elementarysample expected.\n",
                                               sep = "")
                                           stop()
                                         }
                                       }
                                     }
                                   },
                                   # add new elementarysample ----
                                   #' @description Function for add a new elementarysample in the object elementarysamples.
                                   #' @param new_item (list or R6-elementarysample classes) A list of object R6-elementarysample classes or one object R6-elementarysample classes.
                                   add = function(new_item) {
                                     if (inherits(x = new_item,
                                                  what = "list")) {
                                       class_new_item <- unique(x = sapply(X = seq_len(length.out = length(x = new_item)),
                                                                           FUN = function(new_item_id) {
                                                                             paste(class(x = new_item[[new_item_id]]),
                                                                                   collapse = "_")
                                                                           }))
                                       if (length(x = class_new_item) != 1
                                           || class_new_item != "elementarysample_R6") {
                                         cat(format(x = Sys.time(),
                                                    "%Y-%m-%d %H:%M:%S"),
                                             " - Error: invalid \"data\" argument, class elementarysample-R6 expected.\n",
                                             sep = "")
                                         stop()
                                       } else {
                                         super$add(new_item = new_item)
                                       }
                                     } else {
                                       class_new_item <- paste(class(x = new_item),
                                                               collapse = "_")
                                       if (class_new_item != "elementarysample_R6") {
                                         cat(format(x = Sys.time(),
                                                    "%Y-%m-%d %H:%M:%S"),
                                             " - Error: invalid \"data\" argument, class elementarysample-R6 expected.\n",
                                             sep = "")
                                         stop()
                                       } else {
                                         super$add(new_item = new_item)
                                       }
                                     }
                                   },
                                   # filter by trip ----
                                   #' @description Function for filter elementarysamples by trip identification.
                                   #' @param trip_id (character) Trip identification.
                                   filter_by_trip = function(trip_id) {
                                     current_elementarysamples <- vector(mode = "list")
                                     for (i in seq_len(length(private[["data"]]))) {
                                       current_trip_id <- private[["data"]][[i]]$.__enclos_env__$private$trip_id
                                       if (trip_id == current_trip_id) {
                                         current_elementarylandings <- append(current_elementarysamples,
                                                                              list(private[["data"]][[i]]))
                                       }
                                     }
                                     return(current_elementarysamples)
                                   }))