chore: switch to 100 line width

Author: m-muecke

.lintr

@@ -1,5 +1,5 @@
 linters: all_linters(
-    line_length_linter = line_length_linter(88L),
+    line_length_linter = line_length_linter(100L),
     object_usage_linter = NULL,
     todo_comment_linter = NULL,
     strings_as_factors_linter = NULL,

R/interest-rate.R

@@ -247,10 +247,7 @@ tr_make_request <- function(data, date) {
   if (!is.null(date)) {
     date <- as.character(date)
     if (length(date) != 1L || !grepl("^\\d{4,6}$", date)) {
-      stop(
-        "`date` must be a single value in format yyyy or yyyymm",
-        call. = FALSE
-      )
+      stop("`date` must be a single value in format yyyy or yyyymm", call. = FALSE)
     }
   } else {
     date <- "all"

R/yield-curve.R

@@ -94,10 +94,7 @@ tr_curve_rate <- function(
 
 #' @rdname tr_curve_rate
 #' @export
-tr_par_yields <- function(
-  x = c("hqm", "tnc", "trc"),
-  type = c("monthly", "end-of-month")
-) {
+tr_par_yields <- function(x = c("hqm", "tnc", "trc"), type = c("monthly", "end-of-month")) {
   if (requireNamespace("readxl", quietly = TRUE)) {
     stop("Please install the readxl package to use this function.", call. = FALSE)
   }
@@ -132,10 +129,7 @@ tr_par_yields <- function(
 
 #' @rdname tr_curve_rate
 #' @export
-tr_forward_rate <- function(
-  x = c("tnc", "trc", "tbi"),
-  type = c("monthly", "end-of-month")
-) {
+tr_forward_rate <- function(x = c("tnc", "trc", "tbi"), type = c("monthly", "end-of-month")) {
   if (requireNamespace("readxl", quietly = TRUE)) {
     stop("Please install the readxl package to use this function.", call. = FALSE)
   }
@@ -168,11 +162,6 @@ download_data <- function(x, col_names, skip, names_to, values_to) {
   dt <- readxl::read_excel(tf, col_names = col_names, skip = skip)
   dt <- setDT(dt)
   dt[, 2L := NULL]
-  dt <- melt(
-    dt,
-    id.vars = "yearmonth",
-    variable.name = names_to,
-    value.name = values_to
-  )
+  dt <- melt(dt, id.vars = "yearmonth", variable.name = names_to, value.name = values_to)
   dt[, yearmonth := as.Date(paste("01", yearmonth), format = "%d %B %Y")][]
 }

air.toml

@@ -1,2 +1,2 @@
 [format]
-line-width = 88
+line-width = 100