如何根据引号在csv中写入值并忽略引号中的逗号？

Question

我想写一个csv列表中的一些项目，这些项目是在引号和逗号之间。我如何写它们，使项目不因逗号而分开？我看了许多类似的问题，但没有找到我的问题的具体解决办法

['Saks, Lord & Taylor data breach may affect 5 million customers', (u'By Mike Murphy', u'April 1, 2018, 5:24 p.m. EST')]
['Why The China Hustle is a finance documentary all U.S. investors need to see', (u'By MarketWatch', u'NewsWatch')]
['Trump says no deal for Dreamers, again threatens to end Nafta in Easter tweets', (u'By Mike Murphy', u'April 1, 2018, 4:49 p.m. EST')]

预期答案：

first column = 'Saks, Lord & Taylor data breach may affect 5 million customers'
                'Why The China Hustle is a finance documentary all U.S. investors need to see'
                'Trump says no deal for Dreamers, again threatens to end Nafta in Easter tweets'

second column = 'By Mike Murphy' 
                'By MarketWatch'
                'By Mike Murphy'

third column =  'April 1, 2018, 5:24 p.m. EST'
                'NewsWatch'
                'April 1, 2018, 4:49 p.m. EST'

Answer 1

这个怎么样

next_field<-function(stream) {
  p<-seek(stream)
  d<-readChar(stream,1)
  seek(stream,p)
  if(d=="\"")    
    field<-scan(stream,"",1,sep=",",quote="\"",blank=FALSE)   
  else
    field<-scan(stream,"",1,sep=",",quote="",blank=FALSE)
  return(field)
}


s<-file("C:/your_path_here/sample.csv",open="rt")
header<-readLines(s,1)
header<-scan(what="",text=header,sep=",")
line<-replicate(length(header),next_field(s))

setNames(as.data.frame(lapply(line,type.convert)),header)