Curl Header Overflow for Large Distance Matrices about osrm

[rCarto]

Thank you.
I'm not sure about how to pass this option to curl::handle_setopt(). Do you have an example?

[SebKrantz]

osrmTable <- function (src, dst = src, loc, exclude, measure = "duration", 
    osrm.server = getOption("osrm.server"), osrm.profile = getOption("osrm.profile"), ...) 
{
    opt <- options(error = NULL)
    on.exit(options(opt), add = TRUE)
    url <- base_url(osrm.server, osrm.profile, "table")
    if (!missing(loc)) {
        loc <- input_table(x = loc, id = "loc")
        dst_r <- src_r <- loc
        url <- paste0(url, encode_coords(x = loc, osrm.server = osrm.server), 
            "?")
    }
    else {
        src_r <- input_table(x = src, id = "src")
        dst_r <- input_table(x = dst, id = "dst")
        loc <- rbind(src_r, dst_r)
        url <- paste0(url, encode_coords(x = loc, osrm.server), 
            paste0("?sources=", paste(0:(nrow(src_r) - 1), collapse = ";"), 
                "&destinations=", paste(nrow(src_r):(nrow(loc) - 
                  1), collapse = ";")), "&")
    }
    if (!missing(exclude)) {
        url <- paste0(url, "exclude=", exclude, "&")
    }
    url <- paste0(url, "annotations=", paste0(measure, collapse = ","), 
        "&generate_hints=false")
    e <- try({
        req_handle <- curl::new_handle(verbose = FALSE)
        curl::handle_setopt(req_handle, useragent = "osrm_R_package", ...)
        r <- curl::curl_fetch_memory(utils::URLencode(url), handle = req_handle)
    }, silent = TRUE)
    if (inherits(e, "try-error")) {
        stop(e, call. = FALSE)
    }
    test_http_error(r)
    res <- RcppSimdJson::fparse(rawToChar(r$content))
    output <- list()
    if (!is.null(res$durations)) {
        output$durations <- tab_format(res = res, src = src_r, 
            dst = dst_r, type = "duration")
    }
    if (!is.null(res$distances)) {
        output$distances <- tab_format(res = res, src = src_r, 
            dst = dst_r, type = "distance")
    }
    coords <- coord_format(res = res, src = src_r, dst = dst_r)
    output$sources <- coords$sources
    output$destinations <- coords$destinations
    return(output)
}

[rCarto]

Ah ah, no I know how to pass the ellipsis 😄 .
Sorry I wasn't clear, what I meant was that I don't know how to pass the "CURL_MAX_HTTP_HEADER" option to curl. I haven't seen an example of this and I'm not sure if this parameter is exposed through curl::handle_setopt().