WIP

plietar · plietar · commit de7c80005144 · 2025-02-14T15:02:44.000Z
diff --git a/.github/workflows/runner.yaml b/.github/workflows/runner.yaml
@@ -19,4 +19,4 @@ jobs:
           dependencies: NA
       - name: Execute tasks
         shell: bash
-        run: Rscript --verbose 'run.R'
+        run: Rscript --verbose 'source("run.R", echo=TRUE)'
diff --git a/run.R b/run.R
@@ -57,15 +57,11 @@ task_status <- function(task_id, include_logs = FALSE) {
     httr2::resp_body_json()
 }
 
-task_logs <- function(task_id) {
-  unlist(task_status(task_id, include_logs = TRUE)$logs)
-}
-
 task_wait <- function(task_id) {
   while (TRUE) {
     status <- task_status(task_id)
     if (status$status != "RUNNING") {
-      return(status)
+      return (status)
     }
     Sys.sleep(1)
   }

Original file line number	Diff line number	Diff line change
`@@ -57,15 +57,11 @@ task_status <- function(task_id, include_logs = FALSE) {`
`57`	`57`	`httr2::resp_body_json()`
`58`	`58`	`}`
`59`	`59`
`60`		`-task_logs <- function(task_id) {`
`61`		`- unlist(task_status(task_id, include_logs = TRUE)$logs)`
`62`		`-}`
`63`		`-`
`64`	`60`	`task_wait <- function(task_id) {`
`65`	`61`	`while (TRUE) {`
`66`	`62`	`status <- task_status(task_id)`
`67`	`63`	`if (status$status != "RUNNING") {`
`68`		`- return(status)`
	`64`	`+ return (status)`
`69`	`65`	`}`
`70`	`66`	`Sys.sleep(1)`
`71`	`67`	`}`