# Using url_parse
domain_name <- url_parse("http://en.wikipedia.org")$domain
suffix_extract(domain_name)
# Using domain()
domain_name <- domain("http://en.wikipedia.org")
suffix_extract(domain_name)
#Using internal parsing
suffix_extract("http://en.wikipedia.org")
Run the code above in your browser using DataCamp Workspace