fix: return class from corDS and covDS for consistency checking

timcadman · timcadman · commit b2535b574cec · 2026-04-13T14:58:01.000+02:00
diff --git a/R/corDS.R b/R/corDS.R
@@ -169,7 +169,7 @@ corDS <- function(x=NULL, y=NULL){
     
   }
   
-  return(list(sums.of.products=sums.of.products, sums=sums, complete.counts=complete.counts, na.counts=na.counts, sums.of.squares=sums.of.squares))
+  return(list(sums.of.products=sums.of.products, sums=sums, complete.counts=complete.counts, na.counts=na.counts, sums.of.squares=sums.of.squares, class=class(x.val)))
   
 }
 # AGGREGATE FUNCTION
diff --git a/R/covDS.R b/R/covDS.R
@@ -302,7 +302,7 @@ covDS <- function(x=NULL, y=NULL, use=NULL){
   
   }
 
-  return(list(sums.of.products=sums.of.products, sums=sums, complete.counts=complete.counts, na.counts=na.counts, errorMessage=errorMessage))
+  return(list(sums.of.products=sums.of.products, sums=sums, complete.counts=complete.counts, na.counts=na.counts, errorMessage=errorMessage, class=class(x.val)))
 
 }
 # AGGREGATE FUNCTION

Original file line number	Diff line number	Diff line change
`@@ -169,7 +169,7 @@ corDS <- function(x=NULL, y=NULL){`
`169`	`169`
`170`	`170`	`}`
`171`	`171`
`172`		`- return(list(sums.of.products=sums.of.products, sums=sums, complete.counts=complete.counts, na.counts=na.counts, sums.of.squares=sums.of.squares))`
	`172`	`+ return(list(sums.of.products=sums.of.products, sums=sums, complete.counts=complete.counts, na.counts=na.counts, sums.of.squares=sums.of.squares, class=class(x.val)))`
`173`	`173`
`174`	`174`	`}`
`175`	`175`	`# AGGREGATE FUNCTION`
Original file line number	Diff line number	Diff line change
`@@ -302,7 +302,7 @@ covDS <- function(x=NULL, y=NULL, use=NULL){`
`302`	`302`
`303`	`303`	`}`
`304`	`304`
`305`		`- return(list(sums.of.products=sums.of.products, sums=sums, complete.counts=complete.counts, na.counts=na.counts, errorMessage=errorMessage))`
	`305`	`+ return(list(sums.of.products=sums.of.products, sums=sums, complete.counts=complete.counts, na.counts=na.counts, errorMessage=errorMessage, class=class(x.val)))`
`306`	`306`
`307`	`307`	`}`
`308`	`308`	`# AGGREGATE FUNCTION`