Custom arguments for throttled functions

Execute the following code in the console on the right:

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_node("title") %>% 
      html_text() %>%
    print()
}

Why does it print "Wikipedia" three times rather than "Google"?

Possible Answers

Because slowly() only works with httr functions.
Because the specified delay is less than a second.
Because throttled_read_html is hard-wired to "https://wikipedia.org".
Because "title" is not the correct CSS selector to extract a page's title.