structure(list(method = "GET", url = "/collections?op=stat&lpath=%2FtempZone%2Fhome%2Frods%2Ftestthat", status_code = 200L, headers = structure(list(Server = "irods_http_api/0.2.0 (8da6c5794f04edab1290e429a0d1676e4452dd5c)", `Content-Type` = "application/json", `Content-Length` = "209", Date = ""), class = "httr2_headers"), body = charToRaw("{\"inheritance_enabled\":false,\"irods_response\":{\"status_code\":0},\"modified_at\":\"\",\"permissions\":[{\"name\":\"rods\",\"perm\":\"own\",\"type\":\"rodsadmin\",\"zone\":\"tempZone\"}],\"registered\":true,\"type\":\"collection\"}"), request = structure(list(url = "http://localhost:9001/irods-http-api/0.2.0/collections?op=stat&lpath=%2FtempZone%2Fhome%2Frods%2Ftestthat", 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")