Hız sınırı uygulanmış fonksiyonlar için özel argümanlar

Sağdaki konsolda aşağıdaki kodu çalıştır:

throttled_read_html <- slowly(~ read_html("https://wikipedia.org"),
                    rate = rate_delay(0.5))

for(i in c(1, 2, 3)){
  throttled_read_html("https://google.com") %>% 
      html_element("title") %>% 
      html_text() %>%
    print()
}       

Neden "Google" yerine üç kez "Wikipedia" yazdırıyor?