diff --git a/R/MultiAssayExperiment-helpers.R b/R/MultiAssayExperiment-helpers.R index ac3ef19..021e3d7 100644 --- a/R/MultiAssayExperiment-helpers.R +++ b/R/MultiAssayExperiment-helpers.R @@ -838,14 +838,15 @@ setMethod("splitAssays", "MultiAssayExperiment", #' @examples #' #' patts <- list( -#' normals = "TCGA-OR-[A-Z0-9]{4}-11", -#' tumors = "TCGA-OR-[A-Z0-9]{4}-01" +#' normals = "TCGA-[A-Z0-9]{2}-[A-Z0-9]{4}-11", +#' tumors = "TCGA-[A-Z0-9]{2}-[A-Z0-9]{4}-01" #' ) #' #' data("miniACC") #' #' hits <- makeHitList(miniACC, patts) #' +#' ## only turmors present #' splitAssays(miniACC, hits) #' #' @export diff --git a/man/MultiAssayExperiment-helpers.Rd b/man/MultiAssayExperiment-helpers.Rd index 2a9af28..97a8ffd 100644 --- a/man/MultiAssayExperiment-helpers.Rd +++ b/man/MultiAssayExperiment-helpers.Rd @@ -360,14 +360,15 @@ sampleMap(mae2) patts <- list( - normals = "TCGA-OR-[A-Z0-9]{4}-11", - tumors = "TCGA-OR-[A-Z0-9]{4}-01" + normals = "TCGA-[A-Z0-9]{2}-[A-Z0-9]{4}-11", + tumors = "TCGA-[A-Z0-9]{2}-[A-Z0-9]{4}-01" ) data("miniACC") hits <- makeHitList(miniACC, patts) +## only turmors present splitAssays(miniACC, hits) }