R/import_csv.R

In admedeiros/niradm-package: Near infrared data Analysis

#' @title Import CSV
#' @description Import and merge CSV NIR files
#' @param directory Enter working directory address.
#' @param conv converter para nm se TRUE
#' @usage import_csv(directory)
#' @import dplyr
#' @import readxl
#' @export
#' 
import_csv<-function(directory=choose.dir(),conv=FALSE){
  setwd(directory)
  lista<-list.files(pattern="*.csv",full.names=F)
  arquivos <- lapply(lista, function(x) read.csv(x, header=F)) 
  df    <- do.call("cbind", arquivos) 
  elim<-seq(from = 3, to = length(df), by = 2)
  df<-df[,-c(elim)]
  df<-as.data.frame(t(df))
  convert=conv
  if(convert==TRUE){
    df[1,]<-10000000/df[1,]
  }
  names(df) <- df[1,]
  df <- df[-1,]
  rownames(df)<-lista
  return(df)
}