「r<-函数」持续尝试下载 GitHub 包

有时候 GitHub 网络莫名奇妙网不好，也可以是本地防火墙什么的有限制，上面的包下载不下来，因此无法安装。这种情况有时候重试几次可能就成功，但每次手动重复真的很费劲，下面的函数可以用于持续尝试下载。稍微修改下也可以使用于 CRAN、Bioconductor 包。

loopInstall = function(pkg) {
  Sys.sleep(1)
  tryCatch(
   {
     message("=> Try installing ", pkg)
     remotes::install_github(pkg)
   },
    error = function(e) {
      loopInstall(pkg)
    }
  )
}