Include Lumen group

Open-Systems-Pharmacology · Nov 22, 2023 · 51fefeb · 51fefeb
1 parent f2dc3c7
commit 51fefeb
Showing 1 changed file with 17 additions and 9 deletions.
diff --git a/R/utilities-mass-balance.R b/R/utilities-mass-balance.R
@@ -462,15 +462,23 @@ defaultMassBalanceGroupings <- function(compoundNames) {
         )
       }
     ),
-    # Rest Compartment
-    list(list(
-      Name = paste("Rest of", paste(compoundNames, collapse = ", ")),
-      # Since default option excludes previously included paths,
-      # we can include all the paths but saliva here
-      Include = paste0("Organism|**|", compoundNames),
-      # Exclude saliva from rest
-      Exclude = paste0("Organism|Saliva|**|", compoundNames)
-    ))
+    list(
+      # Lumen Compartment excluding Feces
+      list(
+        Name = paste(paste(compoundNames, collapse = ", "), "Lumen", sep = " - "),
+        Include = paste0("Organism|Lumen|*|", compoundNames),
+        Exclude = paste0("Organism|Lumen|Feces|", compoundNames)
+      ),
+      # Rest Compartment
+      list(
+        Name = paste("Rest of", paste(compoundNames, collapse = ", ")),
+        # Since default option excludes previously included paths,
+        # we can include all the paths but saliva here
+        Include = paste0("Organism|**|", compoundNames),
+        # Exclude saliva from rest
+        Exclude = paste0("Organism|Saliva|**|", compoundNames)
+      )
+    )
   )
   return(defaultGroupings)
 }