在向量中组合字符串

Question

第一次发帖。我希望你原谅我可能犯的任何错误。

我必须从今日美国获取数据。 得到所有段落后，我有点卡住了，因为我需要将17段放入1段文本中，这样我才能导出到.txt。 非常感谢帮助

USATodayURL <- 'https://www.usatoday.com/story/news/2018/04/05/youtube-shooter-legally-bought-handgun-reloaded-least-once-during-attack-police-say/490969002/'

text_USAToday <- 
  USATodayURL %>% 
  read_html() %>%
  html_nodes('.p-text') %>% 
  html_text()
text_USAToday

Answer 1

只需使用paste：

write(paste(text_USAToday, collapse="\n"), file = "usa.txt")

参数collapse="\n"告诉paste在元素之间插入换行符。