Browse code

Update utilities.R

Ellis Patrick authored on 02/08/2022 05:05:50 • GitHub committed on 02/08/2022 05:05:50
Showing 1 changed files

... ...
@@ -580,13 +580,14 @@
580 580
     }
581 581
     featuresInfo <- S4Vectors::DataFrame(originalInfo, renamedInfo)
582 582
     colnames(featuresInfo) <- c("Original Assay", "Original Feature", "Renamed Assay", "Renamed Feature")
583
+    featuresInfo <- cbind(originalInfo, featuresInfo)
583 584
   } else {
584 585
     originalFeatures <- colnames(measurements)
585 586
     renamedInfo <- paste("Feature", seq_along(measurements), sep = '')
586 587
     featuresInfo <- S4Vectors::DataFrame(originalFeatures, renamedInfo)
587 588
     colnames(featuresInfo) <- c("Original Feature", "Renamed Feature")
588 589
   }
589
-  cbind(originalInfo, featuresInfo)
590
+  featuresInfo
590 591
 }
591 592
 
592 593
 # Function to identify the parameters of an S4 method.