|
|
|
@ -3,6 +3,7 @@
|
|
|
|
|
# Taha Ahmed, Jan 2011
|
|
|
|
|
|
|
|
|
|
# CONTENTS
|
|
|
|
|
# >>>> ProvideSampleId
|
|
|
|
|
# >>>> ConvertRefPot
|
|
|
|
|
# >>>> Celsius2Kelvin
|
|
|
|
|
# >>>> Kelvin2Celsius
|
|
|
|
@ -12,6 +13,34 @@
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
##################################################
|
|
|
|
|
################ ProvideSampleId #################
|
|
|
|
|
##################################################
|
|
|
|
|
ProvideSampleId <- function (fullpathwithfilename) {
|
|
|
|
|
### OBS! Only very rudimentary error-checking.
|
|
|
|
|
### If the filename is formatted as \w*-\w*-\w*, we use the middle segment,
|
|
|
|
|
### otherwise we use the whole string (excluding the extension)
|
|
|
|
|
# Extract the name of the parent directory of the datafilename argument
|
|
|
|
|
substrateid <- basename(dirname(fullpathwithfilename))
|
|
|
|
|
# Extract the name of the method from the filename-part
|
|
|
|
|
# First split the filename over all hyphens
|
|
|
|
|
nameparts <- strsplit(basename(fullpathwithfilename), "-")[[1]]
|
|
|
|
|
# If the number of nameparts exceed 3, save the whole filename as methodid, otherwise use the middle part
|
|
|
|
|
if (length(nameparts) > 3) {
|
|
|
|
|
# We need to lose the file extension from the last namepart
|
|
|
|
|
nameparts[length(nameparts)] <- strsplit(nameparts[length(nameparts)], "\\.")[[1]][1]
|
|
|
|
|
methodid <- paste(nameparts, collapse = "-")
|
|
|
|
|
} else {
|
|
|
|
|
methodid <- nameparts[2]
|
|
|
|
|
}
|
|
|
|
|
# Make an informative sampleid
|
|
|
|
|
sampleid <- paste(substrateid, methodid, sep = "-")
|
|
|
|
|
#
|
|
|
|
|
return(sampleid)
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
##################################################
|
|
|
|
|
################# ConvertRefPot ##################
|
|
|
|
|
##################################################
|
|
|
|
|