comparison dfhlp.R @ 5:fb9c0409d85c draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 608d9e59a0d2dcf85a037968ddb2c61137fb9bce

4:b34c14151f25

	#####################

	df.move.col.last <- function(df, cols) {
		not.cols <- setdiff(names(df), cols)
		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 #
	#################

5:fb9c0409d85c

	#####################

	df.move.col.last <- function(df, cols) {
		not.cols <- setdiff(names(df), cols)
		df[c(not.cols, cols)]
	}

	#################
	# READ CSV FILE #
	#################