Update comments and improve output formatting for clarity

Author: egenn

R/01_S7_Hyperparameters.R

@@ -23,7 +23,7 @@ TUNED_STATUS_TUNED <- 1L
 
 # `resampled` values ----
 # 0: Running on single training set.
-# 1: Running on cross-validated training sets.
+# 1: Running on resampled training sets.
 
 #' @title Hyperparameters
 #'
@@ -32,10 +32,11 @@ TUNED_STATUS_TUNED <- 1L
 #'
 #' @field algorithm Character: Algorithm name.
 #' @field hyperparameters Named list of algorithm hyperparameter values.
-#' @field tuned Integer: Tuning status.
-#' @field resampled Integer: Cross-validation status.
 #' @field tunable_hyperparameters Character: Names of tunable hyperparameters.
 #' @field fixed_hyperparameters Character: Names of fixed hyperparameters.
+#' @field tuned Integer: Tuning status.
+#' @field resampled Integer: Outer resampling status.
+#' @field n_workers Integer: Number of workers to use for tuning.
 #'
 #' @author EDG
 #' @noRd

R/14_S7_utils.R

@@ -401,7 +401,7 @@ print.CheckData <- function(
     } else {
       out <- paste(
         out,
-        bold(green("  * Everything looks good")),
+        bold(highlight("  * Everything looks good")),
         sep = "\n"
       )
     }

R/read.R

@@ -102,7 +102,7 @@ read <- function(
     check_dependencies("arrow")
     if (verbosity > 0L) {
       msg0(
-        bold(green("\u25B6")),
+        bold(highlight("\u25B6")),
         " Reading ",
         highlight(basename(path)),
         " using arrow::read_parquet()..."
@@ -113,7 +113,7 @@ read <- function(
   } else if (ext == "rds") {
     if (verbosity > 0L) {
       msg0(
-        bold(green("\u25B6")),
+        bold(highlight("\u25B6")),
         " Reading ",
         highlight(basename(path)),
         "..."
@@ -124,7 +124,7 @@ read <- function(
     check_dependencies("openxlsx")
     if (verbosity > 0L) {
       msg0(
-        bold(green("\u25B6")),
+        bold(highlight("\u25B6")),
         " Reading ",
         highlight(basename(path)),
         " using readxl::read_excel()..."
@@ -141,7 +141,7 @@ read <- function(
     check_dependencies("haven")
     if (verbosity > 0L) {
       msg0(
-        bold(green("\u25B6")),
+        bold(highlight("\u25B6")),
         " Reading ",
         highlight(basename(path)),
         " using haven::read_dta()..."
@@ -153,7 +153,7 @@ read <- function(
     check_dependencies("seqinr")
     if (verbosity > 0L) {
       msg0(
-        bold(green("\u25B6")),
+        bold(highlight("\u25B6")),
         " Reading ",
         highlight(basename(path)),
         " using seqinr::read.fasta()..."
@@ -169,7 +169,7 @@ read <- function(
     check_dependencies("farff")
     if (verbosity > 0L) {
       msg0(
-        bold(green("\u25B6")),
+        bold(highlight("\u25B6")),
         " Reading ",
         highlight(basename(path)),
         " using farff::readARFF()..."
@@ -180,7 +180,7 @@ read <- function(
   } else {
     if (verbosity > 0L) {
       msg0(
-        bold(green("\u25B6")),
+        bold(highlight("\u25B6")),
         " Reading ",
         highlight(basename(path)),
         " using ",
@@ -332,7 +332,7 @@ msgread <- function(x, caller = "", use_basename = TRUE) {
     x <- basename(x)
   }
   msg0(
-    bold(green("\u25B6")),
+    bold(highlight("\u25B6")),
     " Reading ",
     highlight(x),
     "...",

R/utils_data.table.R

@@ -163,7 +163,7 @@ dt_merge <- function(
     )
     if (left_on == right_on) {
       msg0(
-        bold(green(icon)),
+        bold(highlight(icon)),
         " Merging ",
         highlight(left_name),
         " & ",
@@ -174,7 +174,7 @@ dt_merge <- function(
       )
     } else {
       msg0(
-        bold(green(icon)),
+        bold(highlight(icon)),
         " Merging ",
         highlight(left_name),
         " & ",

R/utils_duckdb.R

@@ -81,14 +81,14 @@ ddb_data <- function(
   fileext <- tools::file_ext(path)
 
   out <- paste(
-    bold(green("\u25B6")),
+    bold(highlight("\u25B6")),
     ifelse(collect, "Reading", "Lazy-reading"),
     highlight(basename(path))
   )
   if (!is.null(filter_column)) {
     out <- paste(
       out,
-      bold(green("\u29e8")),
+      bold(highlight("\u29e8")),
       "filtering on",
       bold(filter_column)
     )

R/utils_print.R

@@ -867,20 +867,6 @@ list2html <- function(
 } # /rtemis::list2html
 
 
-#' @author EDG
-#' @keywords internal
-#' @noRd
-printchar <- function(x, left_pad = 2) {
-  target_length <- left_pad + max(nchar(x))
-  for (i in x) {
-    cat(
-      highlight(leftpad(i, target_length)),
-      "\n"
-    )
-  }
-} # /rtemis::printchar
-
-
 # Helper function to build padded string equivalent of padcat
 show_padded <- function(
   text,

R/utils_strings.R

@@ -230,15 +230,6 @@ clean_colnames <- function(x) {
 }
 
 
-leftpad <- function(x, target_length, pad_char = " ") {
-  lpad <- target_length - nchar(x)
-  if (lpad > 0) {
-    paste0(paste0(rep(pad_char, lpad), collapse = ""), x)
-  } else {
-    x
-  }
-}
-
 #' Force plain text when using `message()`
 #'
 #' @param x Character: Text to be output to console.