feat: add messages and remove ui_*()

DESCRIPTION

@@ -19,6 +19,8 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.3
 Imports: 
+    cli,
+    crayon,
     rstudioapi,
     stringr,
     usethis,

NAMESPACE

@@ -1,6 +1,3 @@
 # Generated by roxygen2: do not edit by hand
 
 export(add_deps)
-importFrom(usethis,ui_done)
-importFrom(usethis,ui_oops)
-importFrom(usethis,ui_value)

R/add_deps.R

@@ -5,8 +5,8 @@
 #' compendium, website, etc.) and updates the sections **Depends**, 
 #' **Imports**, and **Suggests** of the `DESCRIPTION` file.
 #' 
-#' A `DESCRIPTION` file can be created with the function 
-#' [usethis::use_description()].
+#' A `DESCRIPTION` file can be created and added to an existing project with 
+#' the function [usethis::use_description()].
 #'  
 #' All `.R`, `.Rmd`, and `.qmd` files are screened to identify packages 
 #' called by `library(foo)`, `library("foo")`, `library('foo')`, 
@@ -163,37 +163,75 @@ add_deps <- function() {
 
   ## Add packages in DESCRIPTION file ----
 
+  msg_info("Searching for", msg_value('Depends'), "dependencies")
+
   if (is.null(deps_depends)) {
 
     pos <- which(colnames(descr_file) == "Depends")
     if (length(pos)) descr_file <- descr_file[ , -pos]
 
+    msg_oops("No package found", indent = "  ")
+
   } else {
 
-    deps_depends <- paste0(deps_depends, collapse = ",\n    ")
-    descr_file$"Depends" <- paste0("\n    ", deps_depends)
+    deps_depends_txt <- paste0(deps_depends, collapse = ",\n    ")
+    descr_file$"Depends" <- paste0("\n    ", deps_depends_txt)
+
+    msg_done("Found", msg_value(length(deps_depends)), "package(s)", 
+             indent = "  ")
+
+    msg <- paste0("Depends: ", paste0(deps_depends, collapse = ", "))
+    msg_done("Adding the following line in", msg_value('DESCRIPTION'),
+             indent = "  ")
+    msg_line(msg_code(msg), indent = "    ")
   }
 
+
+  msg_info("Searching for", msg_value('Imports'), "dependencies")
+
   if (is.null(deps_imports)) {
 
     pos <- which(colnames(descr_file) == "Imports")
     if (length(pos)) descr_file <- descr_file[ , -pos]
 
+    msg_oops("No package found", indent = "  ")
+
   } else {
 
-    deps_imports <- paste0(deps_imports, collapse = ",\n    ")
-    descr_file$"Imports" <- paste0("\n    ", deps_imports)
+    deps_imports_txt <- paste0(deps_imports, collapse = ",\n    ")
+    descr_file$"Imports" <- paste0("\n    ", deps_imports_txt)
+
+    msg_done("Found", msg_value(length(deps_imports)), "package(s)", 
+             indent = "  ")
+
+    msg <- paste0("Imports: ", paste0(deps_imports, collapse = ", "))
+    msg_done("Adding the following line in", msg_value('DESCRIPTION'),
+             indent = "  ")
+    msg_line(msg_code(msg), indent = "    ")
   }
 
+
+  msg_info("Searching for", msg_value('Suggests'), "dependencies")
+
   if (is.null(deps_suggests)) {
 
     pos <- which(colnames(descr_file) == "Suggests")
     if (length(pos)) descr_file <- descr_file[ , -pos]
 
+    msg_oops("No package found", indent = "  ")
+
   } else {
 
-    deps_suggests <- paste0(deps_suggests, collapse = ",\n    ")
-    descr_file$"Suggests" <- paste0("\n    ", deps_suggests)
+    deps_suggests_txt <- paste0(deps_suggests, collapse = ",\n    ")
+    descr_file$"Suggests" <- paste0("\n    ", deps_suggests_txt)
+
+    msg_done("Found", msg_value(length(deps_suggests)), "package(s)", 
+             indent = "  ")
+
+    msg <- paste0("Suggests: ", paste0(deps_suggests, collapse = ", "))
+    msg_done("Adding the following line in", msg_value('DESCRIPTION'),
+             indent = "  ")
+    msg_line(msg_code(msg), indent = "    ")
   }
 
 

R/rdeps-package.R

@@ -2,7 +2,6 @@
 "_PACKAGE"
 
 # Imports: start ---- 
-#' @importFrom usethis ui_done ui_value ui_oops
 # Imports: end ----
 
 NULL

R/utils-msg.R

@@ -0,0 +1,99 @@
+#' @noRd
+
+msg_done <- function(..., indent = "") {
+
+  x <- paste(...)
+  x <- msg_bullet(x, indent = indent, crayon::green(cli::symbol$"tick"))
+  cli::cat_line(x)
+
+  invisible(NULL)
+}
+
+
+
+#' @noRd
+
+msg_oops <- function(..., indent = "") {
+
+  x <- paste(...)
+  x <- msg_bullet(x, indent = indent, crayon::red(cli::symbol$"cross"))
+  cli::cat_line(x)
+
+  invisible(NULL)
+}
+
+
+
+#' @noRd
+
+msg_info <- function(..., indent = "") {
+
+  x <- paste(...)
+  x <- msg_bullet(x, indent = indent, crayon::blue("(*)"))
+  cli::cat_line(x)
+
+  invisible(NULL)
+}
+
+
+
+#' @noRd
+
+msg_line <- function(..., indent = "") {
+
+  x <- paste(...)
+  x <- paste0(indent, x)
+  cli::cat_line(x)
+
+  invisible(NULL)
+}
+
+
+#' @noRd
+
+msg_value <- function(...) {
+
+  x <- unlist(list(...))
+
+  if (is.character(x)) {
+    x <- encodeString(x, quote = "'")
+  }
+
+  invisible(paste0(crayon::blue(x), collapse = ", "))
+}
+
+
+
+#' @noRd
+
+msg_code <- function(...) {
+
+  x <- unlist(list(...))
+
+  if (is.character(x)) {
+    x <- encodeString(x, quote = "`")
+  }
+
+  invisible(paste0(crayon::silver(x), collapse = ", "))
+}
+
+
+
+#' @noRd
+
+msg_bullet <- function(x, indent = "", bullet = cli::symbol$"bullet") {
+
+  bullet <- paste0(indent, bullet, " ")
+  msg_indent(x, bullet, "  ")
+}
+
+
+
+#' @noRd
+
+msg_indent <- function (x, first = "  ", indent = first) {
+
+  x <- gsub("\n\\s", "\n", x)
+  x <- gsub("\n", paste0("\n", indent), x)
+  paste0(first, x)
+}