styling

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

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)
 }
 

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))

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)
   }