chore: use air format

Author: m-muecke

R/interest-rate.R

@@ -271,7 +271,8 @@ tr_make_request <- function(data, date) {
     req_url_query(data = data, "{nm}" := date) # nolint
 
   if (date == "all") {
-    req_perform_iterative(req,
+    req_perform_iterative(
+      req,
       iterate_with_offset("page", start = 0L, resp_complete = is_complete),
       max_reqs = Inf
     )

R/yield-curve.R

@@ -41,26 +41,25 @@ tr_curve_rate <- function(
   stopifnot(is_count_or_null(year))
   x <- match.arg(x)
   type <- match.arg(type)
-  start_year <- switch(x,
-    hqm = 1984L,
-    tnc = 1978L,
-    trc = 2003L,
-    tbi = 2003L
-  )
+  start_year <- switch(x, hqm = 1984L, tnc = 1978L, trc = 2003L, tbi = 2003L)
   x <- if (type == "monthly") x else paste0(x, "eom")
   years <- seq.int(start_year, 2027L, by = 5L)
   if (!is.null(year)) {
     years <- years[findInterval(year, years)]
   }
-  urls <- vapply(years, function(year) {
-    sprintf(
-      "https://home.treasury.gov/system/files/226/%s_%02d_%02d.%s",
-      x,
-      year %% 100L,
-      (year + 4L) %% 100L,
-      if (year >= 2023L && !startsWith(x, "hqm")) "xlsx" else "xls"
-    )
-  }, NA_character_)
+  urls <- vapply(
+    years,
+    function(year) {
+      sprintf(
+        "https://home.treasury.gov/system/files/226/%s_%02d_%02d.%s",
+        x,
+        year %% 100L,
+        (year + 4L) %% 100L,
+        if (year >= 2023L && !startsWith(x, "hqm")) "xlsx" else "xls"
+      )
+    },
+    NA_character_
+  )
   if (x == "hqmeom") {
     urls <- sub("88\\.xls$", "88_0.xls", urls)
   }
@@ -80,7 +79,8 @@ tr_curve_rate <- function(
       setDT()
     dt[, 2L := NULL]
     dt[, names(.SD) := lapply(.SD, as.numeric), .SDcols = is.logical]
-    dt <- melt(dt,
+    dt <- melt(
+      dt,
       id.vars = "maturity",
       variable.name = "yearmonth",
       value.name = "rate",
@@ -108,8 +108,15 @@ tr_par_yields <- function(
     nms <- c("yearmonth", "tmp", "2 years", "5 years", "10 years", "30 years")
   } else {
     nms <- c(
-      "yearmonth", "tmp", "2 years", "3 years", "5 years", "7 years", "10 years",
-      "20 years", "30 years"
+      "yearmonth",
+      "tmp",
+      "2 years",
+      "3 years",
+      "5 years",
+      "7 years",
+      "10 years",
+      "20 years",
+      "30 years"
     )
   }
 
@@ -161,7 +168,8 @@ download_data <- function(x, col_names, skip, names_to, values_to) {
   dt <- readxl::read_excel(tf, col_names = col_names, skip = skip) |>
     setDT()
   dt[, 2L := NULL]
-  dt <- melt(dt,
+  dt <- melt(
+    dt,
     id.vars = "yearmonth",
     variable.name = names_to,
     value.name = values_to

air.toml

@@ -0,0 +1,6 @@
+[format]
+line-width = 88
+indent-width = 2
+indent-style = "space"
+line-ending = "auto"
+persistent-line-breaks = true

tests/testthat/test-interest-rate.R

@@ -22,19 +22,40 @@ test_that("clean_yield_curve works", {
   data <- data.table(
     date = rep("2020-02-03", 13L),
     maturity = c(
-      "BC_1MONTH", "BC_2MONTH", "BC_3MONTH", "BC_6MONTH", "BC_1YEAR",
-      "BC_2YEAR", "BC_3YEAR", "BC_5YEAR", "BC_7YEAR", "BC_10YEAR",
-      "BC_20YEAR", "BC_30YEAR", "BC_30YEARDISPLAY"
+      "BC_1MONTH",
+      "BC_2MONTH",
+      "BC_3MONTH",
+      "BC_6MONTH",
+      "BC_1YEAR",
+      "BC_2YEAR",
+      "BC_3YEAR",
+      "BC_5YEAR",
+      "BC_7YEAR",
+      "BC_10YEAR",
+      "BC_20YEAR",
+      "BC_30YEAR",
+      "BC_30YEARDISPLAY"
     ),
     rate = rnorm(13L)
   )
   actual <- clean_yield_curve(data)
   expected <- copy(data[1:12])
-  expected[, maturity := c(
-    "1 month", "2 month", "3 month", "6 month",
-    "1 year", "2 year", "3 year", "5 year",
-    "7 year", "10 year", "20 year", "30 year"
-  )]
+  expected[,
+    maturity := c(
+      "1 month",
+      "2 month",
+      "3 month",
+      "6 month",
+      "1 year",
+      "2 year",
+      "3 year",
+      "5 year",
+      "7 year",
+      "10 year",
+      "20 year",
+      "30 year"
+    )
+  ]
   expect_identical(actual, expected)
 })
 
@@ -69,7 +90,10 @@ test_that("clean_bill_rates works", {
     "52 weeks"
   )
   expected <- data.table(
-    date = date, type = type, maturity = maturity, value = rate
+    date = date,
+    type = type,
+    maturity = maturity,
+    value = rate
   )
   expect_identical(actual, expected)
 })
@@ -92,8 +116,8 @@ test_that("clean_real_yield_curves works", {
   data <- data.table(date = date, maturity = maturity, rate = rate)
   actual <- clean_real_yield_curves(data)
   expected <- copy(data)
-  expected[, maturity := rep(
-    c("5 year", "7 year", "10 year", "20 year", "30 year"), 2L
-  )]
+  expected[,
+    maturity := rep(c("5 year", "7 year", "10 year", "20 year", "30 year"), 2L)
+  ]
   expect_identical(actual, expected)
 })