Aktywne Wpisy
snickers111a +879
Japierdyle, wczoraj odkryłem że różowa mnie zdradza i innemu typowi pisze że go kocha. Po 4 latach związku i mieszkania razem. Różowa przyszła do mnie zapłakana jaj jej pokazałem dowód i obiecała że zerwie z typem kontakt a że to przez gorszy okres w naszym związku. I po tym powiedziała że jedzie do rodzinnego domu. Wiecie co? Pojechałem pierwszym pociągiem pod jej rodzinny dom i nie zgadniecie XD jej auta tam nie
wezsepigulke +613
Bry wieczór.
Scrapera w R sobie piszę, i mam problem z pętlą for, która przekaże wartość do linku.
Za pierwszym razem powinno pójść 1, a później wielokrotność counter (251, 501, 751, itd).
Chcę ściągnąć dane ze strony IMDB.
Link wyglada tak:
https://www.imdb.com/search/title/?title_type=feature&release_date=,2018-12-31&count=250&start=1
count - ile filmów pojawi się na stronie (wartości to 50, 100, 250)
start - od którego numeru ma się wyświetlić
Czyli podstawowy link podany wyżej wyświetla listę od 1. do 250.
Jak napisać pętlę, która będzie aktualizowała wartość start o 250 (251, 501, 751, itd)
Napisałem coś takiego:
#instalacja i ladowanie rverst
install.packages("rvest")
install.packages("RSelenium")
library(rvest)
library(RSelenium)
#otwarcie przegladarki (w moim przypadku Firefox)
rD <- rsDriver(browser=c("firefox"))
remDr <- rD[["client"]]
counter=250
for (j in 1){
j<-j+counter
#otworzenie strony w przegladarce
newURL<-"https://www.imdb.com/search/title/?title_type=feature&release_date=,2018-12-31&count=250&start="
startNumberURL<-paste0(newURL,j)
remDr$navigate(startNumberURL)
#odczytanie kodu strony
stronaint<-readhtml(startNumberURL)
#odczytanie sekcji z rankingiem
rankdata<-htmlnodes(stronaint,'.text-primary')
#konwersja rankingu na text
rankdata<-htmltext(rankdata)
#konwersja na numeric
rankdata<-as.numeric(rankdata)
}
#zamkniecie przegladarki
remDr$close()
#zatrzymanie serwera
rD[["server"]]$stop()
Nie mam pojęcia jak to napisać. Będę bardzo wdzięczny za pomoc.