From c6a5c2b59cb3aff1dce61c25e259de6cea66343f Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Fri, 26 Nov 2021 11:40:54 +0100
Subject: [PATCH] neural: Store the serialized model

---
 R/neural.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/neural.R b/R/neural.R
index fe16c36..9453f35 100644
--- a/R/neural.R
+++ b/R/neural.R
@@ -212,7 +212,7 @@ neural <- function(preset, progress = NULL, seed = 49641, n_models = 5) {
 
                 # Store the details.
 
-                networks[[i]]$model <- model
+                networks[[i]]$model <- keras::serialize_model(model)
                 networks[[i]]$fit <- fit
 
                 if (!is.null(progress)) {