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