From 62b3478ddf55bcc5f1fcdfc10e27482140c828cd Mon Sep 17 00:00:00 2001
From: LiNk-NY <marcel.ramosperez@roswellpark.org>
Date: Fri, 11 Aug 2023 12:46:33 -0400
Subject: [PATCH] update splitAssays example to match TCGAsplitAssays

---
 R/MultiAssayExperiment-helpers.R    | 5 +++--
 man/MultiAssayExperiment-helpers.Rd | 5 +++--
 2 files changed, 6 insertions(+), 4 deletions(-)

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)
 
 }