求助R语言批量抓取

想批量抓取帖子内容，先把帖子超链接下载下来构造了一个向量，但是后面的循环不会写，求救

urlparty="http://dangjian.people.com.cn/n1/2019/0920/c117092-31363966.html"

list = read_html(urlparty) %>%
  html_nodes(".show_text a")%>%
  html_attr("href")

vector1 = c(list)

content = read_html(vector1)%>%

for (url in vector1){
  read_html(url)%>%html_nodes(".show_text p")%>%html_text()
}

read_html(content) %>%
  html_nodes(".show_text p") %>%
  html_text() %>%
  str_c(collapse = "") %>%
  str_remove_all("\t")