R/wellsets.R

In OB7-IRD/t3: Tropical Tuna Treatment

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