diff --git a/R/print_iter.R b/R/print_iter.R index c4d93df1..6c1a3491 100644 --- a/R/print_iter.R +++ b/R/print_iter.R @@ -38,7 +38,7 @@ print_iter <- function(internal) { if (!is.null(convergence_tolerance)) { conv_nice <- signif(overall_conv_measure, 2) tol_nice <- format(signif(convergence_tolerance, 2), scientific = FALSE) - reduction_factor_nice <- format(signif(reduction_factor*100, 2), scientific = FALSE) + reduction_factor_nice <- format(signif(reduction_factor * 100, 2), scientific = FALSE) msg <- paste0( msg, "Current convergence measure: {conv_nice} [needs {tol_nice}]\n", diff --git a/tests/testthat/test-adaptive-output.R b/tests/testthat/test-adaptive-output.R index f53f7a12..c4e787f2 100644 --- a/tests/testthat/test-adaptive-output.R +++ b/tests/testthat/test-adaptive-output.R @@ -273,7 +273,7 @@ test_that("output_verbose_1_3", { approach = "gaussian", prediction_zero = p0, adaptive = TRUE, - verbose = c("basic","convergence") + verbose = c("basic", "convergence") ), "output_verbose_1_3" ) @@ -310,5 +310,3 @@ test_that("output_verbose_1_3_4_5", { "output_verbose_1_3_4_5" ) }) - -