R/fun_exec_algo_1.R

In daviddoret/haricot: Algorithm Composition, Manipulation And Analysis

#' Execute the 1 constant algorithm on no or a null input.
#'
#' @description ...
#'
#' @examples # R function style:
#' exec_algo_1(algo, input);
#'
#' # R6 method style:
#' a <- algo_1$new();
#' a$exec(input);
#'
#' @param algo A 1 constant algorithm (R6 Class algo_1)
#' @param input (conditional) The input bits (logical vector | character vector of "0"s and "1"s | R6 Class BinaryNumber)
#' @return The corresponding output (same type than input, default type: logical vector)
#' @export
exec_algo_1 = function(algo, input = NULL, ...) {

  if(is.null(input)){
    input <- logical(0);
  }

  output_logical_vector <- c(TRUE);

  if(is(input, "bnum")){
    return(bnum$new(output_logical_vector));
  } else if(is(input, "logical")){
    return(output_logical_vector);
  } else if(is(input, "character")){
    return(convert_logical_vector_to_character(output_logical_vector));
  } else {
    # Oooops!
    stop(input);
  }
}