Question

我想获得两页的24个摘要，但最后一页只有一个摘要。

我可以获得一页的12个摘要，但不能获得两页的24个摘要。

我认为问题与下一步的texts = c（）的位置有关。

 res0 = 'https://epubs.siam.org/toc/smjmap/38/'
 texts = c()

 for(i in 1:2) {
 ress = read_html(paste0(res0, i, sep="")) 

   urls = ress %>% 
   html_nodes('a.ref.nowrap') %>% 
   html_attr('href') %>% 
   unique()

   urls = urls[str_detect(urls, 'abs')]


  for(url in urls){
   rest = read_html(paste0('https://epubs.siam.org', url))
  text = rest %>% 
  html_node('div.abstractSection') %>% 
  html_text()
 texts = c(texts, text)
  }
  }

我只有最后一页的最后摘要。

text [1]“在大活化能的极限下，燃烧率M与Damköhler数D的响应曲线重新检查了燃料和单推进剂的液滴。为简化起见，现有文献假定给出了表面温度T_s和常数，但是这里考虑了实际的表面平衡（用克劳修斯-克拉珀龙关系表示）。当D通过液滴的半径变化时，通过简单的规则就可以将其与恒定T_s的可能性相关联，只有单调和S可能会出现C形曲线，与T_s常数的C形曲线没有对应关系，S形响应对点火和消光条件进行了显式校正，但当D随环境压力变化时，恒定的T_s没有提供指导。给出了预期的全新响应的概述。“

如何获得2页的24个摘要，而不是最后一页的最后一个摘要？

0 个答案: