R/download.R

In YuLab-SMU/yulab.utils: Supporting Functions for Packages Maintained by 'YuLab-SMU'

mydownload <- function(url, destfile) {
    if (is.installed('httr2')) {    
        req <- httr2::request(url) |> 
            httr2::req_progress()
        
        req |> httr2::req_perform(path = destfile)
    } else {
        download.file(url = url, destfile = destfile)
    }
}