structure(list(method = "GET", url = "/query?op=execute_genquery&query=select%20COLL_NAME%2C%20DATA_NAME%2C%20META_DATA_ATTR_NAME%2C%20META_DATA_ATTR_VALUE%2C%20META_DATA_ATTR_UNITS%20where%20COLL_NAME%20%3D%20%27%2FtempZone%2Fhome%2Frods%2Ftestthat%27&offset=0&count=15&case-sensitive=1&distinct=1&parser=genquery1&sql-only=0&zone=tempZone", 
    status_code = 200L, headers = structure(list(Server = "irods_http_api/0.2.0 (8da6c5794f04edab1290e429a0d1676e4452dd5c)", 
        `Content-Type` = "application/json", `Content-Length` = "170", 
        Date = ""), class = "httr2_headers"), body = charToRaw("{\"irods_response\":{\"status_code\":0},\"rows\":[[\"/tempZone/home/rods/testthat\",\"dfr.csv\",\"foo\",\"bar\",\"baz\"],[\"/tempZone/home/rods/testthat\",\"dfr.csv\",\"foo2\",\"bar2\",\"baz2\"]]}"), 
    request = structure(list(url = "http://localhost:9001/irods-http-api/0.2.0/query?op=execute_genquery&query=select%20COLL_NAME%2C%20DATA_NAME%2C%20META_DATA_ATTR_NAME%2C%20META_DATA_ATTR_VALUE%2C%20META_DATA_ATTR_UNITS%20where%20COLL_NAME%20%3D%20%27%2FtempZone%2Fhome%2Frods%2Ftestthat%27&offset=0&count=15&case-sensitive=1&distinct=1&parser=genquery1&sql-only=0&zone=tempZone", 
        method = "GET", headers = structure(list(Authorization = ""), redact = "Authorization"), 
        body = NULL, fields = list(), options = list(), policies = list(
            retry_max_tries = 3, retry_is_transient = structure(function (..., 
                .x = ..1, .y = ..2, . = ..1) 
            httr2::resp_status(.x) %in% c(429, 503), class = c("rlang_lambda_function", 
            "function")), error_body = function (resp) 
            {
                if (httr2::resp_status(resp) >= 500 && httr2::resp_status(resp) < 
                  600) {
                  irods_message <- try(httr2::resp_body_json(resp, 
                    check_type = TRUE)$error_message, silent = TRUE)
                  paste0(ifelse(inherits(irods_message, "try-error"), 
                    "", irods_message), "The iRODS server might be malconfigured.")
                }
                else if (length(resp$body) != 0) {
                  resp <- unlist(httr2::resp_body_json(resp, 
                    check_type = FALSE))
                  paste(names(resp), vapply(resp, as.character, 
                    character(1)), sep = ": ")
                }
                else {
                  "This is likely a malformed HTTP request."
                }
            })), class = "httr2_request"), cache = new.env(parent = emptyenv())), class = "httr2_response")