R/readX.R

In INESSSQC/INESSS: Useful functions

#' Importer un fichier
#'
#' Importe un fichier créé à partir de la fonction \code{\link[INESSS]{saveX}}.
#'
#' Pas besoin d'inscrire \code{.csv} à l'argument \code{file}.\cr\cr
#' Recommandation : \code{sep != dec}.
#'
#' @param file "path/nomfichier". path est facultatif.
#' @param sep Séparateur des colonnes.
#' @param dec Séparateur décimal.
#' @param ... Autres arguments de la fonction \code{\link[data.table]{fread}} du package \code{data.table}.
#'
#' @return data.table
#' @import data.table
#' @export
#' @examples
#' ## NOT RUN
#' # readX("Emplacement_du_fichier/Nom_du_fichier")
readX <- function(file, sep = ";", dec = ",", ...){

  #### Verification
  ArgCheck()
  if(sep == dec) addWarning("Les arguments 'sep' et 'dec' sont identiques. Cela pourrait causer des problèmes dans l'ordre des colonnes.", argcheck)
  finishArgCheck(argcheck)


  #### Code ####
  return(fread(paste0(file,".csv"), sep = sep, dec = dec, ...))

}