如果脱机运行,CRAN示例将失败(与外部API对话)

是的,有。如果你已经使用了 curl has_internet() :

> curl::has_internet() 
[1] TRUE
>

gtrendsR 很明显,如果没有连接的话,谷歌很难进行查询。。。考虑到这一点,我意识到我也在自己的实用程序包中实现了自己的测试 dang

> dang::isConnected()
[1] TRUE
> 

哪一个 does not depend on any other packages 因此,您可以复制它(并始终感谢署名):

isConnected <- function(site="https://www.google.com") {
    uoc <- function(site) {
        con <- url(site)                # need to assign so that we can close
        open(con)                       # in case of success we have a connection
        close(con)                      # ... so we need to clean up
    }
    suppressWarnings(!inherits(try(uoc(site), silent=TRUE), "try-error"))
}