PIB data

[Johan-rosa]

Hay que actualizar las funciones que descargan las estimaciones del PIB. Se necesita usar la base 2018 en lugar de la 2007.

Cambiar los URL

  temp_file <- tempfile(fileext = ".xlsx") #ambos son .xlsx

  url <- ifelse(
    homogenea_91,
    "https://cdn.bancentral.gov.do/documents/estadisticas/sector-real/documents/pib_gasto_retro_2018.xlsx", # nolint
    "https://cdn.bancentral.gov.do/documents/estadisticas/sector-real/documents/pib_gasto_2018.xlsx"    # nolint
  )

Cambiar la estructura de las tablas a leer

  to_read <- list(
    nominal = list(
      list(skip = 9, nmax = 9,  indicator_name = "pib_nominal"),
      list(skip = 23, nmax = 9, indicator_name = "ponderacion")
    ),
    real = list(
      list(skip = 9,  nmax = 9,  indicator_name = "indice"),
      list(skip = 23, nmax = 9, indicator_name = "crecimiento_interanual"),
      list(skip = 37, nmax = 9, indicator_name = "incidencia")
    )
  )