|
|
|
|
ProvideSampleId <- function (pathexpfile, implementation = "filename") {
|
|
|
|
|
# Returns a "unique" sample ID when supplied
|
|
|
|
|
# with a path to an experimental file.
|
|
|
|
|
# The second arg is optional, defaults to "old" behaviour,
|
|
|
|
|
# but can be set to "dirname" for another behaviour
|
|
|
|
|
# The second arg was added so as not to break older code.
|
|
|
|
|
## Note to myself: the sample ID must derive directly from the file or path.
|
|
|
|
|
|
|
|
|
|
if (implementation == "dirname") {
|
|
|
|
|
# basename(dirname()) returns the name of the lowest sub-directory
|
|
|
|
|
# split()[[1]][2] splits the dirname at the hyphen and returns the sampleid
|
|
|
|
|
sampleid <- strsplit(x = basename(dirname(pathexpfile)),
|
|
|
|
|
split = "-")[[1]][2]
|
|
|
|
|
} else {
|
|
|
|
|
# basename() returns the filename sans path
|
|
|
|
|
# sub() returns the filename sans extension
|
|
|
|
|
sampleid <- sub("\\.[\\w]+$", "", basename(pathexpfile), perl = TRUE)
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#### The code below is the old ProvideSampleId() function
|
|
|
|
|
# ### 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)
|
|
|
|
|
####
|
|
|
|
|
|
|
|
|
|
return(sampleid)
|
|
|
|
|
}
|
