Check for a "samplename" column.

charles-plessy · Mar 22, 2017 · 978b72c · 978b72c
1 parent 2c22fde
commit 978b72c
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 8 deletions.
diff --git a/R/llPostProcess.R b/R/llPostProcess.R
@@ -1,11 +1,12 @@
 #' llPostProcess
 #' 
-#' Post-process the output of loadLogs.
+#' Post-process the output of loadMoiraiStats
 #' 
-#' @seealso loadLogs
+#' @seealso loadMoiraiStats
 #' 
-#' @param TABLE A table output by loadLogs
-#' @param TYPE A type of post-processing
+#' @param TABLE A table output by loadMoiraiStats.  Should at least contain
+#'        a column called \sQuote{samplename}.
+#' @param TYPE A type of post-processing.
 #' 
 #' @details 
 #' 
@@ -43,6 +44,9 @@
 
 llPostProcess <- function (TABLE, TYPE='') {
 
+  if(! "samplename" %in% colnames(TABLE))
+    stop('Input table must have a "samplename" column.')
+
   samplesnamesToWell <- function(TABLE) {
     TABLE$Well   <- sub('.*_', '', TABLE$samplename)
     TABLE$row    <- sub('.',   '', TABLE$Well)

diff --git a/man/llPostProcess.Rd b/man/llPostProcess.Rd