cleaner outputs

getwilds · Feb 20, 2020 · f53570c · f53570c
1 parent 2839f63
commit f53570c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/cromwellOutputs.R b/R/cromwellOutputs.R
@@ -31,7 +31,8 @@ cromwellOutputs <- function(workflow_id) {
       Z <- data.frame("pathToOutput" = unlist(x), stringsAsFactors = F)
       dplyr::mutate(Z, shardIndex = gsub("/.*$", "", gsub("^.*shard-", "", Z$pathToOutput)))
     }, .id = "workflowMeta")
-    # separate out the workflowName and workflowOutputType columnes
+    out$shardIndex[out$shardIndex == ""] <- NA
+    # separate out the workflowName and workflowOutputType columns
     outputsDf <- tidyr::separate(outputsDf, workflowMeta,
                                  c("workflowName","workflowOutputType"),
                                  sep = "\\.")