Merge branch 'main' of https://github.com/gemmagerber/autoLIMR

gemmagerber · Jun 15, 2023 · b35642c · b35642c
2 parents 3d3c7ff + a80467b
commit b35642c
Show file tree

Hide file tree

Showing 8 changed files with 669 additions and 529 deletions.
diff --git a/R/LIM_Read.R b/R/LIM_Read.R
diff --git a/R/aevar.R b/R/aevar.R
@@ -18,9 +18,12 @@ aevar <- function(x, respiration) {
 
     # Search and extract living node names that also have AE
     aecols <- paste0(ae.search, collapse = "|") # Find columns that match AE
-    aemat <- living.mat[, grep(pattern = aecols,
-                               colnames(living.mat), invert = FALSE),
-                        drop = FALSE] # Drop all columns that are not AE columns
+    aemat <- living.mat[, grep(
+      pattern = aecols,
+      colnames(living.mat), invert = FALSE
+    ),
+    drop = FALSE
+    ] # Drop all columns that are not AE columns
     with.ae <- names(which(rowSums(is.na(aemat)) != ncol(aemat))) # Extract names of compartments with AE
 
     # Define AE variables only for compartments with AE