R/isfilelist.R

In wadpac/GGIR: Raw Accelerometer Data Analysis

isfilelist = function(datadir) {
  filelist = FALSE
  #   verify whether datadir is a directory or a list of files
  if (length(datadir) == 1) { #could be a directory or one file
    if (length(unlist(strsplit(datadir,"[.]bi"))) > 1) filelist = TRUE
    if (length(unlist(strsplit(datadir,"[.]cs"))) > 1) filelist = TRUE
    if (length(unlist(strsplit(datadir,"[.]wa"))) > 1) filelist = TRUE
    if (length(unlist(strsplit(datadir,"[.]cw"))) > 1) filelist = TRUE #XD added this line to make it possible to process single cwa file
    if (length(unlist(strsplit(datadir,"[.]gt"))) > 1) filelist = TRUE #XD added this line to make it possible to process single cwa file
  } else { #multiple files
    filelist = TRUE    
  }
  return(filelist)
}