[C++]Parsing fasta files in R using Rcpp

read_fasta.cpp

#include <fstream>
#include <Rcpp.h>

using namespace Rcpp;

// [[Rcpp::export]]
CharacterVector read_fasta(std::string file) {
  CharacterVector records;
  std::ifstream in(file.c_str());
  in.get(); // remove first '>'
  std::string rec;
  while(getline(in,rec,'>')){
    int newLineLoc = rec.find('\n');
    std::string header = rec.substr(0,newLineLoc);
    std::string sequence = rec.substr(newLineLoc+1, rec.length()-newLineLoc-2);
    sequence.erase(std::remove(sequence.begin(),sequence.end(),'\n'),sequence.end());
    records[header]=sequence;
  }
  return(records);
}

Hi, I was looking for that kind of implementation...
I have one question: Is it possible to extend this code to read a csv file and return a dataframe ?
Thanks in advance and sorry if It is too basic.