R/current_time.R

In threadingdata/finnhubr: Integration with Finnhub.io API

#' @title Get the current time
#' @description Current time is needed for some calls - XX:XX:XX
#' 
#' @importFrom lubridate now hour minute
#' @importFrom stringr str_pad
#' 
#' @return
#'
#' @examples
#' current_time()
current_time <- function(){
  time <- lubridate::now() # Uses system time, not Eastern as with Finnhub API
  paste(stringr::str_pad(lubridate::hour(time), width = 2, side = 'left', pad = 0),
        stringr::str_pad(lubridate::minute(time), width = 2, side = 'left', pad = '0'),
        '00', 
        sep = ':')
}