R/td_get_current.R

In msperlin/GetTDData: Get Data for Brazilian Bonds (Tesouro Direto)

#' Returns current TD prices
#'
#' Fetches current prices of TD assets from website's json api at <https://www.tesourodireto.com.br/titulos/precos-e-taxas.htm>
#'
#' @return a dataframe with prices
#' @export
#'
#' @examples
#' td_get_current()
td_get_current <- function() {

  cli::cli_alert_info("fetching current TD prices")

  url <- "https://www.tesourodireto.com.br/json/br/com/b3/tesourodireto/service/api/treasurybondsinfo.json"
  l_out <- jsonlite::fromJSON(url)

  df_current <- l_out$response$TrsrBdTradgList$TrsrBd |>
    dplyr::mutate(maturity = as.Date(mtrtyDt),
                  name = nm,
                  min_qtd = minRedQty,
                  min_value = minRedVal,
                  price = untrRedVal,
                  annual_ret = anulRedRate/100) |>
    dplyr::select(name, maturity, min_qtd, min_value,
                  price, annual_ret)

  cli::cli_alert_success("got dataframe with {nrow(df_current)} rows and {ncol(df_current)} columns")

  return(df_current)
}