Merge pull request #316 from cmu-delphi/djm/args-list-printing

dajmcdon · web-flow · commit 999538a437dc · 2024-04-09T16:09:43.000-07:00
Djm/args list printing
diff --git a/R/canned-epipred.R b/R/canned-epipred.R
@@ -51,9 +51,15 @@ arx_lags_validator <- function(predictors, lags) {
 }
 
 
+
 #' @export
 print.alist <- function(x, ...) {
-  utils::str(x)
+  nm <- names(x)
+  for (i in seq_along(x)) {
+    if (is.null(x[[i]])) x[[i]] <- "NULL"
+    if (length(x[[i]]) == 0L) x[[i]] <- "_empty_"
+    cli::cli_bullets(c("*" = "{nm[[i]]} : {.val {x[[i]]}}"))
+  }
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -51,9 +51,15 @@ arx_lags_validator <- function(predictors, lags) {`
`51`	`51`	`}`
`52`	`52`
`53`	`53`
	`54`	`+`
`54`	`55`	`#' @export`
`55`	`56`	`print.alist <- function(x, ...) {`
`56`		`- utils::str(x)`
	`57`	`+ nm <- names(x)`
	`58`	`+ for (i in seq_along(x)) {`
	`59`	`+ if (is.null(x[[i]])) x[[i]] <- "NULL"`
	`60`	`+ if (length(x[[i]]) == 0L) x[[i]] <- "_empty_"`
	`61`	`+ cli::cli_bullets(c("*" = "{nm[[i]]} : {.val {x[[i]]}}"))`
	`62`	`+ }`
`57`	`63`	`}`
`58`	`64`
`59`	`65`	`#' @export`