From 3ce7109f5242eef09fe8a4ea41ef2c78eda2aef3 Mon Sep 17 00:00:00 2001
From: Leonardo Collado Torres <lcollado@jhsph.edu>
Date: Thu, 7 Feb 2019 16:44:04 -0500
Subject: [PATCH] Fix the BSseq class constructor for the case when pData is
 not NULL and sampleNames is NULL

---
 R/BSseq-class.R | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/R/BSseq-class.R b/R/BSseq-class.R
index 5ff7c2c..174ef7b 100644
--- a/R/BSseq-class.R
+++ b/R/BSseq-class.R
@@ -93,9 +93,6 @@ BSseq <- function(M = NULL, Cov = NULL, coef = NULL, se.coef = NULL,
         if (is.null(pData)) {
             # BSseq object will have no colnames.
             pData <- S4Vectors:::new_DataFrame(nrows = ncol(M))
-        } else {
-            # BSseq object will have 'sampleNames' as colnames.
-            pData <- DataFrame(row.names = sampleNames)
         }
     } else {
         if (is.null(pData)) {