diff --git a/R/check_dag.R b/R/check_dag.R index 932001aea..e7dd47daa 100644 --- a/R/check_dag.R +++ b/R/check_dag.R @@ -447,6 +447,7 @@ print.check_dag <- function(x, ...) { ), "." ) + current_str <- "\nCurrently" } else { msg <- paste0( msg, @@ -456,12 +457,13 @@ print.check_dag <- function(x, ...) { ), "yellow"), "." ) + current_str <- " Currently" } if (is.null(out$current_adjustments)) { - msg <- paste0(msg, " Currently, the model does not adjust for any variables.") + msg <- paste0(msg, current_str, ", the model does not adjust for any variables.") } else { msg <- paste0( - msg, " Currently, the model only adjusts for ", + msg, current_str, ", the model only adjusts for ", datawizard::text_concatenate(out$current_adjustments, enclose = "`"), "." ) diff --git a/tests/testthat/_snaps/check_dag.md b/tests/testthat/_snaps/check_dag.md index c2d95069f..eff5ed7d1 100644 --- a/tests/testthat/_snaps/check_dag.md +++ b/tests/testthat/_snaps/check_dag.md @@ -108,7 +108,8 @@ - alertness, prepared - alertness, skills_course - mood, prepared - - mood, skills_course. Currently, the model does not adjust for any variables. + - mood, skills_course. + Currently, the model does not adjust for any variables. ---