Sistema Expectativas BACEN

[angelosalton]

Olá, É possível acessar as séries do sistema Expectativas de Mercado do Banco Central pelo BETS? Eles lançaram uma API de acesso recentemente. https://dadosabertos.bcb.gov.br/dataset/expectativas-mercado

Eu fiz rapidamente uma função para a base com dados anuais:

#' @param variables Possible options: "Media", "Mediana", "DesvioPadrao",
#' "CoeficienteVariacao", "Minimo", "Maximo".
#' @param data_inicial Initial date at which the data was projected, in ISO format.
#' @param data_final Final date at which the data was projected, in ISO format.
#' @param ...
#'
#' @import jsonlite
#' @return A data.frame.
#' @export
#'
#' @examples
#' 
bcbexpect_annual <- function(variables = "Mediana", start_date, end_date, ... ){
  # Required packages
  require(jsonlite)

  # variaveis
  variaveis_c <- paste("Indicador", "IndicadorDetalhe", "Data",
                      "DataReferencia", variables, sep = ",")

  # datas
  timespan <- paste0("Data%20gt%20'", start_date, "'%20and%20", "Data%20lt%20'", end_date,"'")

  # montar a URL de query
  baseurl <- "https://olinda.bcb.gov.br/olinda/servico/Expectativas/versao/v1/odata/"
  query_url <- paste(baseurl, "ExpectativasMercadoAnuais", "?%24select=",
                    variaveis_c, "&%24filter=", timespan, sep = "", collapse = "")

  data <- fromJSON(query_url)$value
  return(data)
}

[GreedBlink]

Muito bom @angelosalton , iremos incorporar sua contribuição!