update to better handle subworkflows

getwilds · Sep 15, 2021 · 90a4cf4 · 90a4cf4
1 parent 1dbeda9
commit 90a4cf4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: fh.wdlR
 Title: Convenience Tools for Managing WDL Workflows via Cromwell
-Version: 1.0.0
+Version: 1.0.1
 Authors@R: 
     person(given = "Amy",
            family = "Paguirigan",

diff --git a/R/cromwellCall.R b/R/cromwellCall.R
@@ -181,8 +181,8 @@ cromwellCall <- function(workflow_id, cromURL = Sys.getenv("CROMWELLURL", unset
     if (exists("justSubCalls")) {
       justCalls <- suppressMessages(dplyr::full_join(justCalls, justSubCalls))
     }
-    } else {
-      # returns a data frame if no data is avaialable so that this can be used with Shiny apps easier
+    } else if(exists("justSubCalls")) {justCalls <- justSubCalls} else {
+      # returns a data frame if no data is available so that this can be used with Shiny apps easier
       justCalls <- data.frame("workflow_id" = "No call metadata available.", stringsAsFactors = F)
     }
   } else {