R/sequenceParameters.R

In willmorrison1/daRt: Read DART Model Outputs

#' @export
setMethod(f = "sequenceParameters", signature(x = "SimulationFiles"),
          definition = function(x){

              if (any(!x@isSequence)) return(NULL)

              seqList <- x@sequenceInfoList

              seqCast <- .meltAndCastSequenceInfoList(seqList)

              return(seqCast)
          }
)

#' @export
setMethod(f = "sequenceParameters", signature(x = "character"),
          definition = function(x){

              seqList <- lapply(x, sequenceInfo)

              seqCast <- .meltAndCastSequenceInfoList(seqList)

              return(seqCast)
          }
)

.meltAndCastSequenceInfoList <- function(seqList) {
    seqMelt <- reshape2::melt(
        seqList,
        id.vars = c("parameterFullName", "parameterNo", "parameterVal"))

    seqCast <- seqMelt %>%
        reshape2::dcast(L1 ~ parameterNo, value.var = "parameterVal")

    colnames(seqCast)[1] <- "simName"

    return(seqCast)
}