Make lines shorter, remove paste from signal

waldronlab · Jan 3, 2025 · 59fe2e1 · 59fe2e1
1 parent 361254c
commit 59fe2e1
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: bedbaser
 Title: A BEDbase client
-Version: 0.99.14
+Version: 0.99.15
 Authors@R: c(
     person(
         given = "Jen",

diff --git a/R/bedbaser.R b/R/bedbaser.R
@@ -64,7 +64,7 @@ BEDbase <- function(cache_path, quietly = FALSE) {
     )
     info <- httr::content(api$list_beds_v1_bed_list_get(limit = 0, offset = 0))
     if (!quietly) {
-        message(paste(info$count, "BED files available."))
+        message(info$count, "BED files available.")
     }
     api
 }
@@ -217,9 +217,9 @@ bb_metadata <- function(api, id, full = FALSE) {
     }
     result <- httr::content(rsp)
     if (rsp$status_code == 404) {
-        rlang::abort(message = result$detail)
+        rlang::abort(result$detail)
     } else if (rsp$status != 200) {
-        rlang::abort(message = "{result$type}: input {result$input} {result$msg}")
+        rlang::abort("{result$type}: input {result$input} {result$msg}")
     } else {
         result
     }

diff --git a/R/utils.R b/R/utils.R
@@ -163,7 +163,7 @@
         as.double()
 
     if (!is.null(extra_cols) && (nums[2] != length(extra_cols))) {
-        rlang::abort("`extra_cols` length must match the Y value in `bed_type`.")
+        rlang::abort("`extra_cols` length must match Y value in `bed_type`.")
     }
 
     if (!grepl("Peak", args["format"]) && nums[2] != 0 && is.null(extra_cols)) {