fixed regiter_model viya identification

Author: pinduzera

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: sasctl
 Title: The sasctl package enables easy communication between the SAS Viya platform APIs and the R runtime
-Version: 0.7.5
+Version: 0.7.5.9000
 Author: Eduardo Hellas
 Authors@R: c(
     person(given = "Eduardo",

NEWS.md

@@ -1,3 +1,7 @@
+# sasctl (development version)
+
+* Fixed `register_model` wrongly identifying which version of Viya it is interacting with, which lead to use wrong upload format.
+
 # sasctl 0.7.5
 
 * Added `scr_batch` argument to `format_data_json`, allowing to have all data in a single json payload for Viya 2024.7 SCR batch scoring feature.

R/model_repository.R

@@ -202,7 +202,9 @@ register_model <- function(session, file, name, project, type,
     ## not sure which version this change was introduced
     if (session$platform$major >= 2024 & session$platform$minor >= 3 ) {
 
-      sfile <- list(`_charset_` = "UTF-8", `file-data` = "", files = httr::upload_file(new_file_path))
+      sfile <- list(`_charset_` = "UTF-8", 
+                    `file-data` = "", 
+                    files = httr::upload_file(new_file_path)) # name changes from file to files 
 
     } else {
 
@@ -223,15 +225,23 @@ register_model <- function(session, file, name, project, type,
       stop("The file is not .zip")
     }
 
-    if (session$platform$release == "V03" | is.null(session$platform$minor)) {
-      sfile <- list(file = httr::upload_file(file))
+    
+    if (session$platform$release == "V04" ) {
+      
+      sfile <- list(`_charset_` = "UTF-8", 
+                    `file-data` = "", 
+                    files = httr::upload_file(file)) ## name changes from file to files
+      
     }
 
+    else if (session$platform$release == "V03") {
+      sfile <- list(file = httr::upload_file(file))
+    }
+
     else if (session$platform$major >= 2023 & 
              session$platform$minor >= 3 ) {
-
+      
       sfile <- httr::upload_file(file)} 
-    
     else {
       ### releases older than 2023.3 (and 3.5) requires this format
       sfile <- list(file = httr::upload_file(file))