From 36eeb96bd862584d035faf668fa52de200d5e8bd Mon Sep 17 00:00:00 2001
From: Uxue Lazkano Dobao <uxuelazkanodobao@Uxues-MacBook-Pro.local>
Date: Wed, 16 Oct 2019 20:17:00 +0200
Subject: [PATCH] fix sample sheet create columns

---
 R/create-samplesheet.r | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/create-samplesheet.r b/R/create-samplesheet.r
index f2ac5f5..4747c4d 100644
--- a/R/create-samplesheet.r
+++ b/R/create-samplesheet.r
@@ -20,8 +20,8 @@ meffil.create.samplesheet <- function(path, basenames=meffil.basenames(path,recu
     sentrixpos <- grep("^R[0-9][0-9]C[0-9][0-9]$", as.character(unlist(dat[1,])))
     if(length(sentrixpos)==1) {
         temp <- do.call(rbind, strsplit(as.character(dat[,sentrixpos]), split="C"))
-        dat$sentrix_row <- gsub("R", "", temp[,1])
-        dat$sentrix_col <- temp[,2]
+        dat$Sentrix_Position <- gsub("R", "", temp[,1])
+        dat$Sentrix_ID <- temp[,2]
         dat <- dat[,-sentrixpos]
     }