library(XML)
library(RCurl)
## Loading required package: bitops
link = "https://en.wikipedia.org/wiki/World_Happiness_Report" 

wikiLinkContents=getURL(link)
wikiTables=readHTMLTable(wikiLinkContents,stringsAsFactors=FALSE)
data=as.data.frame(wikiTables[5])
head(data)