AbsEEMSfilecompsoil_function.R

#
# function for creating master file for corrected absorbance and fluorescence files
# For passing these files into a file that will calculate absorbance and fluorescence indicies
# 24 July 2015
# AJ PhD project
##################

abseemfilecomp <- function(directoryRaleigh, projectname, directorynoncorabs, filelist_EEMScor){
  
  setwd(directoryRaleigh)
  #create column with sample ID - extracted from corrected EEMS filename
  
  y = length(filelist_EEMScor)
  
  sample.ID <- 0 #create sample ID variable
  
  for (i in 1:y){
    sample.ID.temp <- strapplyc(filelist_EEMScor[i], paste("(.*)", "_", projectname, "_CorrInterp.csv", sep = ""), simplify = TRUE)
    sample.ID[i] <- sample.ID.temp
  }
  filelist <- cbind(filelist_EEMScor , sample.ID)
  
  ###########
  #Abs - corrected
  setwd(directorynoncorabs)
  filelist_Abs_noncorr <- list.files(pattern = "Abs.csv$")
  #create column with sample ID - extracted from ABS filename
  y = length(filelist_Abs_noncorr)
  
  for (i in 1:y){
    sample.ID.temp <- strapplyc(filelist_Abs_noncorr[i], "(.*)_SoilExtracts", simplify = TRUE)
    sample.ID[i] <- sample.ID.temp
  }
  filelist_Abs_corr <- cbind(filelist_Abs_noncorr, sample.ID)
  
  #######
  # Merge EEM and Abs filenames by sample ID to create file with all of the filenames
  data.1 <- merge(filelist, filelist_Abs_corr,  by = "sample.ID", all = TRUE)
  #data.1 <- merge(data.1, filelist_Abs_noncorr, by = "sample.ID", all = TRUE)
  return(data.1)
}