docs: don't run real long-term examples, seems to be a bug in the feed

Author: m-muecke

R/interest-rate.R

@@ -213,18 +213,14 @@ clean_real_yield_curves <- function(dt) {
 #' @family interest rate
 #' @export
 #' @examples
-#' \donttest{
+#' \dontrun{
 #' # get data for a single month
 #' tr_real_long_term("202201")
 #' # or for the entire year
 #' tr_real_long_term(2022)
 #' }
 tr_real_long_term <- function(date = NULL) {
-  dt <- treasury("daily_treasury_real_long_term", date, parse_real_long_term)
-  if (is.null(dt)) {
-    return()
-  }
-  dt
+  treasury("daily_treasury_real_long_term", date, parse_real_long_term)
 }
 
 parse_real_long_term <- function(x) {

R/yield-curve.R

@@ -64,7 +64,7 @@ tr_curve_rate <- function(
     urls <- sub("88\\.xls$", "88_0.xls", urls)
   }
 
-  months <- rep.int(month.name, 5L)
+  months <- rep(month.name, 5L)
   res <- lapply(seq_along(urls), function(i) {
     tf <- tempfile()
     on.exit(unlink(tf), add = TRUE)