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

@@ -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