test for internect connection via reading lines from a URL
has_internet(site = "https://www.baidu.com/")
site
URL to test connection
logical value
Guangchuang Yu