From f968ed022b0379700b656e8864220d044a700e8a Mon Sep 17 00:00:00 2001 From: Edward Abraham Date: Mon, 1 Dec 2025 16:11:09 +1300 Subject: [PATCH 1/2] Update gateaux_job_runner.R select is undefined --- R/gateaux_job_runner.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/gateaux_job_runner.R b/R/gateaux_job_runner.R index 0ddd1e6..ef617aa 100644 --- a/R/gateaux_job_runner.R +++ b/R/gateaux_job_runner.R @@ -7,7 +7,7 @@ #' * requires (named required job dependencies). #' @param report_name The name of the job #' @param JWT String: Authentication token. -#' @param Server The gateaux server url to use. defaults to gorbachev.io +#' @param server The gateaux server url to use. defaults to gorbachev.io #' @param log_jobs Export job parameters to logfile? #' @param prefix for the list, can include path #' @param append append to existing file? @@ -78,9 +78,9 @@ gateaux_job_runner <- function(pars_list = NULL, if(log_jobs){ rr <- jsonlite::fromJSON(ret) - rr <- dplyr::bind_cols(rr %>% select(-parameters),rr$parameters) # added 'dplyr::' to solve a error message: could not find function "bind_cols" - rr <- dplyr::bind_cols(rr %>% select(-env),rr$env) # added 'dplyr::' to solve a error message: could not find function "bind_cols" - readr::write_csv(rr%>% select(-variant),path = paste0(prefix,'-joblist.csv'),append = append) + rr <- dplyr::bind_cols(rr %>% dplyr::select(-parameters), rr$parameters) # added 'dplyr::' to solve a error message: could not find function "bind_cols" + rr <- dplyr::bind_cols(rr %>% dplyr::select(-env), rr$env) # added 'dplyr::' to solve a error message: could not find function "bind_cols" + readr::write_csv(rr%>% dplyr::select(-variant), path = paste0(prefix,'-joblist.csv'), append = append) } else { jsonlite::fromJSON(ret) } From 161388653ba87e91de840005c3cf80ee682efafc Mon Sep 17 00:00:00 2001 From: Edward Abraham Date: Mon, 1 Dec 2025 16:13:17 +1300 Subject: [PATCH 2/2] Update gateaux_job_runner.R Fix deprecated argument of readr --- R/gateaux_job_runner.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/gateaux_job_runner.R b/R/gateaux_job_runner.R index ef617aa..717e887 100644 --- a/R/gateaux_job_runner.R +++ b/R/gateaux_job_runner.R @@ -80,7 +80,7 @@ gateaux_job_runner <- function(pars_list = NULL, rr <- jsonlite::fromJSON(ret) rr <- dplyr::bind_cols(rr %>% dplyr::select(-parameters), rr$parameters) # added 'dplyr::' to solve a error message: could not find function "bind_cols" rr <- dplyr::bind_cols(rr %>% dplyr::select(-env), rr$env) # added 'dplyr::' to solve a error message: could not find function "bind_cols" - readr::write_csv(rr%>% dplyr::select(-variant), path = paste0(prefix,'-joblist.csv'), append = append) + readr::write_csv(rr%>% dplyr::select(-variant), file = paste0(prefix,'-joblist.csv'), append = append) } else { jsonlite::fromJSON(ret) }