From 5fa575e22463877e07eb5cd04295fde5f789066d Mon Sep 17 00:00:00 2001
From: bramrodenburg <14278376+bramrodenburg@users.noreply.github.com>
Date: Mon, 20 Dec 2021 16:36:53 +0100
Subject: [PATCH] Fixed incorrect parameter assignment in create-model-version
 in the R model registry API. (#5185)

Signed-off-by: bramrodenburg <14278376+bramrodenburg@users.noreply.github.com>
---
 mlflow/R/mlflow/R/model-registry.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mlflow/R/mlflow/R/model-registry.R b/mlflow/R/mlflow/R/model-registry.R
index d33edcf5812bc..9d9e8317b9078 100644
--- a/mlflow/R/mlflow/R/model-registry.R
+++ b/mlflow/R/mlflow/R/model-registry.R
@@ -204,7 +204,7 @@ mlflow_create_model_version <- function(name, source, run_id = NULL,
     version = "2.0",
     data = list(
       name = name,
-      source = name,
+      source = source,
       run_id = run_id,
       run_link = run_link,
       description = description