used rlang bulleted error messages

* remove paste_inline()

Author: earowang

R/as-tsibble.R

@@ -418,10 +418,10 @@ validate_index_order <- function(data, key_data, index) {
   if (!ordered) {
     idx_txt <- backticks(index)
     key_txt <- backticks(head(names(key_data), -1L))
-    warn(sprintf(paste_inline(
+    warn(c(
       "Current temporal ordering may yield unexpected results.",
-      "Suggest to sort by %s first."
-    ), comma(c(key_txt, idx_txt), sep = "")))
+      i = sprintf("Suggest to sort by %s first.", comma(c(key_txt, idx_txt), sep = ""))
+    ))
   }
   ordered
 }
@@ -440,9 +440,9 @@ validate_interval <- function(data, key_data, index, interval) {
     abort(sprintf(msg_interval, class(interval)[1]))
   }
   if (unknown_interval(interval) && (nrows > vec_size(key_data))) {
-    abort(paste_inline(
+    abort(c(
       "Can't obtain the interval due to the mismatched index class.",
-      "Please see `vignette(\"FAQ\")` for details."
+      i = "Please see `vignette(\"FAQ\")` for details."
     ))
   }
   interval
@@ -453,9 +453,9 @@ validate_interval <- function(data, key_data, index, interval) {
 validate_tsibble <- function(data, key, index, key_data = NULL) {
   is_dup <- duplicated_key_index(data, key, index, key_data)
   if (is_dup) {
-    header <- "A valid tsibble must have distinct rows identified by key and index."
-    hint <- "Please use `duplicates()` to check the duplicated rows."
-    abort(paste_inline(header, hint))
+    abort(c(
+      "A valid tsibble must have distinct rows identified by key and index.", 
+      i = "Please use `duplicates()` to check the duplicated rows."))
   }
   data
 }
@@ -464,9 +464,9 @@ validate_tsibble <- function(data, key, index, key_data = NULL) {
 retain_tsibble <- function(data, key, index) {
   is_dup <- duplicated_key_index(data, key, index)
   if (is_dup) {
-    header <- "The result is not a valid tsibble."
-    hint <- "Do you need `as_tibble()` to work with data frame?"
-    abort(paste_inline(header, hint))
+    abort(c(
+      "The result is not a valid tsibble.",
+      i = "Do you need `as_tibble()` to work with data frame?"))
   }
   data
 }
@@ -475,7 +475,9 @@ retain_tsibble <- function(data, key, index) {
 format.tbl_ts <- function(x, ..., n = NULL, width = NULL, n_extra = NULL) {
   is_index_null(x)
   if (!is_null(x %@% "regular") || !is_null(x %@% "ordered")) {
-    warn("`.data`. is a corrupt tsibble object, please reconstruct with `as_tsibble()`.")
+    warn(c(
+      "`.data`. is a corrupt tsibble object.",
+      i = "Please reconstruct with `as_tsibble()`."))
   }
   format(trunc_mat(x, n = n, width = width, n_extra = n_extra))
 }

R/dplyr-verbs.R

@@ -133,9 +133,9 @@ group_by.tbl_ts <- function(.data, ..., .add = FALSE,
 
   index <- index_var(.data)
   if (index %in% grp_vars) {
-    err <- sprintf("Column `%s` (index) can't be a grouping variable for a tsibble.", index)
-    hint <- "Did you mean `index_by()`?"
-    abort(paste_inline(err, hint))
+    abort(c(
+      sprintf("Column `%s` (index) can't be a grouping variable for a tsibble.", index), 
+      i = "Did you mean `index_by()`?"))
   }
 
   grp_key <- identical(grp_vars, key_vars(.data)) &&
@@ -211,10 +211,9 @@ dplyr_col_modify.tbl_ts <- function(data, cols) {
   res <- dplyr_col_modify(as_tibble(data), cols)
   idx_chr <- index_var(data)
   if (is_false(idx_chr %in% names(res))) { # index has been removed
-    abort(sprintf(paste_inline(
+    abort(c(
       "Column `%s` (index) can't be removed for a tsibble.",
-      "Do you need `as_tibble()` to work with data frame?"
-    ), idx_chr))
+      i = sprintf("Do you need `as_tibble()` to work with data frame?"), idx_chr))
   }
 
   vec_names <- names(cols)

R/tidyr-verbs.R

@@ -34,9 +34,9 @@ pivot_longer.tbl_ts <- function(data, cols, names_to = "name", ...) {
 pivot_wider.tbl_ts <- function(data, id_cols = NULL, names_from = name, ...) {
   key_var <- vars_pull(names(data), !!enquo(names_from))
   if (has_index(key_var, data)) {
-    abort(paste_inline(
+    abort(c(
       sprintf("Column `%s` (index) can't be spread.", key_var),
-      "Please use `as_tibble()` to coerce."
+      i = "Please use `as_tibble()` to coerce."
     ))
   }
   key_left <- setdiff(key_vars(data), key_var)
@@ -86,9 +86,9 @@ spread.tbl_ts <- function(data, key, value, ...) {
   value <- enexpr(value)
   key_var <- vars_pull(names(data), !!key)
   if (has_index(key_var, data)) {
-    abort(paste_inline(
+    abort(c(
       sprintf("Column `%s` (index) can't be spread.", key_var),
-      "Please use `as_tibble()` to coerce."
+      i = "Please use `as_tibble()` to coerce."
     ))
   }
   key_left <- setdiff(key_vars(data), key_var)

R/utils.R

@@ -31,10 +31,6 @@ cat_line <- function(...) {
   cat(paste0(..., "\n"), sep = "")
 }
 
-paste_inline <- function(...) {
-  paste(..., sep = "\n")
-}
-
 dim_tbl_ts <- function(x) {
   dim_x <- dim(x)
   format_dim <- map_chr(dim_x, big_mark)