diff --git a/R/push.R b/R/push.R index 51330ce9e80466cce33f619a96d492e9c86f7577..dad5af0f3db0dff6e3d017e7d66557bb46cba0bb 100644 --- a/R/push.R +++ b/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)) }