detect_delimeter.R does not properly detect delimeters about ediutils HOT 6 CLOSED

detect_delimeter_earnaud <- function(data.file){
    require(data.table)
    delims = c(",","\t",";","|")
    # build a vector of logical answering the question:
    # 'For each of my delimiters, is it possible to read @data.file without error?'
    tries <- sapply(delims, # for each of my delimiters
                    function(delim) 
                        class(try( # is it possible
                            fread(input = data.file,sep = delim) # to read @data.file
                        ))!= "try-error" # without error ? (e.g. shall return object of class "list" for dataframes)
                    )
    
    if (is.null(delim.guess) || !any(tries)){ # not one of the tested values has been correct
        message(
            paste("I'm having trouble identifying the field delimeter of ", 
                  data.file, ". Enter the field delimeter of this file.",
                  ' Valid options are:  ,  \\t  ;  |', sep = ""))
        answer <- readline('ENTER here: ')
        if (answer == "\\t"){
            answer <- "\t"
        }
    } else {
        answer <- delim(tries)
    }
    return(answer)
}