#' This function imports the raw data as exported from the TA instruments texture analyzer
#' To export please select export the raw data into a csv file, can one file contain multiple samples or one sample per file?
#' @param dataFolder The location of the folder with the data files
#' @return A data.frame containing the raw data
#' @export
TextureAnalyzer_ImportRawData <- function(dataFolder)
{
RawTextureDataFiles <- list.files(dataFolder,full.names = TRUE)
returnData <- data.frame()
for(i in 1:length(RawTextureDataFiles))
{
SampleName <- read.csv(RawTextureDataFiles[i], nrows = 1, row.names = NULL, header = FALSE)
SampleName <- strsplit(as.character(SampleName[,1]),";")[[1]]
TASamples = NULL
index <- 1
for(j in seq(1,length(SampleName),3))
{
TASamples[index] <- SampleName[j]
index <- index +1
}
RawRawData <- read.csv2(RawTextureDataFiles[i], skip = 1, row.names = NULL, header = TRUE)
for(j in 1:length(TASamples))
{
rawData = data.frame()
rawData = RawRawData[,seq(j*3-2,j*3)]
colnames(rawData) <- c("Force_g","Distance_mm","Time_sec")
rawData$SampleName <- rep(TASamples[j],length(rawData[,1]))
returnData <- rbind(returnData,rawData)
}
}
return(returnData)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.