R/fun_convert_any_to_bnum.R

In daviddoret/haricot: Algorithm Composition, Manipulation And Analysis

#' convert_any_to_bnum
#'
#' @description Convert a modular binary number represented in an arbitrary type to a modular binary number typed as bnum.
#'
#' @examples convert_any_to_bnum("1101");
#' convert_any_to_bnum(c(TRUE,TRUE,FALSE,TRUE));
#' convert_any_to_bnum(bnum$new("1101"));
#'
#' @param input A modular binary number (logical vector, character vector, bnum)
#' @return A modular binary number (bnum)
#' @export
convert_any_to_bnum <- function(input){
  if(is(object = input, class2 = "character")){
    return(convert_character_to_bnum(input));
  } else if(is(object = input, class2 = "logical")){
    return(convert_logical_to_bnum(input));
  } else if(is(object = input, class2 = "bnum")) {
    return(input$copy());
  } else {
    stop("Class not supported");
  }
}