#' 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);
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.