R 将值 [I] 分配给循环中的列

Question

我正在将多个讨论板刮成 dataframe，并且需要一个名为“boardNames”的列，其中分配了每个讨论板的名称。 function 循环遍历包含名为“boardList”的 URL 的命名列表，我想将 URL 的键（名称）拉到每行的 boardNames 列中。

以下代码完美运行，直到boardNames <- names(boardList)[i]

# run function over URL list
for (i in boardList) {
  remDr$navigate(i)
  for (i in 1:20) {
    webElem <- remDr$findElement("css", "body")
    webElem$sendKeysToElement(list(key = 'end'))
  }
  # fetch the catalog html and parse elements
  soup <- remDr$getPageSource()
  soup <- xml2::read_html(soup[[1]])
  data <- soup %>% 
    html_nodes('.thread') %>% 
    map_df(~list(title = html_nodes(.x, 'div.teaser > b') %>% 
                   html_text() %>% 
                   {if(length(.) == 0) NA else .},
                 firstPost = html_nodes(.x, 'div.teaser') %>%
                   html_text() %>% 
                   {if(length(.) == 0)NA else .},
                 replies = html_nodes(.x, 'div.meta > b:nth-child(1)') %>% 
                   html_text() %>% 
                   {if(length(.) == 0) NA else .},
                 images = html_nodes(.x, 'div.meta > b:nth-child(2)') %>%
                   html_text() %>% 
                   {if(length(.) == 0) '0'  else .}))
  #tidy dataset
  data$'time' <- Sys.time()
  data$'boardName' <- names(boardList)[i]
    
}

这是拼图的最后一块。 任何帮助表示赞赏。

干杯!