taha
/
R-common
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'a67ce80e2b'
${ noResults }
R-common/SubstrateHistory.R

38 lines
1.8 KiB
R
Raw Normal View History Unescape Escape

Function that fetches the substrate-history from the sample-matrix, and prettifies the dataframe a little (removes empty columns) before returning it.
13 years ago
source("/home/taha/chepec/chetex/common/R/common/LoadRData2Variable.R")
##################################################
############## SubstrateHistory ##################
##################################################
SubstrateHistory <- function(sampleid) {
#
#
matrix <- LoadRData2Variable("/home/taha/chepec/chetex/sample-matrix/sample-matrix-substrates.rda")
# Extract the rows pertaining to the current sampleid
sample.history <- matrix[which(matrix$sampleid == sampleid), ]
# Loops remove all "\\labreport{...}" strings (they make the table too wide otherwise)
for (j in 1:dim(sample.history)[1]) {
for (k in 1:dim(sample.history)[2]) {
Made regex more specific (now matches "\\labreport...}{"). Previous behaviour matched first part of \SI{}{} as well and was unwanted.
13 years ago
sample.history[j, k] <- gsub("^\\\\labreport.*?\\}\\{", "", sample.history[j, k])
Function that fetches the substrate-history from the sample-matrix, and prettifies the dataframe a little (removes empty columns) before returning it.
13 years ago
sample.history[j, k] <- gsub("\\}$", "", sample.history[j, k])
}
}
# Find empty columns and collect their column indices
empty.cols <- matrix(data = FALSE, nrow = 1, ncol = dim(sample.history)[2])
for (k in 1:dim(sample.history)[2]) {
if (paste(sample.history[, k], collapse = "") == "") {
empty.cols[, k] <- TRUE
}
}
# Save the names of the empty columns
empty.names <- names(sample.history)[which(empty.cols)]
# Remove the identified empty columns plus those columns deemed unwanted
sample.history <- sample.history[, -c(which(empty.cols == TRUE),
Added the small utility function hms2seconds() Converts character strings of hours, minutes, seconds to seconds (as numeric).
13 years ago
#which(names(sample.history) == "sampleid"),
Function that fetches the substrate-history from the sample-matrix, and prettifies the dataframe a little (removes empty columns) before returning it.
13 years ago
which(names(sample.history) == "created"),
which(names(sample.history) == "project"))]
# Save the empty column names as attribute to sample.history dataframe
attr(sample.history, "empty.names") <- empty.names
return(sample.history)
}