R/utils.R

In pverspeelt/Ibrokers2: R API to Interactive Brokers

#' Printing tws connection
#'
#' @param x object to print
#' @param ... Other arguments passed on to individual methods.
#'
#' @export
#'
#' @examples
#' print(tws_con)
print.tws_con <- function(x, ...) {
  if (is_tws_connection_open(x)) {
    print(glue('A tws connection with clientId {x$clientId},',
    ' connected at {x$connected_at}.'))
  } else
    print(glue('A closed tws connection.'))
}

#' @keywords internal
is_tws_connection_open <- function(tws_con) {
  if (inherits(try(isOpen(tws_con$con), silent=TRUE), 'try-error')) {
    FALSE
  } else TRUE 
}

#' @keywords internal
make_field <- function(x) {
  if (is.logical(x)) {
    return(as.integer(x))
  } 
  if (is.null(x) || length(x) != 1L || is.na(x)) '' else as.character(x)
}

#' @keywords internal
counter <- function() {
  i <- 0
  function() {
    i <<- i + 1
  }
}