R/as.data.frame.R

In labbcb/CromwellClient: R package for consuming Cromwell API

#' @export
as.data.frame.WorkflowOutputs <- function(x, ...)
{
	files <- x[! names(x) %in% c("id", "host", "version")]
	do.call(rbind, lapply(names(files), function(call) data.frame(call = call, files = files[[call]])))
}

#' @export
as.data.frame.WorkflowLogs <- function(x, ...)
{
	files <- x[! names(x) %in% c("id", "host", "version")]
	do.call(rbind, lapply(names(files), function(call) data.frame(call = call, stdout = files[[call]]$stdout, stderr = files[[call]]$stderr, attempt = files[[call]]$attempt, shardIndex = files[[call]]$shardIndex)))
}