imf.data

A R Interface to IMF Data API

https://github.com/pedrobtz/imf.data

Repository

A R Interface to IMF Data API

README.Rmd

---
output: github_document
---



```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
```

# imf.data



[![Package Version](https://www.r-pkg.org/badges/version/imf.data)](https://www.r-pkg.org/pkg/imf.data)
[![R-CMD-check](https://github.com/pedrobtz/imf.data/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/pedrobtz/imf.data/actions/workflows/R-CMD-check.yaml)
[![downloads](https://cranlogs.r-pkg.org/badges/grand-total/imf.data)](https://cranlogs.r-pkg.org/badges/grand-total/imf.data)



The goal of imf.data is to provide an interface to [IMF Data](https://data.imf.org/) via the [IMF Data REST API](https://datahelp.imf.org/knowledgebase/articles/667681-json-restful-web-service).

## Installation

Install the released version of remotes from CRAN:

```{r, echo=FALSE}
options(max.print = 15)
options(width = 85)
```

``` r
install.packages("imf.data")
```

## Usage

```{r} 
library(imf.data)

# list all available time-series
list_datasets()
```

```{r}
# load IFS time-series
IFS <- load_datasets("IFS")

# see possible values for dimension 'ref_area'
IFS$dimensions$ref_area

# get time-series for GDP of Portugal, with Annual frequency
IFS$get_series(freq = "A", ref_area = "PT", indicator = "NGDP_D_IX")
```

```{r}
# load DOT time-series
DOT <- load_datasets("DOT")

DOT$get_series(
  freq = "M",
  ref_area = "PT",
  indicator = "TMG_CIF_USD",
  counterpart_area = c("B0", "W00"),
  start_period = "2022-01-01",
  end_period = "2022-12-31"
)
```


```{r}
HPDD <- load_datasets("HPDD")

HPDD$dimensions$indicator

d <- HPDD$get_series(
  freq = "A",
  ref_area = c("PT", "ES"),
  indicator = "GGXWDG_GDP",
  start_period = "1974"
)
# see original data
ls_series <- attr(d, "original_data")
```

```{r}
# melt the results
library(data.table)

cols <- lapply(HPDD$dimensions, function(x) NULL)

melt(as.data.table(d), measure.vars = measurev(cols, sep = "."))
```

Owner

GitHub Events

Issues and Pull Requests

Last synced: 10 months ago

Packages