added export method for the AnalysisData class

jasenfinch · May 12, 2023 · d16368b · d16368b
1 parent b3bb485
commit d16368b
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/R/export.R b/R/export.R
@@ -454,6 +454,23 @@ setMethod('export',signature = 'MetaboProfile',
               return(c(si_fp,pi_fp,pd_fp))
           })
 
+#' @rdname export
+
+setMethod('export',signature = 'AnalysisData',
+          function(x,outPath = '.',idx = 'name',prefix = 'analysis'){
+              x %>% 
+                  exportData(
+                      outPath = outPath,
+                      idx = idx,
+                      prefix = prefix
+                  )
+
+              x %>% 
+                  exportSampleInfo(
+                      outPath = outPath
+                  )
+          })
+
 #' @rdname export
 #' @importFrom dplyr bind_cols everything mutate select
 #' @importFrom tidyr gather spread

diff --git a/man/export.Rd b/man/export.Rd