JS/jquery code with R

Question

を含むスクラップウェブサイトthis websiteからハイパーリンクを抽出したいのですが、それはデンマーク語では怖いことはありません。ハイパーリンクは右側（v15、v14、v13など）[example]にあります。 私が何らかの理由で掻き取ろうとするウェブサイトは、jquery/javascriptの検索結果を使用しています。これは私のに非常に基づいている HTMLの限られた知識と間違っている可能性があります。

私は（私は「rvest」-packageを使用）、この事実を実行するには、次のコードができなくなります考える

：

sdslink="http://karakterstatistik.stads.ku.dk/#searchText=&term=&block=&institute=null&faculty=&searchingCourses=true&page=1" 
s_link = recs %>% 
read_html(encoding = "UTF-8") %>% 
html_nodes("#searchResults a") %>% 
html_attr("href") 

私は動作しますが、それは使って手動でページをダウンロードするために私を必要とする方法を発見しました"右クリック" +各ページの "名前を付けて保存"。しかし、これはハイパーリンクのために合計100ページを削りたいので、実現不可能です。

私はhttrrと組み合わせたjsonliteパッケージを使用しようとしましたが、正しい.jsonファイルを見つけることができません。

jsonliteを動作させ、「別名で保存」ソリューションまたは3番目に巧妙なパスを自動化するソリューションがあれば幸いです。

Answer 1

1つのアプローチは、RSeleniumを使用することです。ここにあなたを始めるための簡単なコードがあります。私はあなたがすでにRSeleniumとwebdriverをインストールしていると仮定します。興味のあるあなたのサイトに移動します。

webElem <- remDr$findElement("name", "submit") 
webElem$clickElement() 

保存最初の5ページ：それがあった助けのため

html_source <- vector("list", 5) 
i <- 1 
while (i <= 5) { 
    html_source[[i]] <- remDr$getPageSource() 
    webElem <- remDr$findElement("id", "next") 
    webElem$clickElement() 
    Sys.sleep(2) 
    i <- i + 1 
} 
remDr$close()