set check.names to false...

grlloyd · grlloyd · commit 7e8fcff0a4b8 · 2023-07-04T13:52:38.000+01:00
... when accessing sample_meta and variable_meta of DatasetExperiment
diff --git a/R/DatasetExperiment_class.R b/R/DatasetExperiment_class.R
@@ -72,9 +72,9 @@ setMethod(f = "$",
           value = assay(x,1)
         }
       } else if (name == 'sample_meta') {
-        value = S4Vectors::DataFrame(rowData(x)) 
+        value = S4Vectors::DataFrame(rowData(x),check.names = FALSE) 
       } else if (name == 'variable_meta') {
-        value = S4Vectors::DataFrame(colData(x))
+        value = S4Vectors::DataFrame(colData(x),check.names = FALSE)
       } 
       
       if (name %in% s) {

Original file line number	Diff line number	Diff line change
`@@ -72,9 +72,9 @@ setMethod(f = "$",`
`72`	`72`	`value = assay(x,1)`
`73`	`73`	`}`
`74`	`74`	`} else if (name == 'sample_meta') {`
`75`		`- value = S4Vectors::DataFrame(rowData(x))`
	`75`	`+ value = S4Vectors::DataFrame(rowData(x),check.names = FALSE)`
`76`	`76`	`} else if (name == 'variable_meta') {`
`77`		`- value = S4Vectors::DataFrame(colData(x))`
	`77`	`+ value = S4Vectors::DataFrame(colData(x),check.names = FALSE)`
`78`	`78`	`}`
`79`	`79`
`80`	`80`	`if (name %in% s) {`