R/ReadFile.R

In Zink-Antoine/OSLpack: Analyze OSL using Bayesian

#####################Fonction ReadFile##################################################

#' ReadFile
#' load one or several BIN/BINX files
#'
#' @param list [string] (**with default**) name of files list (default "liste fichier.txt")
#' @param n [numeric] (**with default**) number of files (default n=1)
#' @param embedData  [logical]  (**with default**)  TRUE (default) retrieves data, otherwise (FALSE) returns only file names
#'
#' @return depending on the value of *embedData*
#' @return TRUE (default value)
#' @return FILE object of class "list" containing S4 Risoe.BINFileData objects
#' @return NFILE File name (*.bin/*.binx)
#' @return FALSE
#' @return File name (*.bin/*.binx)
#'
#' @importFrom Luminescence read_BIN2R
#' @importFrom tcltk tk_choose.dir
#'
#' @export
#'
#' @examples
#' \dontrun{
#' File<-ReadFile(n=1)
#' file<-File$FILE
#' nomFile<-File$NFILE
#' }



ReadFile<-function(list="liste fichier.txt"
,n=1 ,embedData=TRUE) {

#choose directory
Dir<-tk_choose.dir(getwd(), "Choose a suitable folder")
setwd(Dir)

#print the file list
Liste<-readLines(list)
print(Liste)

#select n file(s)
FileBin<-scan("",what=list(""),n)
FileBin

if (embedData){
  #load BIN/BINX file
  FileData<-list()
  for (i in 1:n){
    FileData<-c(FileData,read_BIN2R(FileBin[[1]][i]))
  }
  A<-list(FILE=FileData,NFILE=FileBin)
  return(A)
}
else
  return(FileBin)

}