Follow the current pattern of class_algorithm.R

#' @include utils_oop.R
NULL

new_algorithm <- function(plan = NULL, scheduler = NULL) {
  ...
}

fields_algorithm <- get_fields(new_algorithm)

For child classes, we also need to include the script of the parent class, and we need the full constructor to be there, not just sub_.