R/ib_decode.R

In JakeVestal/InteractiveTradeR: API

#' Decode IB Raw Vector
#'
#' Accepts a list of raw vector  and returns them as formatted, human
#'   readable R data objects.
#' @keywords internal
ib_decode <- function(ib_parsed_raw_list){
  # during operation, `ib_decode` SHOULD fail with error if any element of
  #   `ib_parsed_raw_list` is NULL, so don't bother checking for NULL.
  
  if(length(ib_parsed_raw_list) == 0){NULL}
  
  lapply(
    ib_parsed_raw_list,
    function(ib_vec_raw){
      ib_decode_low_level_msg(ib_vec_raw)
    }
  ) %>%
    stats::setNames(
      names(functionary$incoming_msg_codes)[match(
        vapply(., function(x){x[1]}, character(1)),
        functionary$incoming_msg_codes
      )]
    ) %>%
    Map(
      function(ibdc, ib_polish_index){
        tryCatch(
          functionary$ib_polish[[ib_polish_index]](ibdc),
          error = function(e){
            if(isTRUE(getOption("interactivetrader.debug"))){
              
              ibpi_id <- length(list.files(pattern = "ib_polish_index"))
              ibdc_id <- length(list.files(pattern = "ibdc"))
              
              save(
                ib_polish_index, 
                file = paste0("ib_polish_index_", ibpi_id, ".RData")
              )
              save(ibdc, file = paste0("ibdc_", ibdc_id, ".RData"))
              
              usethis::ui_oops(
                paste0(
                  "Error in ",
                  crayon::bold("ib_decode"),
                  "()'s Map: ",
                  crayon::underline(e$message),
                  ".\n\t\t\t",
                  crayon::bold("ID"),
                  "\t",
                  crayon::bold("Value"),
                  "\n",
                  crayon::bold("ib_polish_index"),
                  ":\t", ibpi_id,
                  "\t", ib_polish_index, "\n",
                  crayon::bold("ibdc"),
                  ":\t\t\t", ibdc_id,
                  "\t", ibdc
                ) 
              )
              
            }
            NULL
          }
        )
      },
      .,
      match(
        names(.),
        names(functionary$ib_polish)
      )
    ) %>% {
      y <- .[!vapply(., is.null, logical(1))]
      if(length(y) == 0) return(list("no data"))
      y
    }
  
}