diff dfhlp.R @ 5:fb9c0409d85c draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 608d9e59a0d2dcf85a037968ddb2c61137fb9bce
author prog
date Wed, 19 Apr 2017 10:00:05 -0400
parents e66bb061af06
children
line wrap: on
line diff
--- a/dfhlp.R	Tue Mar 14 12:40:22 2017 -0400
+++ b/dfhlp.R	Wed Apr 19 10:00:05 2017 -0400
@@ -44,21 +44,6 @@
 		df[c(not.cols, cols)]
 	}
 
-	##############
-	# READ TABLE #
-	##############
-
-	df.read.table <- function(file, sep = "", header = TRUE, remove.na.rows = TRUE, check.names = TRUE, stringsAsFactors = TRUE, trim.header = FALSE, trim.values = FALSE, fileEncoding = "") {
-
-		# Call built-in read.table()
-		df <- read.table(file, sep = sep, header = header, check.names = check.names, stringsAsFactors = stringsAsFactors, fileEncoding = fileEncoding)
-
-		# Clean data frame
-		df <- df.clean(df, trim.colnames = trim.header, trim.values = trim.values, remove.na.rows = remove.na.rows)
-
-		return(df)
-	}
-
 	#################
 	# READ CSV FILE #
 	#################