Database update bug fix

IDSS-NIAID · Dec 4, 2023 · cb9b2eb · cb9b2eb
1 parent 5d4ffd6
commit cb9b2eb
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/R/initialize.R b/R/initialize.R
@@ -12,6 +12,7 @@
 #' @return Something - use this to sniff for existing DB information?
 #' @export
 #' 
+#' @importFrom DBI dbAppendTable
 #' @importFrom DBI dbConnect
 #' @importFrom DBI dbDisconnect
 #' @importFrom DBI dbListTables
@@ -94,7 +95,7 @@ dbinit <- function(db_path, data = NULL)
      !is.null(data$trackRaw))
   {
     dbWriteTable(con, "trackRaw", data$trackRaw)
-  }else{
+  }else if(!is.null(data$trackRaw)){
     dbAppendTable(con, "trackRaw", data$trackRaw)
   }
 

diff --git a/data-raw/process_raw_data.R b/data-raw/process_raw_data.R
@@ -48,6 +48,9 @@ if(length(all_experiments) > 0)
                                         source_dir = file.path(root, 'data-raw', 'results_csv'),
                                         results_dir = file.path(root, '.data'),
                                         seed = 923847)
+
+  processed_data$access <- data.frame(user = 'kuhnslab',
+                                      expID = processed_data$expSummary$expID)
 
   dbinit(db_path, processed_data)
 }