R/getSequenceFromNCBI.R

In fischuu/hoardeR: Collect and Retrieve Annotation Data for Various Genomic Data Using Different Webservices

getSequenceFromNCBI <- function(id, file=NULL){
  out <- c()
  for(idRun in 1:length(id)){
    
    tmp <- getURL(paste("https://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=nuccore&id=",id[idRun],"&rettype=fasta&retmode=text", sep=""))    
    tmp <- sub("\n","\r",tmp)
    tmp <- gsub("\n","",tmp)
    tmp <- sub("\r","\n",tmp)
    out[idRun] <- tmp
    
    if(idRun%%10==0) message("Processed ",idRun," queries.")
    if(idRun==length(id)) message("All queries processed!")
  }

  if(!is.null(file)){
    fileConn<-file(file)
    writeLines(out, fileConn)
    close(fileConn)
  } else {
    out    
  }
}