Update sequester_orphans.R

Quit if orphaned_projects is empty.
ctsit · Jan 23, 2025 · b18112d · b18112d
1 parent 131dad6
commit b18112d
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/etl/sequester_orphans.R b/etl/sequester_orphans.R
@@ -81,6 +81,11 @@ email_info <-
   filter(!is.na(project_owner_email)) %>%
   select(project_owner_email, project_owner_full_name, user_suspended_time, project_id, app_title, project_hyperlink, creation_time, last_logged_event)
 
+# if there is nothing to do, then exit
+if(nrow(orphaned_projects) == 0) {
+  quit()
+}
+
 # Sequester the orphans
 result <- sequester_projects(
   conn = rc_conn,