Update R/compile_keras_grid.R

Co-authored-by: github-actions[bot] <41898282+github-actions[bot]@users.noreply.github.com>

Author: davidrsch

R/compile_keras_grid.R

@@ -187,8 +187,10 @@ inform_errors <- function(compiled_grid, n = 10) {
     dplyr::filter(!is.na(error))
   if (nrow(error_grid) > 0) {
     cli::cli_h1("Compilation Errors Summary")
-    cli::cli_alert_danger("{nrow(error_grid)} of {nrow(compiled_grid)} models failed to compile.")
-    
+    cli::cli_alert_danger(
+      "{nrow(error_grid)} of {nrow(compiled_grid)} models failed to compile."
+    )
+
     for (i in 1:min(nrow(error_grid), n)) {
       row <- error_grid[i, ]
       params <- row %>% dplyr::select(-compiled_model, -model_summary, -error)