## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", eval = FALSE)

## -----------------------------------------------------------------------------
# library(bojapi)
# 
# boj_databases()
# fx_metadata <- boj_metadata("FM08")
# boj_search("U.S. Dollar", metadata = fx_metadata)

## -----------------------------------------------------------------------------
# boj_search("米ドル", db = "FM08", lang = "jp")

## -----------------------------------------------------------------------------
# fx <- boj_data(
#   db = "FM08",
#   code = c(usd_yen = "FXERM07"),
#   start_date = "202401",
#   end_date = "202412"
# )
# fx

## -----------------------------------------------------------------------------
# boj_data(
#   "FM08",
#   c(month_end = "FXERM06", monthly_average = "FXERM07"),
#   start_date = "202401",
#   end_date = "202412",
#   wide = TRUE
# )

## -----------------------------------------------------------------------------
# bp <- boj_metadata("BP01", include_groups = TRUE)
# boj_layer(
#   db = "BP01",
#   frequency = "M",
#   layer = c(1, 1, 1),
#   start_date = "202504",
#   end_date = "202509"
# )

## -----------------------------------------------------------------------------
# options(bojapi.wait = 2)

## -----------------------------------------------------------------------------
# boj_api_credit("en")
# boj_api_credit("jp")