removed insertRows as it is unnecessary after successful createAndLoad, need...

removed insertRows as it is unnecessary after successful createAndLoad, need to verbose and error handle

R/push.R

@@ -22,7 +22,7 @@ upload_assay_data <- function(df, folder_path, target_name) {
 # Helper function to create dataset domain and upload data
 create_and_upload_dataset <- function(df, folder_path, schema_name, query_name) {
     message("Creating Domain : ", query_name)
-    labkey.domain.createAndLoad(
+    resp <- labkey.domain.createAndLoad(
         baseUrl = labkey.getBaseUrl(),
         domainKind = "StudyDatasetVisit",
         folderPath = folder_path,
@@ -31,17 +31,7 @@ create_and_upload_dataset <- function(df, folder_path, schema_name, query_name)
         df = df,
         description = ""
     )
-    message("Domain created.")
-
-    message("Uploading data ...")
-    labkey.importRows(
-        baseUrl = labkey.getBaseUrl(),
-        folderPath = folder_path,
-        schemaName = schema_name,
-        queryName = query_name,
-        toImport = df
-    )
-
+    message("Domain created and dataframe uploaded.")
     message(paste("Data uploaded to", folder_path, ", schema:", schema_name, ", query:", query_name))
 }