将包含多行的推文文本导出到csv

Question

我是一名编程和R新秀，我对以下问题感到不满。我已经研究了很多，但无法找到答案。

1）我正在使用twitteR来监控一些主题标签。

2）我已经下载了我需要的主题标签，然后将其加载到数据帧中，这正是我所需要的。行。

tws <- searchTwitter(searchString = ("lula"),
                   n=1000,since="2017-07-03",retryOnRateLimit = 180) 

df <- do.call("rbind", lapply(tws, as.data.frame)) #make dataframe

即使我要求列的第一个结果，一切看起来都很正常。

 [1] "RT @o_antagonista: 2018 sem Lula > http/t.co/bedmpbwTnK http/t.co/yquxN7YdRN"                                                                                                                                                   
 [2] "RT @leoguime: Lula preso por 9 anos:\né réu primário: -3 \né idoso: -3\ntem bons antecedentes: -3\ntem doença grave: -4\n\nLula presidente +4 anos"                                                                                      
 [3] "@ChefPaImirinho @Mary_Mayah @Barella_SFC @alessandrosimas @AliceElenDutra3 @AriSirius @VazaTemer @maulroou… httpco/F1xl5WhZQ2"                                                                                                     
 [4] "Se eu fosse o Lula já estaria me batendo todo."                                                                                                                                                                                          
 [5] "RT @czmartins: No caso da sentença dada contra Lula não houve qualquer rastreamento de valores. Certa de que jamais existiu, a defesa fez o…"                                                                                            
 [6] "RT @AnaVilarino1: BBC diz que \"condenação de Lula visa disputa eleitoral de 2018\". \n\nSó brasileiro cheio de ódio pelo PT acredita neste jui…"                                                                                        
 [7] "RT @HunterGhostri: Olha, Lula, em geral é assim que funcionam os TCCs htt.co/dXDTimc9sM"                                                                                                                                           
 [8] "RT @blogdojefferson: Lula institucionalizou a corrupção, fez da distribuição de propinas uma política de Estado. Está pagando o preço de su…"                                                                                            
 [9] "RT @egocarioca: O Lula tem 9 dedos e meio? htcFFmbGfwgN2"                                                                                                                                                                                      

 [10] "RT @minc_rj: Sem Republica: Impeachment sem crime. Temer presidente sem voto. Aécio solto sem pleno STF. Maia cotado sem voto. Lula condena…"   

3）但是，当我将此数据框导出到csv文件并试图进入Excel时，会出现一些问题。

#write to csv file (or your RODBC code)
write.table(df, file = "testlula.csv", sep = ";", col.names =TRUE, row.names =TRUE,eol = "\r\n",
        qmethod = "double")

4）第一列中带有文本的某些单元格在csv文件中被拆分为两行或更多行，具体取决于如何写入推文。

5）当我处理大数据帧时，我无法手动执行此操作

这似乎很容易解决，但我无法在网络上找到类似的主题，所以如果有人可以帮我解决这个问题。