samplesheet error fixed

perishky · Oct 16, 2020 · ef93974 · ef93974
1 parent 0e67d74
commit ef93974
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/read-samplesheet.r b/R/read-samplesheet.r
@@ -129,7 +129,7 @@ meffil.read.samplesheet <- function(base, pattern = "csv$", ignore.case = TRUE,
 	{
 		names(df)[nam] <- "Sex"
 		if (is.logical(df[[nam]]))
-		  df[[nam]] <- substring(as.character(df[[name]]), 1, 1)
+		  df[[nam]] <- substring(as.character(df[[nam]]), 1, 1)
 	} else {
 		warning("There should be one 'Sex' column")
                 df$Sex <- NA