大括号在while函数中无法识别？ （MAC上的R）

Question

我正在尝试使用循环进行一些Web爬取，但是在我的代码中找不到错误。我得到的结果非常好，但是由于花括号似乎是错误的，因此循环不会再次开始...

我的代码：

bereichnummer <- 10
downloadcounter <- 1

while (bereichnummer < 39) {
bereichlink <- ".basecontent-pbsbw---table:nth-child(12) i"
bereichnummer <- 10
bereichlink <-gsub(12, bereichnummer,bereichlink)
bereich <- html_nodes(webpage, bereichlink)
bereich <- gsub("<i>","", html_nodes(webpage, bereichlink))
bereich <- gsub("</i>","",bereich)

  if ((s% %% 2) != 0) {  
  kompetenzlink <- ".basecontent-pbsbw---table:nth-child(10) .even td:nth-child(1) div"
    } else {
  kompetenzlink <- gsub(".even", "odd", ".basecontent-pbsbw---table:nth-child(10) .even td:nth-child(1) div")
    }

kompetenzlink <- gsub(10, bereichnummer, kompetenzlink)

downloads <- webpage %>% html_nodes("thead+ tbody a") %>% html_attr("href")
filename <- paste(bereich, "_")
filename <- paste(filename, kompetenz)
filename <- paste(filename, ".pdf")
filename <- paste("BFS_BEJ_", filename)
filename <- gsub("[[:blank:]]","",filename)
filename

download <- webpage %>% html_node(downloads[downloadcounter]) %>% html_attr("href")
downloadpath <- paste("https://Ls-bw.de",download, sep = "")
downloadpath

bereichnummer <- bereichnummer + 2 
downloadcounter <- downloadcounter + 1
}

  

错误：“}”中出现意外的'}'

这意味着代码中最多包含一个}（更具体地说，末尾有一个），对吗？但是我只使用了3次。

while（）{}一次，if（）{}一次，else {}一次。

Answer 1

您的问题在这里：

if ((s% %% 2) != 0) {

'％'个字符过多。也许您是说：if ((s%%2) != 0) {