update documentation

R/notifications.R

@@ -1,6 +1,6 @@
 #' Format a status row for printing
 #'
-#' @descrption `format_status_msg()` contains all the details of a status update, whereas `format_notification_msg()` has just the phase number and the task
+#' @description `format_status_msg()` contains all the details of a status update, whereas `format_notification_msg()` has just the phase number and the task
 #'
 #' @param status_row a single row of a `statuses` object
 #' @param sep character to separate each element in formatted output
@@ -91,8 +91,6 @@ send_notification <- function(msg, item_id, user_id)
 #'
 #' @return character (update_id of the new update)
 #' @export
-#'
-#' @examples
 update_item <- function(item_body, item_id)
 {
     q_update_item <- jsonlite::toJSON(

R/scratchspace.R

@@ -1,20 +1,43 @@
-run = FALSE
-if (run)
+update_parsing_dat <- FALSE
+run_sync <- FALSE
+check_roadmap_files <- FALSE
+test_roadmap <- FALSE
+
+if (update_parsing_dat)
 {
     parsing_dat <- read.csv("inst/parsing_dat.csv")
     save("parsing_dat", file = "R/sysdata.rda")
+}
 
+if (check_roadmap_files)
+{
     gdrv_auth()
 
     # access info on all units
     db_units <- read_db_units()
     roadmap_files <- find_files_roadmaps()
     check_files_roadmap(db_units, roadmap_files)
+}
+
+if (test_roadmap)
+{
+    gdrv_auth()
+
+    # access roadmap docs from db
+    db_units <- read_db_units()
+    roadmap_urls <- db_units$`roadmap URL`
+    tracker_urls <- db_units$`unit tasks URL`
+    tracker_sheets <- db_units$`Sheet Name`
 
+    idx <- which(db_units$Unit == "TESTING")
 
+    roadmap_url <- roadmap_urls[idx]
+    tracker_url <- tracker_urls[idx]
+    tracker_sheet <- tracker_sheets[idx]
+    sync_statuses(roadmap_url, tracker_url, tracker_sheet)
 }
 
-if (run)
+if (run_sync)
 {
     # start of processing loop
     gdrv_auth()