refactor: change back to 4.1 since a lot of people seem to be still u…

…sing it

DESCRIPTION

@@ -15,7 +15,7 @@ URL: https://m-muecke.github.io/treasury/,
     https://github.com/m-muecke/treasury
 BugReports: https://github.com/m-muecke/treasury/issues
 Depends:
-    R (>= 4.2.0)
+    R (>= 4.1.0)
 Imports:
     httr2,
     readxl,

R/interest-rate.R

@@ -44,10 +44,9 @@ parse_yield_curve <- function(x) {
 
 clean_yield_curve <- function(data) {
   data <- data[data$maturity != "BC_30YEARDISPLAY", ]
-  data$maturity <- data$maturity |>
-    tolower() |>
-    gsub("bc_", "", x = _, fixed = TRUE) |>
-    gsub("(\\d+)(\\w+)", "\\1 \\2", x = _)
+  data$maturity <- tolower(data$maturity)
+  data$maturity <- gsub("bc_", "", data$maturity, fixed = TRUE)
+  data$maturity <- gsub("(\\d+)(\\w+)", "\\1 \\2", data$maturity)
   data
 }
 
@@ -103,15 +102,13 @@ parse_bill_rates <- function(x) {
 }
 
 clean_bill_rates <- function(data) {
-  data$type <- data$type |>
-    tolower() |>
-    gsub("round_b1_", "", x = _, fixed = TRUE) |>
-    gsub("_2$", "", x = _)
+  data$type <- tolower(data$type)
+  data$type <- gsub("round_b1_", "", data$maturity, fixed = TRUE)
+  data$type <- gsub("_2$", "", data$maturity)
   maturity <- strsplit(data$type, "_", fixed = TRUE)
-  data$type <- vapply(maturity, "[[", NA_character_, 1L)
-  data$maturity <- maturity |>
-    vapply("[[", NA_character_, 2L) |>
-    gsub("wk", " weeks", x = _, fixed = TRUE)
+  data$type <- vapply(maturity, `[[`, NA_character_, 1L)
+  maturity <- vapply(maturity, `[[`, NA_character_, 2L)
+  data$maturity <- gsub("wk", " weeks", maturity, fixed = TRUE)
   data[c("date", "type", "maturity", "value")]
 }
 
@@ -159,11 +156,10 @@ parse_long_term_rate <- function(x) {
 }
 
 clean_long_term_rate <- function(data) {
-  data$rate_type <- data$rate_type |>
-    tolower() |>
-    gsub("^bc_", "", x = _) |>
-    gsub("_", " ", x = _, fixed = TRUE) |>
-    gsub("(\\d+)(year?)", "\\1 \\2", x = _)
+  data$rate_type <- tolower(data$rate_type)
+  data$rate_type <- gsub("^bc_", "", data$rate_type)
+  data$rate_type <- gsub("_", " ", data$rate_type, fixed = TRUE)
+  data$rate_type <- gsub("(\\d+)(year?)", "\\1 \\2", data$rate_type)
   data
 }
 
@@ -213,10 +209,9 @@ parse_real_yield_curve <- function(x) {
 }
 
 clean_real_yield_curves <- function(data) {
-  data$maturity <- data$maturity |>
-    tolower() |>
-    gsub("tc_", "", x = _, fixed = TRUE) |>
-    gsub("(\\d+)(\\w+)", "\\1 \\2", x = _)
+  data$maturity <- tolower(data$maturity)
+  data$maturity <- gsub("tc_", "", data$maturity, fixed = TRUE)
+  data$maturity <- gsub("(\\d+)(\\w+)", "\\1 \\2", data$maturity)
   data
 }