Merge branch 'master' of git.bioconductor.org:packages/struct

Author: grlloyd

R/DatasetExperiment_class.R

@@ -172,7 +172,7 @@ setMethod (f = 'as.SummarizedExperiment',
 setMethod (f = 'as.DatasetExperiment',
   signature = 'SummarizedExperiment',
   definition = function(obj) {
-    
+
     A = assay(obj)
     B = as.data.frame(t(A))
     colnames(B) = rownames(A)

tests/testthat/test-dataset.R

@@ -24,6 +24,11 @@ test_that('DatasetExperiment objects',{
 
     DE=as.DatasetExperiment(SE)
     expect_true(is(DE,'DatasetExperiment'))
+
+    SE=SummarizedExperiment(data.frame(x=1:8, y=letters[1:8]))
+    DE=as.DatasetExperiment(SE)
+    expect_true(is(DE,'DatasetExperiment'))
+    expect_identical(dimnames(DE), rev(dimnames(SE)))
 
     expect_true("name" %in% .DollarNames.struct_class(DE))