code formatting

R/ensemble_models.R

@@ -398,7 +398,7 @@ ensemble_models <- function(run_info,
             pkgs = inner_packages,
             parallel_over = "everything"
           )
-        ) %>% 
+        ) %>%
           base::suppressMessages() %>%
           base::suppressWarnings()
 

R/multistep_svm_poly.R

@@ -518,7 +518,7 @@ svm_poly_multistep_predict_impl <- function(object, new_data, ...) {
 
     preds_svm_poly <- preds_svm_poly %>%
       dplyr::mutate(Row_Num = xreg_tbl_final$Row_Num)
-    
+
     start_val <- as.numeric(lag_number) + 1
     final_prediction <- rbind(final_prediction, preds_svm_poly)
   }

R/train_models.R

@@ -515,11 +515,11 @@ train_models <- function(run_info,
             pkgs = inner_packages,
             parallel_over = "everything"
           )
-        ) %>%  
+        ) %>%
           tune::collect_predictions() %>%
           base::suppressMessages() %>%
           base::suppressWarnings()
-        
+
         # finalize forecast
         final_fcst <- refit_tbl %>%
           dplyr::rename(
@@ -535,9 +535,9 @@ train_models <- function(run_info,
           ) %>%
           dplyr::mutate(Hyperparameter_ID = hyperparameter_id) %>%
           dplyr::select(-.row, -.config)
-        
+
         # check for future forecast
-        if(as.numeric(min(unique(final_fcst$Train_Test_ID))) != 1) {
+        if (as.numeric(min(unique(final_fcst$Train_Test_ID))) != 1) {
           stop("model is missing future forecast")
         }