diff --git a/R/cromwellCall.R b/R/cromwellCall.R index 739b98e..b428bfd 100644 --- a/R/cromwellCall.R +++ b/R/cromwellCall.R @@ -31,8 +31,8 @@ cromwell_call <- function(workflow_id, url = cw_url(), token = NULL) { url = make_url(url, "api/workflows/v1", workflow_id, "metadata"), token = token ) |> - req_url_query(expandSubWorkflows = "true") |> - http_perform() + req_url_query(expandSubWorkflows = "true") |> + http_perform() # if the response is a character vector, then return it and stop if (is.character(crommetadata)) stop(crommetadata) # if the response is a list, meaning it has some content, continue diff --git a/R/cromwellFailures.R b/R/cromwellFailures.R index 8a25d57..53abe84 100644 --- a/R/cromwellFailures.R +++ b/R/cromwellFailures.R @@ -29,8 +29,8 @@ cromwell_failures <- function(workflow_id, url = cw_url(), token = NULL) { url = make_url(url, "api/workflows/v1", workflow_id, "metadata"), token = token ) |> - req_url_query(includeKey = "failures", includeKey = "jobId") |> - http_perform() + req_url_query(includeKey = "failures", includeKey = "jobId") |> + http_perform() cromwell_failures_process(response, workflow_id) } diff --git a/R/cromwellOutputs.R b/R/cromwellOutputs.R index b290392..4315095 100644 --- a/R/cromwellOutputs.R +++ b/R/cromwellOutputs.R @@ -34,7 +34,9 @@ cromwell_outputs_query <- function(workflow_id, url = cw_url(), token = NULL) { #' @autoglobal cromwell_outputs_process <- function(resp, workflow_id) { - if (length(resp$outputs) == 0) return(dplyr::tibble()) + if (length(resp$outputs) == 0) { + return(dplyr::tibble()) + } # grab only the outputs list and unlist into a dataframe df <- purrr::map_dfr(resp$outputs, function(x) { z <- dplyr::tibble("pathToOutput" = unlist(x)) diff --git a/R/utils.R b/R/utils.R index 80ae224..90d85f6 100644 --- a/R/utils.R +++ b/R/utils.R @@ -7,8 +7,7 @@ lst_upload_file <- function(path) { browse <- function(url) { if (interactive()) { utils::browseURL(url) - } - else { + } else { message("Please point your browser to the following url: ") message(url) }