add export.xlsx for dataset objects

Author: grlloyd

NAMESPACE

@@ -34,6 +34,7 @@ export(evaluate)
 export(example_chart)
 export(example_iterator)
 export(example_model)
+export(export.xlsx)
 export(iris_dataset)
 export(is.output)
 export(is.param)
@@ -108,6 +109,7 @@ exportMethods(dataset.sample_meta)
 exportMethods(dataset.variable_meta)
 exportMethods(description)
 exportMethods(evaluate)
+exportMethods(export.xlsx)
 exportMethods(is.output)
 exportMethods(is.param)
 exportMethods(length)

R/dataset_class.R

@@ -171,3 +171,25 @@ setMethod(f="summary",
             '"',sep='')
     }
 )
+
+#' @describeIn dataset write the dataset object to an excel file
+#' @export
+setMethod(f="export.xlsx",
+    signature=c("dataset"),
+    definition=function(object,xlsxfile,transpose=TRUE) {
+        if (transpose) {
+            X=as.data.frame(t(object$data))
+        } else {
+            X=object$data
+        }
+
+        OUT=list(
+            'data'=X,
+            'sample_meta'=object$sample_meta,
+            'variable_meta'=object$variable_meta
+            )
+        openxlsx::write.xlsx(OUT,file = xlsxfile,rowNames=TRUE,colNames=TRUE)
+    }
+)
+
+

R/generics.R

@@ -571,6 +571,11 @@ setGeneric("dataset.variable_meta",
 setGeneric("dataset.variable_meta<-",
     function(obj,value)standardGeneric("dataset.variable_meta<-"))
 
+#' write a dataset object to file
+#'
+#' @export
+setGeneric("export.xlsx",function(object,...)standardGeneric("export.xlsx"))
+
 ####################################
 ###### iterator class generics #####
 ####################################
@@ -743,3 +748,4 @@ setGeneric("stato.definition",function(obj)standardGeneric("stato.definition"))
 #' @export
 setGeneric("stato.summary",function(obj)standardGeneric("stato.summary"))
 
+