use cli_dl to avoid mixing cli and print in class-print fns

nmdefries · nmdefries · commit 1b2f1bb6a92e · 2024-01-04T16:49:02.000-05:00
diff --git a/R/epidatacall.R b/R/epidatacall.R
@@ -201,7 +201,7 @@ fetch_args_list <- function(
 print.fetch_args <- function(x, ...) {
   cli::cli_h1("<fetch_args> object:")
   # Print all non-class fields.
-  print(x[attr(x, "names")])
+  cli::cli_dl(x[attr(x, "names")])
 }
 
 #' Fetches the data
diff --git a/R/model.R b/R/model.R
@@ -141,7 +141,7 @@ create_epidata_field_info <- function(name,
 print.EpidataFieldInfo <- function(x, ...) {
   cli::cli_h1("<EpidataFieldInfo> object:")
   # Print all non-class fields.
-  print(x[attr(x, "names")])
+  cli::cli_dl(x[attr(x, "names")])
 }
 
 parse_value <- function(info, value, disable_date_parsing = FALSE) {

Original file line number	Diff line number	Diff line change
`@@ -141,7 +141,7 @@ create_epidata_field_info <- function(name,`
`141`	`141`	`print.EpidataFieldInfo <- function(x, ...) {`
`142`	`142`	`cli::cli_h1("<EpidataFieldInfo> object:")`
`143`	`143`	`# Print all non-class fields.`
`144`		`- print(x[attr(x, "names")])`
	`144`	`+ cli::cli_dl(x[attr(x, "names")])`
`145`	`145`	`}`
`146`	`146`
`147`	`147`	`parse_value <- function(info, value, disable_date_parsing = FALSE) {`