"Failed to connect to "url" port 80: Timed Out" in R, how can I solve?

I'm trying to test this code:

library(XML)
library(RCurl)

url <- "http://ift.tt/tCQg8M"
urldata <- getURL(url)

When I press enter, the R returns:

Failed to connect to en.wikipedia.org port 80: Timed out

How can I solve this?