R で "}" を読み込ませたい

Question

R でスクレイピングをするために URL 操作をしたいのです。
以下がコードです。

library(RSelenium)
library(rvest)
library(XML)

remDr = remoteDriver(remoteServerAddr = "localhost", port = 4444, browserName = "chrome")
remDr$open()

iterater <- 1
max_page <- 3
patent_linkDF <-data.frame('', '')
sleep <- 3

url <- 'https://jglobal.jst.go.jp/search/patents#{"category":"3","keyword":"農薬"}'
remDr$navigate(url)
planeHtmlList <- remDr$getPageSource()
fileNmae <- paste(formatC(iterater, width = 5, flag = 0), ".html", sep = "")
write(unlist(planeHtmlList), fileNmae)

path <- paste(getwd(), fileNmae, sep = "/")
html <- read_html(path)
parsed_doc <- htmlParse(html)
title <- xpathSApply(doc = parsed_doc , path = "//a[@href]", xmlValue)
link <- xpathSApply(doc = parsed_doc , path = "//a[@href]", xmlGetAttr, "href")
tempDF <- data.frame(title, link)
patent_linkDF <- tempDF[-c(1,2, nrow(tempDF)), ]
iterater <- iterater + 1
Sys.sleep(sleep)

while(iterater <=  max_page){
	url <- paste('https://jglobal.jst.go.jp/search/patents#{"category":"3","keyword":"農薬","page":', iterater, "}", sep='')			remDr$navigate(url)
	planeHtmlList <- remDr$getPageSource()
	fileNmae <- paste(formatC(iterater, width = 5, flag = 0), ".html", sep = "")
	write(unlist(planeHtmlList), fileNmae)

	path <- paste(getwd(), fileNmae, sep = "/")
	html <- read_html(path)
	parsed_doc <- htmlParse(html)
	title <- xpathSApply(doc = parsed_doc , path = "//a[@href]", xmlValue)
	link <- xpathSApply(doc = parsed_doc , path = "//a[@href]", xmlGetAttr, "href")
	tempDF <- data.frame(title, link)
	patent_page_linkDF <- tempDF[-c(1,2, nrow(tempDF)), ]
	patent_linkDF <- rbind(patent_linkDF, tempDF);
	iterater <- iterater + 1
	Sys.sleep(sleep)
}
 
 
write.csv(patent_linkDF, "patent_link.csv")


	

以下がエラー内容です。

エラー:  予想外の '}' です  in "}"

調べてみたところクオーテーション内はそれぞれsyntax checkが入るので}が閉じていないので怒られているらしいのですが回避方法がわかりません。
回避方法がわかる方がいらっしゃいましたらご教示ください。

Comments

[KojiDoi]

試してみましたがエラーが再現しません。どこかに誤字脱字の類があるんじゃないですか？

[退会済みユーザー]

全文を追加しました。
for 文外ではエラーにならないのですが、for 分内では以下のエラーが出てしまいます。
`エラー: 予想外の '}' です in "}"`

[KojiDoi]

for 分内とはどこですか？

[退会済みユーザー]

失礼しました。

while内です。

Answer 1

remDr$navigate(url)の前に改行が正しく入っていません。

Comments

[退会済みユーザー]

エディタの影響でいい感じに気づきませんでした。
ありがとうございます。