adding current_commit arg to write_update_commit

allometric · Sep 30, 2024 · 5f53e96 · 5f53e96
1 parent e243e65
commit 5f53e96
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/mongo.R b/R/mongo.R
@@ -97,8 +97,10 @@ get_last_update_commit <- function(update_con) {
   }
 }
 
-write_update_commit <- function(update_con) {
-  current_commit <- system("git rev-parse HEAD", intern = TRUE)
+write_update_commit <- function(update_con, current_commit = NULL) {
+  if(!is.null(current_commit)) {
+    current_commit <- system("git rev-parse HEAD", intern = TRUE)
+  }
 
   insert_obj <- list(
     datetime = as.integer(Sys.time()) |> jsonlite::unbox(),