From 35bb00095f7ebfb235424ea1ea69037519944751 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sun, 2 Apr 2023 23:29:05 +0200
Subject: [PATCH 01/46] Builder: GH releases + GHCR helper functions

---
 DESCRIPTION     |   1 +
 R/builder.R     |  43 +++++++
 R/gh-releases.R | 205 +++++++++++++++++++++++++++++++
 R/ghcr.R        | 320 ++++++++++++++++++++++++++++++++++++++++++++++++
 R/iso-date.R    | 144 ++++++++++++++++++++++
 5 files changed, 713 insertions(+)
 create mode 100644 R/builder.R
 create mode 100644 R/gh-releases.R
 create mode 100644 R/ghcr.R
 create mode 100644 R/iso-date.R

diff --git a/DESCRIPTION b/DESCRIPTION
index ae793c4a..0dbc1411 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -42,6 +42,7 @@ Suggests:
     debugme,
     fansi,
     fs,
+    gitcreds,
     htmlwidgets,
     mockery,
     pak,
diff --git a/R/builder.R b/R/builder.R
new file mode 100644
index 00000000..9b775a71
--- /dev/null
+++ b/R/builder.R
@@ -0,0 +1,43 @@
+
+pkg_build <- function(pkg, library = .libPaths()[1]) {
+  pkgdir <- file.path(library, pkg)
+  if (!dir.exists(pkgdir)) {
+    throw(pkg_error(
+      "Cannot find package {.pkg {pkg}} in library at {.path {library}}."
+    ))
+  }
+  version <- desc::desc_get_field("Version", file = pkgdir)
+  rversion <- get_minor_r_version(getRversion())
+  platform <- pkgcache::current_r_platform()
+
+  sys <- sysname()
+  if (sys == "windows") {
+    install_md5_sums(pkg)
+    fn <- paste0(pkg, "_", "R", rversion, "_", version, ".zip")
+    zip::zip(fn, pkgdir, mode = "cherry-pick")
+
+  } else {
+    ext <- if (sys == "mac") ".tgz" else ".tar.gz"
+    fn <- paste0(pkg, "_", platform, "_", "R", rversion, "_", version, ext)
+    ffn <- file.path(normalizePath("."), fn)
+    old <- getwd()
+    on.exit(setwd(old), add = TRUE)
+    setwd(dirname(pkgdir))
+    utils::tar(ffn, pkg, compression = "gzip", compression_level = 9)
+  }
+
+  fn
+}
+
+install_md5_sums <- function(pkgdir) {
+  old <- getwd()
+  on.exit(setwd(old), add = TRUE)
+
+  setwd(pkgdir)
+  fns <- setdiff(dir(".", recursive = TRUE), "MD5")
+  md5 <- cli::hash_file_md5(fns)
+  writeLines(
+    paste0(md5, " *", fns),
+    "MD5"
+  )
+}
diff --git a/R/gh-releases.R b/R/gh-releases.R
new file mode 100644
index 00000000..7df22f9d
--- /dev/null
+++ b/R/gh-releases.R
@@ -0,0 +1,205 @@
+
+# -------------------------------------------------------------------------
+
+ghr_list <- function(repo) {
+  synchronize(async_ghr_list(repo))
+}
+
+async_ghr_list <- function(repo) {
+  repo <- parse_slug(repo)
+  query <- glue("{
+    rateLimit {
+      cost
+      remaining
+    }
+    repository(owner: \"<repo$user>\", name: \"<repo$repo>\") {
+      releases(last: 100) {
+        nodes {
+          id
+          name
+          createdAt
+          tagName
+        }
+      }
+    }
+  }", .open = "<", .close = ">")
+
+  github_query(query)$
+    then(function(resp) {
+      rls <- resp$obj$data$repository$releases$nodes
+      browser()
+      data_frame(
+        id = vcapply(rls, "[[", "id"),
+        name = vcapply(rls, "[[", "name"),
+        tag_name = vcapply(rls, "[[", "tagName"),
+        created_at = parse_iso_8601(vcapply(rls, "[[", "createdAt"))
+      )
+    })
+}
+
+# -------------------------------------------------------------------------
+
+ghr_get <- function(repo, tag) {
+  synchronize(async_ghr_get(repo, tag))
+}
+
+async_ghr_get <- function(repo, tag) {
+  prepo <- parse_slug(repo)
+  ep <- glue("/repos/{prepo$owner}/{prepo$repo}/releases/tags/{tag}")
+  async_github_v3_query(ep)$
+    then(function(resp) {
+      jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
+    })
+}
+
+# -------------------------------------------------------------------------
+
+ghr_list_assets <- function(repo, tag) {
+  synchronize(async_ghr_list_assets(repo, tag))
+}
+
+async_ghr_list_assets <- function(repo, tag) {
+
+  repo <- parse_slug(repo)
+  query <- glue("{
+    rateLimit {
+      cost
+      remaining
+    }
+    repository(owner: \"<repo$user>\", name: \"<repo$repo>\") {
+      release(tagName: \"<tag>\") {
+        releaseAssets(last: 100) {
+          nodes {
+            id
+            name
+            downloadUrl
+            size
+            createdAt
+            updatedAt
+            contentType
+          }
+        }
+      }
+    }
+  }", .open = "<", .close = ">")
+
+  github_query(query)$
+    then(function(resp) {
+      asts <- resp$obj$data$repository$release$releaseAssets$nodes
+      data_frame(
+        id = vcapply(asts, "[[", "id"),
+        name = vcapply(asts, "[[", "name"),
+        download_url = vcapply(asts, "[[", "downloadUrl"),
+        size = viapply(asts, "[[", "size"),
+        created_at = parse_iso_8601(vcapply(asts, "[[", "createdAt")),
+        updated_at = parse_iso_8601(vcapply(asts, "[[", "updatedAt")),
+        content_type = vcapply(asts, "[[", "contentType")
+      )
+    })
+}
+
+# -------------------------------------------------------------------------
+
+ghr_add_asset <- function(repo, file, tag, name = basename(file)) {
+  invisible(synchronize(async_ghr_add_asset(repo, file, tag, name)))
+}
+
+async_ghr_add_asset <- function(repo, file, tag,
+                                name = basename(file)) {
+
+  repo; file; tag; name
+
+  async_ghr_get(repo, tag)$
+    catch(async_http_404 = function(err) {
+      async_ghr_create(repo, tag)
+    })$
+    then(function(rel) rel$upload_url)$
+    then(function(upload_url) {
+      upload_url <- sub("[{].*[}]", "", upload_url)
+      prepo <- parse_slug(repo)
+      async_github_v3_query(
+        url = upload_url,
+        endpoint = "",
+        query = c(name = name),
+        method = "POST",
+        headers = c("Content-Type" = "application/octet-stream"),
+        file = file
+      )
+    })$
+    then(function(resp) {
+      jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
+    })
+}
+
+# -------------------------------------------------------------------------
+
+ghr_create <- function(repo, tag) {
+  invisible(synchronize(async_ghr_create(repo, tag)))
+}
+
+async_ghr_create <- function(repo, tag, description = "", draft = FALSE,
+                             prerelease = FALSE,
+                             generate_release_notes = FALSE) {
+  prepo <- parse_slug(repo)
+  ep <- glue("/repos/{prepo$owner}/{prepo$repo}/releases")
+  data <- toJSON(list(
+    tag_name = tag,
+    name = paste0(prepo$repo, " ", tag),
+    body = description,
+    draft = draft,
+    prerelease = prerelease,
+    generate_release_notes = generate_release_notes
+  ), auto_unbox = TRUE)
+
+  async_github_v3_query(
+    ep,
+    data = data,
+    method = "POST"
+  )$
+  then(function(resp) {
+    jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
+  })
+}
+
+# -------------------------------------------------------------------------
+
+parse_slug <- function(slug) {
+  parts <- strsplit(slug, "/", fixed = TRUE)[[1]]
+  list(user = parts[1], owner = parts[1], repo = parts[2])
+}
+
+async_github_v3_query <- function(endpoint, query = NULL,
+                                  method = c("GET", "POST"),
+                                  headers = NULL,
+                                  data = NULL,
+                                  file = NULL,
+                                  url = NULL) {
+  method <- match.arg(method)
+
+  headers <- update_named_vector(type_github_get_headers(), headers)
+
+  base <- url %||% Sys.getenv("R_PKG_GITHUB_API_URL", "https://api.github.com")
+  query_str <- paste(
+    glue("{curl::curl_escape(names(query))}={curl::curl_escape(query)}"),
+    collapse = "&"
+  )
+  url <- paste0(base, endpoint, "?", query_str)
+
+  px <- if (method == "GET") {
+    http_get(url, headers = headers)
+
+  } else if (method == "POST") {
+    if (is.null(data) + is.null(file) != 1) {
+      throw(pkg_error(
+        "Must specify exactly of {.arg data} and {.arg file} for POST requests."
+      ))
+    }
+    if (is.null(data)) data <- readBin(file, "raw", file.size(file))
+    http_post(url, data, headers = headers)
+  }
+
+  px$
+    then(http_stop_for_status)
+}
+
+# github_query() is in type-github.R
diff --git a/R/ghcr.R b/R/ghcr.R
new file mode 100644
index 00000000..98c6cfce
--- /dev/null
+++ b/R/ghcr.R
@@ -0,0 +1,320 @@
+
+ghcr_const_annotations <- list(
+  com.github.package.type = "r_package"
+#  org.opencontainers.image.authors = "Gabor Csardi",
+#  org.opencontainers.image.url = "https://github.com/r-lib/pak",
+#  org.opencontainers.image.documentation = "https://pak.r-lib.org/",
+#  org.opencontainers.image.source = "https://github.com/r-lib/pak",
+#  org.opencontainers.image.title = "pak R package",
+#  org.opencontainers.image.description = "Package manager for R",
+#  org.opencontainers.image.licenses = "GPL-3"
+)
+
+ghcr_const_annotations_js <- function() {
+  paste0(
+    glue::glue('"{names(ghcr_const_annotations)}": "{ghcr_const_annotations}"'),
+    collapse = ",\n      "
+  )
+}
+
+ghcr_get_package_data <- function(path) {
+  if (!file.exists(path)) {
+    throw(pkg_error("{.path {path}} does not exist."))
+  }
+
+  plt <- pkgcache::current_r_platform_data()
+  if (plt$os != "linux" && !grepl("^linux-", plt$os)) {
+    throw(pkg_error(
+      "{.fn ghcr_push_package} only works on Linux.",
+      "i" = "It does not work on this platform ({.var {plt$platform}}) yet."
+    ))
+  }
+
+  chain_error(
+    dsc <- desc::desc(path),
+    pkg_error(
+      "Cannot read {.code DESCRIPTION} from {.file {path}}.",
+      "i" = "A valid R package must have a {.code DESCRIPTION} file."
+    )
+  )
+
+  chain_error(
+    built <- dsc$get_built(),
+    pkg_error(
+      "Cannot find {.code Built} field in package at {.file {path}}",
+      "i" = "A binary R package must have a {.code Built} field in
+             {.code DESCRIPTION}."
+    )
+  )
+
+  sha256 <- cli::hash_file_sha256(path)
+  data_frame(
+    path = path,
+    md5 = cli::hash_file_md5(path),
+    sha256 = sha256,
+    digest = paste0("sha256:", sha256),
+    image_title = paste("R package", dsc$get_field("Package")),
+    size = file.size(path),
+    buildtime = format_iso_8601(built$Date),
+    r_version = as.character(built$R),
+    r_platform = built$Platform,
+    package_name = dsc$get_field("Package"),
+    package_version = dsc$get_field("Version"),
+    license = dsc$get_field("License"),
+    arch = ghcr_canonize_arch(built$Platform),
+    os = ghcr_canonize_os(built$Platform)
+  )
+}
+
+ghcr_create_oci_repo <- function(pkgs, repo = NULL, oci_path = NULL,
+                                 cleanup = TRUE) {
+
+  if (nrow(pkgs) > 1) {
+    throw(pkg_error("Multiple package versions are not supported yet."))
+  }
+
+  repo <- repo %||% Sys.getenv("GITHUB_REPOSITORY", NA_character_)
+  if (is.na(repo)) {
+    throw(pkg_error("Cannot detect GitHub repository"))
+  }
+
+  oci_path <- oci_path %||% tempfile()
+  mkdirp(oci_path)
+  blob_path <- file.path(oci_path, "blobs", "sha256")
+  mkdirp(blob_path)
+
+  # Create oci-layout file
+  cat(
+    '{"imageLayoutVersion": "1.0.0"}\n',
+    file = file.path(oci_path, "oci-layout")
+  )
+
+  # Copy package files to blobs
+  file.copy(pkgs$path, file.path(blob_path, pkgs$sha256))
+
+  # Config is dummy now
+  pkgs$image_config <- "{}"
+  pkgs$image_config_hash <- cli::hash_sha256(pkgs$image_config)
+  write_files(pkgs$image_config, file.path(blob_path, pkgs$image_config_hash))
+
+  # Create manifests
+  pkgs$manifest <- ghcr_image_manifest(pkgs)
+  pkgs$manifest_hash <- cli::hash_sha256(pkgs$manifest)
+  write_files(pkgs$manifest, file.path(blob_path, pkgs$manifest_hash))
+
+  # Create index
+  imidx <- ghcr_image_index(pkgs)
+  imidx_hash <- cli::hash_sha256(imidx)
+  write_files(imidx, file.path(blob_path, imidx_hash))
+
+  # index.json
+  idxjs <- jsonlite::prettify(glue::glue(
+    '{
+       "schemaVersion": 2,
+       "manifests": [
+          {
+            "mediaType": "application/vnd.oci.image.index.v1+json",
+            "digest": "sha256:<<imidx_hash>>",
+            "size": <<nchar(imidx, "bytes")>>
+          }
+       ]
+     }', .open = "<<", .close = ">>"
+  ))
+  write_files(idxjs, file.path(oci_path, "index.json"))
+
+  # policy.json
+  policy_file <- file.path(oci_path, "policy.json")
+  policy <- jsonlite::prettify(
+    '{
+       "default": [
+         {
+           "type": "insecureAcceptAnything"
+         }
+       ],
+       "transports":
+         {
+           "docker-daemon":
+             {
+               "": [{"type":"insecureAcceptAnything"}]
+             }
+         }
+     }')
+  write_files(policy, policy_file)
+
+  oci_path
+}
+
+ghcr_uri <- function() {
+  Sys.getenv(
+    "PAK_GHCR_URI",
+    "docker://ghcr.io/r-lib/pak"
+  )
+}
+
+ghcr_user <- function() {
+  Sys.getenv("PAK_GHCR_USER", "gaborcsardi")
+}
+
+ghcr_token <- function() {
+  Sys.getenv("PAK_GHCR_TOKEN", gitcreds::gitcreds_get()$password)
+}
+
+ghcr_push_oci_repo <- function(oci_path, ghcr_tag = NULL) {
+  if (!file.exists(oci_path)) {
+    throw(pkg_error("Could not find OCI repository at {.path {oci_path}}."))
+  }
+  ghcr_tag <- ghcr_tag %||% "TODO"
+
+  skopeo <- check_skopeo()
+  oci_path <- normalizePath(oci_path, winslash = "/")
+  policy_file <- file.path(oci_path, "policy.json")
+  args <- c(
+    "copy",
+    "--all",
+    "--retry-times", 20,
+    "--preserve-digests",
+    "--policy", policy_file,
+    paste0("--dest-creds=", ghcr_user(), ":", ghcr_token()),
+    paste0("oci:", oci_path),
+    paste0(ghcr_uri(), ":", ghcr_tag)
+  )
+  "TODO"
+}
+
+ghcr_canonize_arch <- function(platform) {
+  arch <- strsplit(platform, "-", fixed = TRUE)[[1]][1]
+  c("aarch64" = "arm64", "x86_64" = "amd64")[[arch]]
+}
+
+ghcr_canonize_os <- function(platform) {
+  os <- strsplit(platform, "-", fixed = TRUE)[[1]][3]
+  if (substr(os, 1, 6) == "darwin") os <- "darwin"
+  if (substr(os, 1, 5) == "mingw") os <- "windows"
+  if (substr(os, 1, 7) == "solaris") os <- "solaris"
+  os
+}
+
+ghcr_image_index <- function(pkgs) {
+  tmpl <- '
+    {
+      "mediaType": "application/vnd.oci.image.manifest.v1+json",
+      "digest": "sha256:<<manifest_hash>>",
+      "size": <<nchar(manifest, "bytes")>>,
+      "platform": {
+        "architecture": "<<arch>>",
+        "os": "<<os>>",
+        "os.version": "R <<r_version>>",
+        "r_version": "<<r_version>>",
+        "r_platform": "<<r_platform>>"
+      },
+      "annotations": {
+        "org.opencontainers.image.ref.name": "<<package_version>>--<<r_version>>--<<r_platform>>",
+        "io.r-hub.package.digest": "<<digest>>"
+      }
+    }'
+  mnfts <- glue::glue_data(pkgs, tmpl, .open = "<<", .close = ">>")
+
+  buildtime <- max(pkgs$buildtime)
+  package_name <- unique(package_name)
+  if (length(package_name) != 1) {
+    throw(pkg_error(
+      "Cannot push different packages at the same time.",
+      "i" = "Found packages {.pkg {package_name}}."
+    ))
+  }
+
+  package_version <- unique(pkgs$package_version)
+  if (length(package_version) != 1) {
+    throw(pkg_error(
+      "Non-matching package versions when pushing package {.pkg {package_name}}.",
+      "i" = "All package versions must be the same.",
+      "i" = "Found package versions: {.var {package_version}}."
+    ))
+  }
+
+  tmpl2 <- '
+    {
+      "schemaVersion": 2,
+      "manifests": [
+         <<paste0(mnfts, collapse = ",\n")>>
+      ],
+      "annotations": {
+         <<ghcr_const_annotations_js()>>,
+         "org.opencontainers.image.created": "<<buildtime>>",
+         "org.opencontainers.image.version": "<<package_version>>"
+      }
+    }'
+
+  jsonlite::prettify(glue::glue(tmpl2, .open = "<<", .close = ">>"))
+}
+
+ghcr_image_manifest <- function(pkgs) {
+  tmpl <- '
+    {
+      "schemaVersion": 2,
+      "config": {
+        "mediaType": "application/vnd.oci.image.config.v1+json",
+        "digest": "sha256:<<image_config_hash>>",
+        "size": <<nchar(image_config, "bytes")>>
+      },
+      "layers": [
+        {
+          "mediaType": "application/vnd.oci.image.layer.v1.tar+gzip",
+          "digest": "<<digest>>",
+          "size": <<size>>,
+          "annotations": {
+            "org.opencontainers.image.title": "<<image_title>>"
+          }
+        }
+      ],
+      "annotations": {
+         <<ghcr_const_annotations_js()>>,
+         "org.opencontainers.image.created": "<<buildtime>>",
+         "org.opencontainers.image.version": "<<package_version>>"
+      }
+   }'
+
+  glue::glue_data(pkgs, tmpl, .open = "<<", .close = ">>")
+}
+
+
+write_file <- function(txt, path) {
+  out <- file(path, open = "wb")
+  on.exit(close(out), add = TRUE)
+  cat(txt, file = out, sep = "")
+}
+
+write_files <- function(txts, paths) {
+  invisible(mapply(write_file, txts, paths))
+}
+
+find_skopeo <- function() {
+  path <- Sys.which("skopeo")
+  if (path != "") return(path)
+  if (file.exists(cand <- "/usr/local/bin/skopeo")) return(cand)
+  if (file.exists(cand <- "/opt/homebrew/bin/skopeo")) return(cand)
+  throw(pkg_error("Need skopeo to push packages."))
+}
+
+skopeo_version <- function() {
+  skopeo <- find_skopeo()
+  out <- processx::run(skopeo, "--version")
+  re_ver <- "[ ]([0-9]+[.][0-9]+[.][0-9]+)"
+  if (!grepl(re_ver, out$stdout)) stop("Cannot determine skopeo version")
+  mch <- regexpr(re_ver, out$stdout, perl = TRUE)
+  beg <- attr(mch, "capture.start")[1]
+  end <- beg + attr(mch, "capture.length")[1] - 1L
+  package_version(substr(out$stdout, beg, end))
+}
+
+check_skopeo <- function() {
+  skopeo <- find_skopeo()
+  skopeo_ver <- skopeo_version()
+  if (skopeo_ver < "1.6.0") {
+    throw(pkg_error(
+      "Need at least skopeo 1.6.0 to push packages",
+      "i" = "Found skopeo {.emph {skopoe_ver}} at {.path {skopeo}}."
+    ))
+  }
+  skopeo[[1]]
+}
diff --git a/R/iso-date.R b/R/iso-date.R
new file mode 100644
index 00000000..687af22a
--- /dev/null
+++ b/R/iso-date.R
@@ -0,0 +1,144 @@
+
+milliseconds <- function(x) as.difftime(as.numeric(x) / 1000, units = "secs")
+seconds <- function(x) as.difftime(as.numeric(x), units = "secs")
+minutes <- function(x) as.difftime(as.numeric(x), units = "mins")
+hours <- function(x) as.difftime(as.numeric(x), units = "hours")
+days <- function(x) as.difftime(as.numeric(x), units = "days")
+weeks <- function(x) as.difftime(as.numeric(x), units = "weeks")
+wday <- function(x) as.POSIXlt(x, tz = "UTC")$wday + 1
+with_tz <- function(x, tzone = "") as.POSIXct(as.POSIXlt(x, tz = tzone))
+ymd <- function(x) as.POSIXct(x, format = "%Y %m %d", tz = "UTC")
+yj <- function(x) as.POSIXct(x, format = "%Y %j", tz = "UTC")
+
+parse_iso_8601 <- function(dates, default_tz = "UTC") {
+  if (default_tz == "") default_tz <- Sys.timezone()
+  dates <- as.character(dates)
+  match <- re_match(dates, iso_regex)
+  matching <- !is.na(match$.match)
+  result <- rep(.POSIXct(NA_real_, tz = ""), length.out = length(dates))
+  result[matching] <- parse_iso_parts(match[matching, ], default_tz)
+  class(result) <- c("POSIXct", "POSIXt")
+  with_tz(result, "UTC")
+}
+
+parse_iso_parts <- function(mm, default_tz) {
+
+  num <- nrow(mm)
+
+  ## -----------------------------------------------------------------
+  ## Date first
+
+  date <- .POSIXct(rep(NA_real_, num), tz = "")
+
+  ## Years-days
+  fyd <- is.na(date) & mm$yearday != ""
+  date[fyd] <- yj(paste(mm$year[fyd], mm$yearday[fyd]))
+
+  ## Years-weeks-days
+  fywd <- is.na(date) & mm$week != "" & mm$weekday != ""
+  date[fywd] <- iso_week(mm$year[fywd], mm$week[fywd], mm$weekday[fywd])
+
+  ## Years-weeks
+  fyw <- is.na(date) & mm$week != ""
+  date[fyw] <- iso_week(mm$year[fyw], mm$week[fyw], "1")
+
+  ## Years-months-days
+  fymd <- is.na(date) & mm$month != "" & mm$day != ""
+  date[fymd] <- ymd(paste(mm$year[fymd], mm$month[fymd], mm$day[fymd]))
+
+  ## Years-months
+  fym <- is.na(date) & mm$month != ""
+  date[fym] <- ymd(paste(mm$year[fym], mm$month[fym], "01"))
+
+  ## Years
+  fy <- is.na(date)
+  date[fy] <- ymd(paste(mm$year, "01", "01"))
+
+  ## -----------------------------------------------------------------
+  ## Now the time
+
+  th <- mm$hour != ""
+  date[th] <- date[th] + hours(mm$hour[th])
+
+  tm <- mm$min != ""
+  date[tm] <- date[tm] + minutes(mm$min[tm])
+
+  ts <- mm$sec != ""
+  date[ts] <- date[ts] + seconds(mm$sec[ts])
+
+  ## -----------------------------------------------------------------
+  ## Fractional time
+
+  frac <- as.numeric(sub(",", ".", mm$frac))
+
+  tfs <- !is.na(frac) & mm$sec != ""
+  date[tfs] <- date[tfs] + milliseconds(round(frac[tfs] * 1000))
+
+  tfm <- !is.na(frac) & mm$sec == "" & mm$min != ""
+  sec <- trunc(frac[tfm] * 60)
+  mil <- round((frac[tfm] * 60 - sec) * 1000)
+  date[tfm] <- date[tfm] + seconds(sec) + milliseconds(mil)
+
+  tfh <- !is.na(frac) & mm$sec == "" & mm$min == ""
+  min <- trunc(frac[tfh] * 60)
+  sec <- trunc((frac[tfh] * 60 - min) * 60)
+  mil <- round((((frac[tfh] * 60) - min) * 60 - sec) * 1000)
+  date[tfh] <- date[tfh] + minutes(min) + seconds(sec) + milliseconds(mil)
+
+  ## -----------------------------------------------------------------
+  ## Time zone
+
+  ftzpm <- mm$tzpm != ""
+  m <- ifelse(mm$tzpm[ftzpm] == "+", -1, 1)
+  ftzpmh <- ftzpm & mm$tzhour != ""
+  date[ftzpmh] <- date[ftzpmh] + m * hours(mm$tzhour[ftzpmh])
+  ftzpmm <- ftzpm & mm$tzmin != ""
+  date[ftzpmm] <- date[ftzpmm] + m * minutes(mm$tzmin[ftzpmm])
+
+  ftzz <- mm$tz == "Z"
+  date[ftzz] <- as.POSIXct(date[ftzz], "UTC")
+
+  ftz <- mm$tz != "Z" & mm$tz != ""
+  date[ftz] <- as.POSIXct(date[ftz], mm$tz[ftz])
+
+  if (default_tz != "UTC") {
+    ftna <- mm$tzpm == "" & mm$tz == ""
+    if (any(ftna)) {
+      dd <- as.POSIXct(format_iso_8601(date[ftna]),
+                       "%Y-%m-%dT%H:%M:%S+00:00", tz = default_tz)
+      date[ftna] <- dd
+    }
+  }
+
+  as.POSIXct(date, "UTC")
+}
+
+iso_regex <- paste0(
+  "^\\s*",
+  "(?<year>[\\+-]?\\d{4}(?!\\d{2}\\b))",
+  "(?:(?<dash>-?)",
+   "(?:(?<month>0[1-9]|1[0-2])",
+    "(?:\\g{dash}(?<day>[12]\\d|0[1-9]|3[01]))?",
+    "|W(?<week>[0-4]\\d|5[0-3])(?:-?(?<weekday>[1-7]))?",
+    "|(?<yearday>00[1-9]|0[1-9]\\d|[12]\\d{2}|3",
+      "(?:[0-5]\\d|6[1-6])))",
+   "(?<time>[T\\s](?:(?:(?<hour>[01]\\d|2[0-3])",
+            "(?:(?<colon>:?)(?<min>[0-5]\\d))?|24\\:?00)",
+           "(?<frac>[\\.,]\\d+(?!:))?)?",
+    "(?:\\g{colon}(?<sec>[0-5]\\d)(?:[\\.,]\\d+)?)?",
+    "(?<tz>[zZ]|(?<tzpm>[\\+-])",
+     "(?<tzhour>[01]\\d|2[0-3]):?(?<tzmin>[0-5]\\d)?)?)?)?$"
+  )
+
+iso_week <- function(year, week, weekday) {
+
+  wdmon <- function(date) { (wday(date) + 5L) %% 7L }
+  thu <- function(date) { date - days(wdmon(date) - 3L) }
+
+  thu(ymd(paste(year, "01", "04"))) + weeks(as.numeric(week) - 1L) +
+    days(as.numeric(weekday) - 4L)
+}
+
+format_iso_8601 <- function(date) {
+  format(as.POSIXlt(date, tz = "UTC"), "%Y-%m-%dT%H:%M:%S+00:00")
+}

From dd3b0a564310dad1ebd4c5bb2c49b32bb7715bcd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 4 Apr 2023 12:59:57 +0200
Subject: [PATCH 02/46] Builder: change file names

Package version first, then R version, then platform.
This is closer to the default R file names on Linux,
although those do not have the R version.
---
 R/builder.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/builder.R b/R/builder.R
index 9b775a71..3985ec93 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -13,12 +13,12 @@ pkg_build <- function(pkg, library = .libPaths()[1]) {
   sys <- sysname()
   if (sys == "windows") {
     install_md5_sums(pkg)
-    fn <- paste0(pkg, "_", "R", rversion, "_", version, ".zip")
+    fn <- paste0(pkg, "_", version, "_R", rversion, ".zip")
     zip::zip(fn, pkgdir, mode = "cherry-pick")
 
   } else {
     ext <- if (sys == "mac") ".tgz" else ".tar.gz"
-    fn <- paste0(pkg, "_", platform, "_", "R", rversion, "_", version, ext)
+    fn <- paste0(pkg, "_", version, "_", "R", rversion, "_", platform, ext)
     ffn <- file.path(normalizePath("."), fn)
     old <- getwd()
     on.exit(setwd(old), add = TRUE)

From 27c583a94656389e7e3896399c1b48c333ac02ab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 4 Apr 2023 13:00:45 +0200
Subject: [PATCH 03/46] Add 'RemoteBuildPlatform' to installed metadata

This is useful to decide what platform a package was
installed on.
---
 R/install-binary.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/install-binary.R b/R/install-binary.R
index de1c8d0f..a627a012 100644
--- a/R/install-binary.R
+++ b/R/install-binary.R
@@ -61,7 +61,9 @@ install_extracted_binary <- function(filename, lib_cache, pkg_cache, lib,
 
 #' @importFrom utils modifyList
 add_metadata <- function(pkg_path, metadata) {
-  if (!length(metadata)) return()
+  if (! "RemoteBuildPlatform" %in% names(metadata)) {
+    metadata[["RemoteBuildPlatform"]] <- current_r_platform()
+  }
 
   ## During installation, the DESCRIPTION file is read and an package.rds
   ## file created with most of the information from the DESCRIPTION file.

From add3978b12291813bf957448881e20e69c223653 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 4 Apr 2023 12:59:30 +0200
Subject: [PATCH 04/46] Repo functions, first PoC

---
 R/repo.R | 216 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 216 insertions(+)
 create mode 100644 R/repo.R

diff --git a/R/repo.R b/R/repo.R
new file mode 100644
index 00000000..66b5ebb8
--- /dev/null
+++ b/R/repo.R
@@ -0,0 +1,216 @@
+
+repo_list <- function(..., path = ".") {
+  pkgs <- suppressWarnings(
+    pkgcache::parse_packages(file.path(path, "PACKAGES"))
+  )
+  if (nrow(pkgs) == 0) {
+    pkgs$Package <- character()
+    pkgs$Version <- character()
+    pkgs$Depends <- character()
+    pkgs$Imports <- character()
+    pkgs$Suggests <- character()
+    pkgs$Enhances <- character()
+    pkgs$LinkingTo <- character()
+    pkgs$License <- character()
+    pkgs$File <- character()
+    pkgs$DownloadURL <- character()
+    pkgs$OS <- character()
+    pkgs$Arch <- character()
+    pkgs$Built <- character()
+    pkgs$Filesize <- character()
+    pkgs$SHA256 <- character()
+    pkgs$RVersion <- character()
+    pkgs$Platform <- character()
+  }
+
+  pkgs
+}
+
+repo_delete <- function(package, ..., path = ".") {
+  pkgs <- repo_list(path = path)
+  idx <- find_in_data_frame(pkgs, package = package, ...)
+  if (length(idx)) {
+    pkgs <- pkgs[-idx, , drop = FALSE]
+  }
+  PACKAGES <- file.path(path, "PACKAGES")
+  write_dcf(pkgs, PACKAGES)
+}
+
+repo_add <- function(file, ..., path = ".") {
+  pkgs <- repo_list(path = path)
+  pkg_data <- get_package_data(file)
+  pkgs <- rbind_expand(pkgs, pkg_data)
+  PACKAGES <- file.path(path, "PACKAGES")
+  write_dcf(pkgs, PACKAGES)
+}
+
+get_desc <- function(path) {
+  pkg <- sub("_.*$", "", basename(path))
+  dir.create(tmp <- tempfile())
+  on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
+  untar(path, files = paste0(pkg, "/DESCRIPTION"), exdir = tmp)
+  desc::desc(file.path(tmp, pkg))
+}
+
+get_package_data <- function(path) {
+  desc <- get_desc(path)
+  pkgname <- desc$get_field("Package")
+  pkgver <- desc$get_field("Version")
+  built <- desc$get_built()
+  rminor <- get_minor_r_version(built$R)
+  os <- canonize_os(built$Platform)
+  arch <- canonize_arch(built$Platform)
+  deps <- unname(desc$get("Depends"))
+  pkg <- data_frame(
+    Package = pkgname,
+    Version = pkgver,
+    Depends = paste0(
+      if (!is.na(deps)) paste0(deps, ", "),
+      "R (>= ", rminor, "), R (< ", rminor, ".99)"
+    ),
+    Imports = unname(desc$get("Imports")),
+    Suggests = unname(desc$get("Suggests")),
+    Enhances = unname(desc$get("Enhances")),
+    LinkingTo = unname(desc$get("LinkingTo")),
+    License = unname(desc$get("License")),
+    File = basename(path),
+    DownloadURL = paste0(
+      "https://github.com/cran/",
+      pkgname,
+      "/releases/download/",
+      pkgver,
+      "/",
+      basename(path)
+    ),
+    OS = os,
+    Arch = arch,
+    Built = desc$get_field("Built"),
+    Filesize = file.size(path),
+    SHA256 = cli::hash_file_sha256(path),
+    RVersion = rminor,
+    Platform = unname(desc$get("RemoteBuildPlatform"))
+  )
+
+  pkg
+}
+
+# Remove packages with
+# - the same package name
+# - the same R version
+# - the same OS (or no OS)
+# - the same arch (or no arch)
+
+repo_update <- function(file, ..., path = ".") {
+  pkgs <- repo_list(path = path)
+  pkg_data <- get_package_data(file)
+
+  idx <- which(
+    pkgs$Package == pkg_data$Package &
+    pkgs$RVersion == pkg_data$RVersion &
+    (is.na(pkg_data$OS) | is.na(pkgs$OS) | identical(pkgs$OS, pkg_data$OS)) &
+    (is.na(pkg_data$Arch) | is.na(pkgs$Arch) | identical(pkgs$Arch, pkg_data$Arch))
+  )
+  if (length(idx)) {
+    pkgs <- pkgs[-idx, , drop = FALSE]
+  }
+
+  pkgs <- rbind_expand(pkgs, pkg_data)
+  PACKAGES <- file.path(path, "PACKAGES")
+  write_dcf(pkgs, PACKAGES)
+}
+
+write_dcf <- function(meta, PACKAGES, quiet = FALSE) {
+  if (!quiet) cat("Writing ", PACKAGES, "\n")
+  meta <- as.matrix(meta)
+  write.dcf(meta, PACKAGES, width = 200)
+  con <- gzfile(paste0(PACKAGES, ".gz"), "wt")
+  write.dcf(meta, con, width = 200)
+  close(con)
+  saveRDS(meta, paste0(PACKAGES, ".rds"), compress = "xz", version = 2)
+  invisible()
+}
+
+# case insensitive!
+
+find_in_data_frame <- function(df, ..., .list = NULL) {
+  cols <- drop_nulls(c(list(...), .list))
+  idx <- seq_len(nrow(df))
+  for (i in seq_along(cols)) {
+    if (length(idx) == 0) break
+    n <- tolower(names(cols)[i])
+    idx <- idx[df[[n]][idx] %in% cols[[i]]]
+  }
+
+  idx
+}
+
+canonize_arch <- function(platform) {
+  if (platform == "") return(NA_character_)
+  arch <- strsplit(platform, "-", fixed = TRUE)[[1]][1]
+  c("aarch64" = "arm64", "x86_64" = "amd64")[[arch]]
+}
+
+canonize_os <- function(platform) {
+  if (platform == "") return(NA_character_)
+  os <- strsplit(platform, "-", fixed = TRUE)[[1]][3]
+  if (substr(os, 1, 6) == "darwin") os <- "darwin"
+  if (substr(os, 1, 5) == "mingw") os <- "windows"
+  if (substr(os, 1, 7) == "solaris") os <- "solaris"
+  os
+}
+
+git <- function (..., echo_cmd = TRUE, echo = TRUE, dry_run = FALSE,
+                 stderr_to_stdout = FALSE) {
+  if (dry_run) {
+    cat("git", c(...), "\n")
+  } else {
+    processx::run("git", c(...), echo_cmd = echo_cmd, echo = echo,
+                  stderr_to_stdout = stderr_to_stdout)
+  }
+}
+
+git_push <- function() {
+  git("add", "-A", ".")
+  git("commit", "-m", "Update package")
+  git("push", "--porcelain", "origin", stderr_to_stdout = TRUE)
+}
+
+update_gh_repo <- function(repo, subdir, file) {
+  file <- normalizePath(file)
+
+  oldwd <- getwd()
+  workdir <- tempfile()
+  on.exit({ setwd(oldwd); unlink(workdir, recursive = TRUE) }, add = TRUE)
+  dir.create(workdir)
+  setwd(workdir)
+
+  git("clone", paste0("https://github.com/", repo))
+  prepo <- parse_slug(repo)
+  setwd(prepo$repo)
+  setwd(subdir)
+
+  git("config", "credential.helper", "cache")
+  gitcreds::gitcreds_approve(list(
+    url = "https://github.com",
+    username = "PersonalAccessToken",
+    password = Sys.getenv("GITHUB_PAT")
+  ))
+
+  repeat {
+    git("pull")
+    repo_update(file)
+    tryCatch({
+      git_push()
+      break
+    }, error = function(err) {
+      if (!grepl("(non-fast-forward|fetch first|cannot lock ref)",
+                 err$stderr)) {
+        stop(err)
+      }
+      git("reset", "HEAD^")
+      git("checkout", "--", ".")
+    })
+  }
+
+  invisible()
+}

From 2bf75e211a735d2a30ca988bb705690d09ec7a91 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 4 Apr 2023 18:58:20 +0200
Subject: [PATCH 05/46] Add `RemoteBuildPlatform` when building binary

With `pkg_build`. It is not good to add it at
install time, because it is added to binary packages
as well. Ideally we would add it with pkgbuild.
---
 R/builder.R        | 6 ++++--
 R/install-binary.R | 4 ----
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/R/builder.R b/R/builder.R
index 3985ec93..da5fa1cc 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -6,9 +6,11 @@ pkg_build <- function(pkg, library = .libPaths()[1]) {
       "Cannot find package {.pkg {pkg}} in library at {.path {library}}."
     ))
   }
-  version <- desc::desc_get_field("Version", file = pkgdir)
-  rversion <- get_minor_r_version(getRversion())
   platform <- pkgcache::current_r_platform()
+  add_metadata(pkgdir, c(RemoteBuildPlatform = platform))
+  dsc <- desc::desc(file = pkgdir)
+  version <- dsc$get_field("Version")
+  rversion <- get_minor_r_version(getRversion())
 
   sys <- sysname()
   if (sys == "windows") {
diff --git a/R/install-binary.R b/R/install-binary.R
index a627a012..3949a57a 100644
--- a/R/install-binary.R
+++ b/R/install-binary.R
@@ -61,10 +61,6 @@ install_extracted_binary <- function(filename, lib_cache, pkg_cache, lib,
 
 #' @importFrom utils modifyList
 add_metadata <- function(pkg_path, metadata) {
-  if (! "RemoteBuildPlatform" %in% names(metadata)) {
-    metadata[["RemoteBuildPlatform"]] <- current_r_platform()
-  }
-
   ## During installation, the DESCRIPTION file is read and an package.rds
   ## file created with most of the information from the DESCRIPTION file.
   ## Functions that read package metadata may use either the DESCRIPTION

From 278f7731935a4f42dcbfc2693c800ea8299afb07 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 4 Apr 2023 19:23:21 +0200
Subject: [PATCH 06/46] Fix adding metadata

---
 R/install-binary.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/install-binary.R b/R/install-binary.R
index 3949a57a..de1c8d0f 100644
--- a/R/install-binary.R
+++ b/R/install-binary.R
@@ -61,6 +61,8 @@ install_extracted_binary <- function(filename, lib_cache, pkg_cache, lib,
 
 #' @importFrom utils modifyList
 add_metadata <- function(pkg_path, metadata) {
+  if (!length(metadata)) return()
+
   ## During installation, the DESCRIPTION file is read and an package.rds
   ## file created with most of the information from the DESCRIPTION file.
   ## Functions that read package metadata may use either the DESCRIPTION

From d5600b14dcc4bd06604843fabc50f2b276453ac1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Mon, 1 May 2023 15:14:26 +0200
Subject: [PATCH 07/46] Encapsulate repo* & ghr*, add interanal docs for them

---
 R/gh-releases.R             | 416 ++++++++++++++++++-----------
 R/repo.R                    | 504 ++++++++++++++++++++++--------------
 man/ghr-cash-add_asset.Rd   |  26 ++
 man/ghr-cash-create.Rd      |  37 +++
 man/ghr-cash-get.Rd         |  19 ++
 man/ghr-cash-list.Rd        |  25 ++
 man/ghr-cash-list_assets.Rd |  29 +++
 man/repo-cash-add.Rd        |  21 ++
 man/repo-cash-delete.Rd     |  23 ++
 man/repo-cash-list.Rd       |  20 ++
 man/repo-cash-udpate_gh.Rd  |  35 +++
 man/repo-cash-update.Rd     |  26 ++
 12 files changed, 834 insertions(+), 347 deletions(-)
 create mode 100644 man/ghr-cash-add_asset.Rd
 create mode 100644 man/ghr-cash-create.Rd
 create mode 100644 man/ghr-cash-get.Rd
 create mode 100644 man/ghr-cash-list.Rd
 create mode 100644 man/ghr-cash-list_assets.Rd
 create mode 100644 man/repo-cash-add.Rd
 create mode 100644 man/repo-cash-delete.Rd
 create mode 100644 man/repo-cash-list.Rd
 create mode 100644 man/repo-cash-udpate_gh.Rd
 create mode 100644 man/repo-cash-update.Rd

diff --git a/R/gh-releases.R b/R/gh-releases.R
index 7df22f9d..c54bf526 100644
--- a/R/gh-releases.R
+++ b/R/gh-releases.R
@@ -1,13 +1,15 @@
 
-# -------------------------------------------------------------------------
+ghr <- local({
+
+  # -------------------------------------------------------------------------
 
-ghr_list <- function(repo) {
-  synchronize(async_ghr_list(repo))
-}
+  ghr_list <- function(repo) {
+    synchronize(async_ghr_list(repo))
+  }
 
-async_ghr_list <- function(repo) {
-  repo <- parse_slug(repo)
-  query <- glue("{
+  async_ghr_list <- function(repo) {
+    repo <- parse_slug(repo)
+    query <- glue("{
     rateLimit {
       cost
       remaining
@@ -24,44 +26,43 @@ async_ghr_list <- function(repo) {
     }
   }", .open = "<", .close = ">")
 
-  github_query(query)$
-    then(function(resp) {
-      rls <- resp$obj$data$repository$releases$nodes
-      browser()
-      data_frame(
-        id = vcapply(rls, "[[", "id"),
-        name = vcapply(rls, "[[", "name"),
-        tag_name = vcapply(rls, "[[", "tagName"),
-        created_at = parse_iso_8601(vcapply(rls, "[[", "createdAt"))
-      )
-    })
-}
+    github_query(query)$
+      then(function(resp) {
+        rls <- resp$obj$data$repository$releases$nodes
+        data_frame(
+          id = vcapply(rls, "[[", "id"),
+          name = vcapply(rls, "[[", "name"),
+          tag_name = vcapply(rls, "[[", "tagName"),
+          created_at = parse_iso_8601(vcapply(rls, "[[", "createdAt"))
+        )
+      })
+  }
 
-# -------------------------------------------------------------------------
+  # -------------------------------------------------------------------------
 
-ghr_get <- function(repo, tag) {
-  synchronize(async_ghr_get(repo, tag))
-}
+  ghr_get <- function(repo, tag) {
+    synchronize(async_ghr_get(repo, tag))
+  }
 
-async_ghr_get <- function(repo, tag) {
-  prepo <- parse_slug(repo)
-  ep <- glue("/repos/{prepo$owner}/{prepo$repo}/releases/tags/{tag}")
-  async_github_v3_query(ep)$
-    then(function(resp) {
-      jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
-    })
-}
+  async_ghr_get <- function(repo, tag) {
+    prepo <- parse_slug(repo)
+    ep <- glue("/repos/{prepo$owner}/{prepo$repo}/releases/tags/{tag}")
+    async_github_v3_query(ep)$
+      then(function(resp) {
+        jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
+      })
+  }
 
-# -------------------------------------------------------------------------
+  # -------------------------------------------------------------------------
 
-ghr_list_assets <- function(repo, tag) {
-  synchronize(async_ghr_list_assets(repo, tag))
-}
+  ghr_list_assets <- function(repo, tag) {
+    synchronize(async_ghr_list_assets(repo, tag))
+  }
 
-async_ghr_list_assets <- function(repo, tag) {
+  async_ghr_list_assets <- function(repo, tag) {
 
-  repo <- parse_slug(repo)
-  query <- glue("{
+    repo <- parse_slug(repo)
+    query <- glue("{
     rateLimit {
       cost
       remaining
@@ -83,123 +84,244 @@ async_ghr_list_assets <- function(repo, tag) {
     }
   }", .open = "<", .close = ">")
 
-  github_query(query)$
-    then(function(resp) {
-      asts <- resp$obj$data$repository$release$releaseAssets$nodes
-      data_frame(
-        id = vcapply(asts, "[[", "id"),
-        name = vcapply(asts, "[[", "name"),
-        download_url = vcapply(asts, "[[", "downloadUrl"),
-        size = viapply(asts, "[[", "size"),
-        created_at = parse_iso_8601(vcapply(asts, "[[", "createdAt")),
-        updated_at = parse_iso_8601(vcapply(asts, "[[", "updatedAt")),
-        content_type = vcapply(asts, "[[", "contentType")
-      )
-    })
-}
+    github_query(query)$
+      then(function(resp) {
+        asts <- resp$obj$data$repository$release$releaseAssets$nodes
+        data_frame(
+          id = vcapply(asts, "[[", "id"),
+          name = vcapply(asts, "[[", "name"),
+          download_url = vcapply(asts, "[[", "downloadUrl"),
+          size = viapply(asts, "[[", "size"),
+          created_at = parse_iso_8601(vcapply(asts, "[[", "createdAt")),
+          updated_at = parse_iso_8601(vcapply(asts, "[[", "updatedAt")),
+          content_type = vcapply(asts, "[[", "contentType")
+        )
+      })
+  }
 
-# -------------------------------------------------------------------------
+  # -------------------------------------------------------------------------
 
-ghr_add_asset <- function(repo, file, tag, name = basename(file)) {
-  invisible(synchronize(async_ghr_add_asset(repo, file, tag, name)))
-}
-
-async_ghr_add_asset <- function(repo, file, tag,
-                                name = basename(file)) {
-
-  repo; file; tag; name
-
-  async_ghr_get(repo, tag)$
-    catch(async_http_404 = function(err) {
-      async_ghr_create(repo, tag)
-    })$
-    then(function(rel) rel$upload_url)$
-    then(function(upload_url) {
-      upload_url <- sub("[{].*[}]", "", upload_url)
-      prepo <- parse_slug(repo)
-      async_github_v3_query(
-        url = upload_url,
-        endpoint = "",
-        query = c(name = name),
-        method = "POST",
-        headers = c("Content-Type" = "application/octet-stream"),
-        file = file
-      )
-    })$
-    then(function(resp) {
-      jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
-    })
-}
+  ghr_add_asset <- function(repo, file, tag, name = basename(file)) {
+    invisible(synchronize(async_ghr_add_asset(repo, file, tag, name)))
+  }
 
-# -------------------------------------------------------------------------
+  async_ghr_add_asset <- function(repo, file, tag,
+                                  name = basename(file)) {
 
-ghr_create <- function(repo, tag) {
-  invisible(synchronize(async_ghr_create(repo, tag)))
-}
-
-async_ghr_create <- function(repo, tag, description = "", draft = FALSE,
-                             prerelease = FALSE,
-                             generate_release_notes = FALSE) {
-  prepo <- parse_slug(repo)
-  ep <- glue("/repos/{prepo$owner}/{prepo$repo}/releases")
-  data <- toJSON(list(
-    tag_name = tag,
-    name = paste0(prepo$repo, " ", tag),
-    body = description,
-    draft = draft,
-    prerelease = prerelease,
-    generate_release_notes = generate_release_notes
-  ), auto_unbox = TRUE)
-
-  async_github_v3_query(
-    ep,
-    data = data,
-    method = "POST"
-  )$
-  then(function(resp) {
-    jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
-  })
-}
+    repo; file; tag; name
 
-# -------------------------------------------------------------------------
+    async_ghr_get(repo, tag)$
+      catch(async_http_404 = function(err) {
+        async_ghr_create(repo, tag)
+      })$
+        then(function(rel) rel$upload_url)$
+         then(function(upload_url) {
+           upload_url <- sub("[{].*[}]", "", upload_url)
+           prepo <- parse_slug(repo)
+           async_github_v3_query(
+             url = upload_url,
+             endpoint = "",
+             query = c(name = name),
+             method = "POST",
+             headers = c("Content-Type" = "application/octet-stream"),
+             file = file
+           )
+         })$
+           then(function(resp) {
+             jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
+           })
+  }
 
-parse_slug <- function(slug) {
-  parts <- strsplit(slug, "/", fixed = TRUE)[[1]]
-  list(user = parts[1], owner = parts[1], repo = parts[2])
-}
-
-async_github_v3_query <- function(endpoint, query = NULL,
-                                  method = c("GET", "POST"),
-                                  headers = NULL,
-                                  data = NULL,
-                                  file = NULL,
-                                  url = NULL) {
-  method <- match.arg(method)
-
-  headers <- update_named_vector(type_github_get_headers(), headers)
-
-  base <- url %||% Sys.getenv("R_PKG_GITHUB_API_URL", "https://api.github.com")
-  query_str <- paste(
-    glue("{curl::curl_escape(names(query))}={curl::curl_escape(query)}"),
-    collapse = "&"
-  )
-  url <- paste0(base, endpoint, "?", query_str)
+  # -------------------------------------------------------------------------
 
-  px <- if (method == "GET") {
-    http_get(url, headers = headers)
+  ghr_create <- function(repo, tag) {
+    invisible(synchronize(async_ghr_create(repo, tag)))
+  }
 
-  } else if (method == "POST") {
-    if (is.null(data) + is.null(file) != 1) {
-      throw(pkg_error(
-        "Must specify exactly of {.arg data} and {.arg file} for POST requests."
-      ))
-    }
-    if (is.null(data)) data <- readBin(file, "raw", file.size(file))
-    http_post(url, data, headers = headers)
+  async_ghr_create <- function(repo, tag, description = "", draft = FALSE,
+                               prerelease = FALSE,
+                               generate_release_notes = FALSE) {
+    prepo <- parse_slug(repo)
+    ep <- glue("/repos/{prepo$owner}/{prepo$repo}/releases")
+    data <- toJSON(list(
+      tag_name = tag,
+      name = paste0(prepo$repo, " ", tag),
+      body = description,
+      draft = draft,
+      prerelease = prerelease,
+      generate_release_notes = generate_release_notes
+    ), auto_unbox = TRUE)
+
+    async_github_v3_query(
+      ep,
+      data = data,
+      method = "POST"
+    )$
+      then(function(resp) {
+        jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
+      })
+  }
+
+  # -------------------------------------------------------------------------
+
+  parse_slug <- function(slug) {
+    parts <- strsplit(slug, "/", fixed = TRUE)[[1]]
+    list(user = parts[1], owner = parts[1], repo = parts[2])
+  }
+
+  async_github_v3_query <- function(endpoint, query = NULL,
+                                    method = c("GET", "POST"),
+                                    headers = NULL,
+                                    data = NULL,
+                                    file = NULL,
+                                    url = NULL) {
+    method <- match.arg(method)
+
+    headers <- update_named_vector(type_github_get_headers(), headers)
+
+    base <- url %||% Sys.getenv("R_PKG_GITHUB_API_URL", "https://api.github.com")
+    query_str <- paste(
+      glue("{curl::curl_escape(names(query))}={curl::curl_escape(query)}"),
+      collapse = "&"
+    )
+    url <- paste0(base, endpoint, "?", query_str)
+
+    px <- if (method == "GET") {
+            http_get(url, headers = headers)
+
+          } else if (method == "POST") {
+            if (is.null(data) + is.null(file) != 1) {
+              throw(pkg_error(
+                "Must specify exactly of {.arg data} and {.arg file} for POST requests."
+              ))
+            }
+            if (is.null(data)) data <- readBin(file, "raw", file.size(file))
+            http_post(url, data, headers = headers)
+          }
+
+    px$
+      then(http_stop_for_status)
   }
 
-  px$
-    then(http_stop_for_status)
-}
+  # github_query() is in type-github.R
+
+  # -----------------------------------------------------------------------
+  # Exported functions
+
+  structure(
+    list(
+      .internal         = environment(),
+
+      async_add_asset   = async_ghr_add_asset,
+      async_create      = async_ghr_create,
+      async_get         = async_ghr_get,
+      async_list        = async_ghr_list,
+      async_list_assets = async_ghr_list_assets,
+
+      add_asset         = ghr_add_asset,
+      create            = ghr_create,
+      get               = ghr_get,
+      list              = ghr_list,
+      list_assets       = ghr_list_assets
+    )
+  )
+})
+
+# -------------------------------------------------------------------------
+# Docs
+
+#' List GitHub releases
+#'
+#' Lists the last 100 releases for a GitHub repository.
+#'
+#' `ghr$async_list()` is the async version of `ghr$list()`.
+#'
+#' @name ghr$list
+#' @keywords internal
+#' @param repo Repository slug, e.g. `"cran/cli"`.
+#' @return Data frame with columns:
+#'   * `id`: release id,
+#'   * `name`: release name, usuaally the version number, possibly with
+#'     a `v` prefix: `3.6.1` or `v3.6.1`, but can be different.
+#'   * `tag_name`: usually the same as `name`.
+#'   * `created_at`: `POSIXct` vector.
+
+ghr$list
+
+#' Get information about a release, including release assets
+#'
+#' `ghr$async_get` is the async version of `ghr$get`.
+#'
+#' @name ghr$get
+#' @keywords internal
+#' @param repo Repository slug, e.g. `"cran/cli"`.
+#' @param tag Tag to get.
+#' @return Named list, see
+#'   <https://docs.github.com/en/rest/releases/releases#get-a-release>
+#'   for the entries.
+
+ghr$get
+
+#' List assets of a release
+#'
+#' `ghr$async_list_assets()` is the async version of `ghr$list_assets()`
+#'
+#' @name ghr$list_assets
+#' @keywords internal
+#' @usage ghr$list_assets(repo, tag)
+#' @param repo Repository slug, e.g. `"cran/cli"`.
+#' @param tag Tag to query.
+#' @return Data frame with columns:
+#'   * `id`: asset id,
+#'   * `name`: file name of the asset,
+#'   * `download_url`: download URL,
+#'   * `size`: size in bytes,
+#'   * `created_at`: `POSIXct` vector,
+#'   * `updated_at`: `POSXct` vector,
+#'   * `content_type`: content type of asset.
+
+ghr$list_assets
+
+#' Add asset got GitHub release
+#'
+#' `ghr$async_add_asset()` is the async version of `ghr$add_asset()`.
+#'
+#' @name ghr$add_asset
+#' @keywords internal
+#' @usage ghr%add_asset(repo, file, tag, name = basename(file))
+#' @param repo Repository slug, e.g. `cran/cli`.
+#' @param file Path to file to upload as an asset.
+#' @param tag Tag name to add the asset to. It must exist on GitHub.
+#' @param name File name of the asset in the release.
+#' @return Response from GitHub as a named list. See
+#'   <https://docs.github.com/en/rest/releases/assets#upload-a-release-asset>
+#'   for the structure.
+
+ghr$add_asset
+
+#' Create a GitHub release
+#'
+#' `ghr$async_create()` is an async version of `ghr$create()`.
+#'
+#' @name ghr$create
+#' @keywords internal
+#' @usage
+#' ghr$create(
+#'   repo,
+#'   tag,
+#'   description = "",
+#'   draft = FALSE,
+#'   prerelease = FALSE,
+#'   generage_release_notes = FALSE
+#' )
+#' @param repo Repository slug, e.g. `cran/cli`.
+#' @param tag Tag name to create a release for. It must exist on GitHub.
+#' @param description Release description.
+#' @param draft Whether to create a draft release.
+#' @param prerelease Whether to create a prerelease.
+#' @param generate_release_notes Whether to auto-generate release notes.
+#' @return Response from GitHub as a named list. See
+#'   <https://docs.github.com/en/rest/releases/releases#create-a-release>
+#'   for the structure.
 
-# github_query() is in type-github.R
+ghr$create
diff --git a/R/repo.R b/R/repo.R
index 66b5ebb8..1ef29233 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -1,216 +1,320 @@
 
-repo_list <- function(..., path = ".") {
-  pkgs <- suppressWarnings(
-    pkgcache::parse_packages(file.path(path, "PACKAGES"))
-  )
-  if (nrow(pkgs) == 0) {
-    pkgs$Package <- character()
-    pkgs$Version <- character()
-    pkgs$Depends <- character()
-    pkgs$Imports <- character()
-    pkgs$Suggests <- character()
-    pkgs$Enhances <- character()
-    pkgs$LinkingTo <- character()
-    pkgs$License <- character()
-    pkgs$File <- character()
-    pkgs$DownloadURL <- character()
-    pkgs$OS <- character()
-    pkgs$Arch <- character()
-    pkgs$Built <- character()
-    pkgs$Filesize <- character()
-    pkgs$SHA256 <- character()
-    pkgs$RVersion <- character()
-    pkgs$Platform <- character()
+repo <- local({
+
+  repo_list <- function(..., path = ".") {
+    pkgs <- suppressWarnings(
+      pkgcache::parse_packages(file.path(path, "PACKAGES"))
+    )
+    if (nrow(pkgs) == 0) {
+      pkgs$Package <- character()
+      pkgs$Version <- character()
+      pkgs$Depends <- character()
+      pkgs$Imports <- character()
+      pkgs$Suggests <- character()
+      pkgs$Enhances <- character()
+      pkgs$LinkingTo <- character()
+      pkgs$License <- character()
+      pkgs$File <- character()
+      pkgs$DownloadURL <- character()
+      pkgs$OS <- character()
+      pkgs$Arch <- character()
+      pkgs$Built <- character()
+      pkgs$Filesize <- character()
+      pkgs$SHA256 <- character()
+      pkgs$RVersion <- character()
+      pkgs$Platform <- character()
+    }
+
+    pkgs
   }
 
-  pkgs
-}
+  repo_delete <- function(package, ..., path = ".") {
+    pkgs <- repo_list(path = path)
+    idx <- find_in_data_frame(pkgs, package = package, ...)
+    if (length(idx)) {
+      pkgs <- pkgs[-idx, , drop = FALSE]
+    }
+    PACKAGES <- file.path(path, "PACKAGES")
+    write_dcf(pkgs, PACKAGES)
+  }
 
-repo_delete <- function(package, ..., path = ".") {
-  pkgs <- repo_list(path = path)
-  idx <- find_in_data_frame(pkgs, package = package, ...)
-  if (length(idx)) {
-    pkgs <- pkgs[-idx, , drop = FALSE]
+  repo_add <- function(file, ..., path = ".") {
+    pkgs <- repo_list(path = path)
+    pkg_data <- get_package_data(file)
+    pkgs <- rbind_expand(pkgs, pkg_data)
+    PACKAGES <- file.path(path, "PACKAGES")
+    write_dcf(pkgs, PACKAGES)
   }
-  PACKAGES <- file.path(path, "PACKAGES")
-  write_dcf(pkgs, PACKAGES)
-}
-
-repo_add <- function(file, ..., path = ".") {
-  pkgs <- repo_list(path = path)
-  pkg_data <- get_package_data(file)
-  pkgs <- rbind_expand(pkgs, pkg_data)
-  PACKAGES <- file.path(path, "PACKAGES")
-  write_dcf(pkgs, PACKAGES)
-}
-
-get_desc <- function(path) {
-  pkg <- sub("_.*$", "", basename(path))
-  dir.create(tmp <- tempfile())
-  on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
-  untar(path, files = paste0(pkg, "/DESCRIPTION"), exdir = tmp)
-  desc::desc(file.path(tmp, pkg))
-}
-
-get_package_data <- function(path) {
-  desc <- get_desc(path)
-  pkgname <- desc$get_field("Package")
-  pkgver <- desc$get_field("Version")
-  built <- desc$get_built()
-  rminor <- get_minor_r_version(built$R)
-  os <- canonize_os(built$Platform)
-  arch <- canonize_arch(built$Platform)
-  deps <- unname(desc$get("Depends"))
-  pkg <- data_frame(
-    Package = pkgname,
-    Version = pkgver,
-    Depends = paste0(
-      if (!is.na(deps)) paste0(deps, ", "),
-      "R (>= ", rminor, "), R (< ", rminor, ".99)"
-    ),
-    Imports = unname(desc$get("Imports")),
-    Suggests = unname(desc$get("Suggests")),
-    Enhances = unname(desc$get("Enhances")),
-    LinkingTo = unname(desc$get("LinkingTo")),
-    License = unname(desc$get("License")),
-    File = basename(path),
-    DownloadURL = paste0(
-      "https://github.com/cran/",
-      pkgname,
-      "/releases/download/",
-      pkgver,
-      "/",
-      basename(path)
-    ),
-    OS = os,
-    Arch = arch,
-    Built = desc$get_field("Built"),
-    Filesize = file.size(path),
-    SHA256 = cli::hash_file_sha256(path),
-    RVersion = rminor,
-    Platform = unname(desc$get("RemoteBuildPlatform"))
-  )
 
-  pkg
-}
+  repo_update <- function(file, ..., path = ".") {
+    pkgs <- repo_list(path = path)
+    pkg_data <- get_package_data(file)
 
-# Remove packages with
-# - the same package name
-# - the same R version
-# - the same OS (or no OS)
-# - the same arch (or no arch)
+    idx <- which(
+      pkgs$Package == pkg_data$Package &
+      pkgs$RVersion == pkg_data$RVersion &
+      (is.na(pkg_data$OS) | is.na(pkgs$OS) | identical(pkgs$OS, pkg_data$OS)) &
+      (is.na(pkg_data$Arch) | is.na(pkgs$Arch) | identical(pkgs$Arch, pkg_data$Arch))
+    )
+    if (length(idx)) {
+      pkgs <- pkgs[-idx, , drop = FALSE]
+    }
 
-repo_update <- function(file, ..., path = ".") {
-  pkgs <- repo_list(path = path)
-  pkg_data <- get_package_data(file)
+    pkgs <- rbind_expand(pkgs, pkg_data)
+    PACKAGES <- file.path(path, "PACKAGES")
+    write_dcf(pkgs, PACKAGES)
+  }
 
-  idx <- which(
-    pkgs$Package == pkg_data$Package &
-    pkgs$RVersion == pkg_data$RVersion &
-    (is.na(pkg_data$OS) | is.na(pkgs$OS) | identical(pkgs$OS, pkg_data$OS)) &
-    (is.na(pkg_data$Arch) | is.na(pkgs$Arch) | identical(pkgs$Arch, pkg_data$Arch))
-  )
-  if (length(idx)) {
-    pkgs <- pkgs[-idx, , drop = FALSE]
+  repo_update_gh <- function(repo, subdir, file) {
+    file <- normalizePath(file)
+
+    oldwd <- getwd()
+    workdir <- tempfile()
+    on.exit({ setwd(oldwd); unlink(workdir, recursive = TRUE) }, add = TRUE)
+    dir.create(workdir)
+    setwd(workdir)
+
+    git("clone", paste0("https://github.com/", repo))
+    prepo <- parse_slug(repo)
+    setwd(prepo$repo)
+    setwd(subdir)
+
+    git("config", "credential.helper", "cache")
+    gitcreds::gitcreds_approve(list(
+                url = "https://github.com",
+                username = "PersonalAccessToken",
+                password = Sys.getenv("GITHUB_PAT")
+              ))
+
+    repeat {
+      git("pull")
+      repo_update(file)
+      tryCatch({
+        git_push()
+        break
+      }, error = function(err) {
+        if (!grepl("(non-fast-forward|fetch first|cannot lock ref)",
+                   err$stderr)) {
+          stop(err)
+        }
+        git("reset", "HEAD^")
+        git("checkout", "--", ".")
+      })
+    }
+
+    invisible()
   }
 
-  pkgs <- rbind_expand(pkgs, pkg_data)
-  PACKAGES <- file.path(path, "PACKAGES")
-  write_dcf(pkgs, PACKAGES)
-}
-
-write_dcf <- function(meta, PACKAGES, quiet = FALSE) {
-  if (!quiet) cat("Writing ", PACKAGES, "\n")
-  meta <- as.matrix(meta)
-  write.dcf(meta, PACKAGES, width = 200)
-  con <- gzfile(paste0(PACKAGES, ".gz"), "wt")
-  write.dcf(meta, con, width = 200)
-  close(con)
-  saveRDS(meta, paste0(PACKAGES, ".rds"), compress = "xz", version = 2)
-  invisible()
-}
-
-# case insensitive!
-
-find_in_data_frame <- function(df, ..., .list = NULL) {
-  cols <- drop_nulls(c(list(...), .list))
-  idx <- seq_len(nrow(df))
-  for (i in seq_along(cols)) {
-    if (length(idx) == 0) break
-    n <- tolower(names(cols)[i])
-    idx <- idx[df[[n]][idx] %in% cols[[i]]]
+  # -----------------------------------------------------------------------
+  # Internal functions
+
+  get_desc <- function(path) {
+    pkg <- sub("_.*$", "", basename(path))
+    dir.create(tmp <- tempfile())
+    on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
+    untar(path, files = paste0(pkg, "/DESCRIPTION"), exdir = tmp)
+    desc::desc(file.path(tmp, pkg))
   }
 
-  idx
-}
-
-canonize_arch <- function(platform) {
-  if (platform == "") return(NA_character_)
-  arch <- strsplit(platform, "-", fixed = TRUE)[[1]][1]
-  c("aarch64" = "arm64", "x86_64" = "amd64")[[arch]]
-}
-
-canonize_os <- function(platform) {
-  if (platform == "") return(NA_character_)
-  os <- strsplit(platform, "-", fixed = TRUE)[[1]][3]
-  if (substr(os, 1, 6) == "darwin") os <- "darwin"
-  if (substr(os, 1, 5) == "mingw") os <- "windows"
-  if (substr(os, 1, 7) == "solaris") os <- "solaris"
-  os
-}
-
-git <- function (..., echo_cmd = TRUE, echo = TRUE, dry_run = FALSE,
-                 stderr_to_stdout = FALSE) {
-  if (dry_run) {
-    cat("git", c(...), "\n")
-  } else {
-    processx::run("git", c(...), echo_cmd = echo_cmd, echo = echo,
-                  stderr_to_stdout = stderr_to_stdout)
+  get_package_data <- function(path) {
+    desc <- get_desc(path)
+    pkgname <- desc$get_field("Package")
+    pkgver <- desc$get_field("Version")
+    built <- desc$get_built()
+    rminor <- get_minor_r_version(built$R)
+    os <- canonize_os(built$Platform)
+    arch <- canonize_arch(built$Platform)
+    deps <- unname(desc$get("Depends"))
+    pkg <- data_frame(
+      Package = pkgname,
+      Version = pkgver,
+      Depends = paste0(
+        if (!is.na(deps)) paste0(deps, ", "),
+        "R (>= ", rminor, "), R (< ", rminor, ".99)"
+      ),
+      Imports = unname(desc$get("Imports")),
+      Suggests = unname(desc$get("Suggests")),
+      Enhances = unname(desc$get("Enhances")),
+      LinkingTo = unname(desc$get("LinkingTo")),
+      License = unname(desc$get("License")),
+      File = basename(path),
+      DownloadURL = paste0(
+        "https://github.com/cran/",
+        pkgname,
+        "/releases/download/",
+        pkgver,
+        "/",
+        basename(path)
+      ),
+      OS = os,
+      Arch = arch,
+      Built = desc$get_field("Built"),
+      Filesize = file.size(path),
+      SHA256 = cli::hash_file_sha256(path),
+      RVersion = rminor,
+      Platform = unname(desc$get("RemoteBuildPlatform"))
+    )
+
+    pkg
   }
-}
-
-git_push <- function() {
-  git("add", "-A", ".")
-  git("commit", "-m", "Update package")
-  git("push", "--porcelain", "origin", stderr_to_stdout = TRUE)
-}
-
-update_gh_repo <- function(repo, subdir, file) {
-  file <- normalizePath(file)
-
-  oldwd <- getwd()
-  workdir <- tempfile()
-  on.exit({ setwd(oldwd); unlink(workdir, recursive = TRUE) }, add = TRUE)
-  dir.create(workdir)
-  setwd(workdir)
-
-  git("clone", paste0("https://github.com/", repo))
-  prepo <- parse_slug(repo)
-  setwd(prepo$repo)
-  setwd(subdir)
-
-  git("config", "credential.helper", "cache")
-  gitcreds::gitcreds_approve(list(
-    url = "https://github.com",
-    username = "PersonalAccessToken",
-    password = Sys.getenv("GITHUB_PAT")
-  ))
-
-  repeat {
-    git("pull")
-    repo_update(file)
-    tryCatch({
-      git_push()
-      break
-    }, error = function(err) {
-      if (!grepl("(non-fast-forward|fetch first|cannot lock ref)",
-                 err$stderr)) {
-        stop(err)
-      }
-      git("reset", "HEAD^")
-      git("checkout", "--", ".")
-    })
+
+  write_dcf <- function(meta, PACKAGES, quiet = FALSE) {
+    if (!quiet) cat("Writing ", PACKAGES, "\n")
+    meta <- as.matrix(meta)
+    write.dcf(meta, PACKAGES, width = 200)
+    con <- gzfile(paste0(PACKAGES, ".gz"), "wt")
+    write.dcf(meta, con, width = 200)
+    close(con)
+    saveRDS(meta, paste0(PACKAGES, ".rds"), compress = "xz", version = 2)
+    invisible()
   }
 
-  invisible()
-}
+  # case insensitive!
+
+  find_in_data_frame <- function(df, ..., .list = NULL) {
+    cols <- drop_nulls(c(list(...), .list))
+    idx <- seq_len(nrow(df))
+    for (i in seq_along(cols)) {
+      if (length(idx) == 0) break
+      n <- tolower(names(cols)[i])
+      idx <- idx[df[[n]][idx] %in% cols[[i]]]
+    }
+
+    idx
+  }
+
+  canonize_arch <- function(platform) {
+    if (platform == "") return(NA_character_)
+    arch <- strsplit(platform, "-", fixed = TRUE)[[1]][1]
+    c("aarch64" = "arm64", "x86_64" = "amd64")[[arch]]
+  }
+
+  canonize_os <- function(platform) {
+    if (platform == "") return(NA_character_)
+    os <- strsplit(platform, "-", fixed = TRUE)[[1]][3]
+    if (substr(os, 1, 6) == "darwin") os <- "darwin"
+    if (substr(os, 1, 5) == "mingw") os <- "windows"
+    if (substr(os, 1, 7) == "solaris") os <- "solaris"
+    os
+  }
+
+  git <- function (..., echo_cmd = TRUE, echo = TRUE, dry_run = FALSE,
+                   stderr_to_stdout = FALSE) {
+    if (dry_run) {
+      cat("git", c(...), "\n")
+    } else {
+      processx::run("git", c(...), echo_cmd = echo_cmd, echo = echo,
+                    stderr_to_stdout = stderr_to_stdout)
+    }
+  }
+
+  git_push <- function() {
+    git("add", "-A", ".")
+    git("commit", "-m", "Update package")
+    git("push", "--porcelain", "origin", stderr_to_stdout = TRUE)
+  }
+
+  # -----------------------------------------------------------------------
+  # Exported functions
+
+  structure(
+    list(
+      .internal = environment(),
+      add       = repo_add,
+      delete    = repo_delete,
+      list      = repo_list,
+      update    = repo_update,
+      update_gh = repo_update_gh
+    ),
+    class = c("standalone_repo", "standalone")
+  )
+})
+
+# -------------------------------------------------------------------------
+# Docs
+
+#' List packages in a reporitory
+#'
+#' @name repo$list
+#' @keywords internal
+#' @usage repo_list(..., path = ".")
+#' @param ... Ignored currently.
+#' @param path Path to repository. Must contain a `PACKAGES` file.
+#' @return Data frame of package data.
+
+repo$list
+
+#' Delete packages from repository metadata
+#'
+#' All matching packages will be removed.
+#'
+#' It does not delete the files themselves.
+#'
+#' @name repo$delete
+#' @keywords internal
+#' @usage repo$delete(package, ..., path = ".")
+#' @param package Package name.
+#' @param ... Other fields to match, they must be named. Matching is
+#'   case insensitive.
+#' @param path Path to repository. Must contain a `PACKAGES` file.
+
+repo$delete
+
+#' Add a package to a repository
+#'
+#' It does not check if any version of the package is already
+#' in the repository. If you want to _update_ a package, use
+#' `repo_update()`.
+#'
+#' @name repo$add
+#' @keywords internal
+#' @usage repo$add(file, ..., path = ".")
+#' @param file Package file.
+#' @param ... Ignored currently.
+#' @param path Path to repository. Must contain a `PACKAGES` file.
+
+repo$add
+
+#' Update a package in a repository
+#'
+#' Previous version of the same package are removed. In particular,
+#' it removes packages with matching:
+#' - package name (`Package` field),
+#' - R version (`Rversion` field),
+#' - same OS (`OS` field), or no `OS` field,
+#' - same architecture (`Arch` field), or not `Arch` field.
+#'
+#' @name repo$update
+#' @keywords internal
+#' @usage repo$update(file, ..., path = ".")
+#' @param file Package file.
+#' @param ... Ignored currently.
+#' @param path Path to repository. Must contain a `PACKAGES` file.
+
+repo$update
+
+#' Update a file in a package metadata, stored on GitHub
+#'
+#' 1. Clones the GitHub repository.
+#' 2. Calls `repo_update()` with `file`, in the `subdir` directory.
+#' 3. Adds and commits changes.
+#' 4. Pushes the git repository to GitHub.
+#' If the push fails, then it resets the git repository, pulls it from
+#' GitHub and tries the update process again, until the push suceeds.
+#'
+#' This function needs command line git installed.
+#'
+#' It sets up a `cache` credential helper, so the `git push` works
+#' without interaction with the user.
+#'
+#' @name repo$udpate_gh
+#' @keywords internal
+#' @usage repo$update_gh(repo, subdir, file)
+#' @param repo Github slug, e.g. `r-hub/repos`.
+#' @param subdir Subdirectory in the GitHub repo, where the R package
+#'   metadata should be updated. It must exist in the repository.
+#'   If it does not have `PACKAGES*` files, then they will be created.
+#' @param file Package file to add. The file will _not_ be added to the
+#'   repository.
+
+repo$update_gh
diff --git a/man/ghr-cash-add_asset.Rd b/man/ghr-cash-add_asset.Rd
new file mode 100644
index 00000000..b5dc7397
--- /dev/null
+++ b/man/ghr-cash-add_asset.Rd
@@ -0,0 +1,26 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gh-releases.R
+\name{ghr$add_asset}
+\alias{ghr$add_asset}
+\title{Add asset got GitHub release}
+\usage{
+ghr%add_asset(repo, file, tag, name = basename(file))
+}
+\arguments{
+\item{repo}{Repository slug, e.g. \code{cran/cli}.}
+
+\item{file}{Path to file to upload as an asset.}
+
+\item{tag}{Tag name to add the asset to. It must exist on GitHub.}
+
+\item{name}{File name of the asset in the release.}
+}
+\value{
+Response from GitHub as a named list. See
+\url{https://docs.github.com/en/rest/releases/assets#upload-a-release-asset}
+for the structure.
+}
+\description{
+\code{ghr$async_add_asset()} is the async version of \code{ghr$add_asset()}.
+}
+\keyword{internal}
diff --git a/man/ghr-cash-create.Rd b/man/ghr-cash-create.Rd
new file mode 100644
index 00000000..def111ce
--- /dev/null
+++ b/man/ghr-cash-create.Rd
@@ -0,0 +1,37 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gh-releases.R
+\name{ghr$create}
+\alias{ghr$create}
+\title{Create a GitHub release}
+\usage{
+ghr$create(
+  repo,
+  tag,
+  description = "",
+  draft = FALSE,
+  prerelease = FALSE,
+  generage_release_notes = FALSE
+)
+}
+\arguments{
+\item{repo}{Repository slug, e.g. \code{cran/cli}.}
+
+\item{tag}{Tag name to create a release for. It must exist on GitHub.}
+
+\item{description}{Release description.}
+
+\item{draft}{Whether to create a draft release.}
+
+\item{prerelease}{Whether to create a prerelease.}
+
+\item{generate_release_notes}{Whether to auto-generate release notes.}
+}
+\value{
+Response from GitHub as a named list. See
+\url{https://docs.github.com/en/rest/releases/releases#create-a-release}
+for the structure.
+}
+\description{
+\code{ghr$async_create()} is an async version of \code{ghr$create()}.
+}
+\keyword{internal}
diff --git a/man/ghr-cash-get.Rd b/man/ghr-cash-get.Rd
new file mode 100644
index 00000000..e45fa2ba
--- /dev/null
+++ b/man/ghr-cash-get.Rd
@@ -0,0 +1,19 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gh-releases.R
+\name{ghr$get}
+\alias{ghr$get}
+\title{Get information about a release, including release assets}
+\arguments{
+\item{repo}{Repository slug, e.g. \code{"cran/cli"}.}
+
+\item{tag}{Tag to get.}
+}
+\value{
+Named list, see
+\url{https://docs.github.com/en/rest/releases/releases#get-a-release}
+for the entries.
+}
+\description{
+\code{ghr$async_get} is the async version of \code{ghr$get}.
+}
+\keyword{internal}
diff --git a/man/ghr-cash-list.Rd b/man/ghr-cash-list.Rd
new file mode 100644
index 00000000..acabb8d7
--- /dev/null
+++ b/man/ghr-cash-list.Rd
@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gh-releases.R
+\name{ghr$list}
+\alias{ghr$list}
+\title{List GitHub releases}
+\arguments{
+\item{repo}{Repository slug, e.g. \code{"cran/cli"}.}
+}
+\value{
+Data frame with columns:
+\itemize{
+\item \code{id}: release id,
+\item \code{name}: release name, usuaally the version number, possibly with
+a \code{v} prefix: \verb{3.6.1} or \code{v3.6.1}, but can be different.
+\item \code{tag_name}: usually the same as \code{name}.
+\item \code{created_at}: \code{POSIXct} vector.
+}
+}
+\description{
+Lists the last 100 releases for a GitHub repository.
+}
+\details{
+\code{ghr$async_list()} is the async version of \code{ghr$list()}.
+}
+\keyword{internal}
diff --git a/man/ghr-cash-list_assets.Rd b/man/ghr-cash-list_assets.Rd
new file mode 100644
index 00000000..b6bcafa5
--- /dev/null
+++ b/man/ghr-cash-list_assets.Rd
@@ -0,0 +1,29 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gh-releases.R
+\name{ghr$list_assets}
+\alias{ghr$list_assets}
+\title{List assets of a release}
+\usage{
+ghr$list_assets(repo, tag)
+}
+\arguments{
+\item{repo}{Repository slug, e.g. \code{"cran/cli"}.}
+
+\item{tag}{Tag to query.}
+}
+\value{
+Data frame with columns:
+\itemize{
+\item \code{id}: asset id,
+\item \code{name}: file name of the asset,
+\item \code{download_url}: download URL,
+\item \code{size}: size in bytes,
+\item \code{created_at}: \code{POSIXct} vector,
+\item \code{updated_at}: \code{POSXct} vector,
+\item \code{content_type}: content type of asset.
+}
+}
+\description{
+\code{ghr$async_list_assets()} is the async version of \code{ghr$list_assets()}
+}
+\keyword{internal}
diff --git a/man/repo-cash-add.Rd b/man/repo-cash-add.Rd
new file mode 100644
index 00000000..6675986c
--- /dev/null
+++ b/man/repo-cash-add.Rd
@@ -0,0 +1,21 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/repo.R
+\name{repo$add}
+\alias{repo$add}
+\title{Add a package to a repository}
+\usage{
+repo$add(file, ..., path = ".")
+}
+\arguments{
+\item{file}{Package file.}
+
+\item{...}{Ignored currently.}
+
+\item{path}{Path to repository. Must contain a \code{PACKAGES} file.}
+}
+\description{
+It does not check if any version of the package is already
+in the repository. If you want to \emph{update} a package, use
+\code{repo_update()}.
+}
+\keyword{internal}
diff --git a/man/repo-cash-delete.Rd b/man/repo-cash-delete.Rd
new file mode 100644
index 00000000..129443b1
--- /dev/null
+++ b/man/repo-cash-delete.Rd
@@ -0,0 +1,23 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/repo.R
+\name{repo$delete}
+\alias{repo$delete}
+\title{Delete packages from repository metadata}
+\usage{
+repo$delete(package, ..., path = ".")
+}
+\arguments{
+\item{package}{Package name.}
+
+\item{...}{Other fields to match, they must be named. Matching is
+case insensitive.}
+
+\item{path}{Path to repository. Must contain a \code{PACKAGES} file.}
+}
+\description{
+All matching packages will be removed.
+}
+\details{
+It does not delete the files themselves.
+}
+\keyword{internal}
diff --git a/man/repo-cash-list.Rd b/man/repo-cash-list.Rd
new file mode 100644
index 00000000..9b773fb3
--- /dev/null
+++ b/man/repo-cash-list.Rd
@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/repo.R
+\name{repo$list}
+\alias{repo$list}
+\title{List packages in a reporitory}
+\usage{
+repo_list(..., path = ".")
+}
+\arguments{
+\item{...}{Ignored currently.}
+
+\item{path}{Path to repository. Must contain a \code{PACKAGES} file.}
+}
+\value{
+Data frame of package data.
+}
+\description{
+List packages in a reporitory
+}
+\keyword{internal}
diff --git a/man/repo-cash-udpate_gh.Rd b/man/repo-cash-udpate_gh.Rd
new file mode 100644
index 00000000..d25d1711
--- /dev/null
+++ b/man/repo-cash-udpate_gh.Rd
@@ -0,0 +1,35 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/repo.R
+\name{repo$udpate_gh}
+\alias{repo$udpate_gh}
+\title{Update a file in a package metadata, stored on GitHub}
+\usage{
+repo$update_gh(repo, subdir, file)
+}
+\arguments{
+\item{repo}{Github slug, e.g. \code{r-hub/repos}.}
+
+\item{subdir}{Subdirectory in the GitHub repo, where the R package
+metadata should be updated. It must exist in the repository.
+If it does not have \verb{PACKAGES*} files, then they will be created.}
+
+\item{file}{Package file to add. The file will \emph{not} be added to the
+repository.}
+}
+\description{
+\enumerate{
+\item Clones the GitHub repository.
+\item Calls \code{repo_update()} with \code{file}, in the \code{subdir} directory.
+\item Adds and commits changes.
+\item Pushes the git repository to GitHub.
+If the push fails, then it resets the git repository, pulls it from
+GitHub and tries the update process again, until the push suceeds.
+}
+}
+\details{
+This function needs command line git installed.
+
+It sets up a \code{cache} credential helper, so the \verb{git push} works
+without interaction with the user.
+}
+\keyword{internal}
diff --git a/man/repo-cash-update.Rd b/man/repo-cash-update.Rd
new file mode 100644
index 00000000..dcd00969
--- /dev/null
+++ b/man/repo-cash-update.Rd
@@ -0,0 +1,26 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/repo.R
+\name{repo$update}
+\alias{repo$update}
+\title{Update a package in a repository}
+\usage{
+repo$update(file, ..., path = ".")
+}
+\arguments{
+\item{file}{Package file.}
+
+\item{...}{Ignored currently.}
+
+\item{path}{Path to repository. Must contain a \code{PACKAGES} file.}
+}
+\description{
+Previous version of the same package are removed. In particular,
+it removes packages with matching:
+\itemize{
+\item package name (\code{Package} field),
+\item R version (\code{Rversion} field),
+\item same OS (\code{OS} field), or no \code{OS} field,
+\item same architecture (\code{Arch} field), or not \code{Arch} field.
+}
+}
+\keyword{internal}

From 2c661b181126b3dc7be724d4ab0e920bcfdb73b1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Mon, 1 May 2023 15:19:16 +0200
Subject: [PATCH 08/46] Spelling fixes

---
 R/gh-releases.R                                        |  2 +-
 R/repo.R                                               | 10 +++++-----
 inst/WORDLIST                                          |  1 +
 man/ghr-cash-list.Rd                                   |  2 +-
 man/repo-cash-list.Rd                                  |  4 ++--
 man/{repo-cash-udpate_gh.Rd => repo-cash-update_gh.Rd} | 10 +++++-----
 6 files changed, 15 insertions(+), 14 deletions(-)
 rename man/{repo-cash-udpate_gh.Rd => repo-cash-update_gh.Rd} (79%)

diff --git a/R/gh-releases.R b/R/gh-releases.R
index c54bf526..ef992688 100644
--- a/R/gh-releases.R
+++ b/R/gh-releases.R
@@ -241,7 +241,7 @@ ghr <- local({
 #' @param repo Repository slug, e.g. `"cran/cli"`.
 #' @return Data frame with columns:
 #'   * `id`: release id,
-#'   * `name`: release name, usuaally the version number, possibly with
+#'   * `name`: release name, usually the version number, possibly with
 #'     a `v` prefix: `3.6.1` or `v3.6.1`, but can be different.
 #'   * `tag_name`: usually the same as `name`.
 #'   * `created_at`: `POSIXct` vector.
diff --git a/R/repo.R b/R/repo.R
index 1ef29233..9081eb25 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -233,7 +233,7 @@ repo <- local({
 # -------------------------------------------------------------------------
 # Docs
 
-#' List packages in a reporitory
+#' List packages in a repository
 #'
 #' @name repo$list
 #' @keywords internal
@@ -300,18 +300,18 @@ repo$update
 #' 3. Adds and commits changes.
 #' 4. Pushes the git repository to GitHub.
 #' If the push fails, then it resets the git repository, pulls it from
-#' GitHub and tries the update process again, until the push suceeds.
+#' GitHub and tries the update process again, until the push succeeds.
 #'
 #' This function needs command line git installed.
 #'
 #' It sets up a `cache` credential helper, so the `git push` works
 #' without interaction with the user.
 #'
-#' @name repo$udpate_gh
+#' @name repo$update_gh
 #' @keywords internal
 #' @usage repo$update_gh(repo, subdir, file)
-#' @param repo Github slug, e.g. `r-hub/repos`.
-#' @param subdir Subdirectory in the GitHub repo, where the R package
+#' @param repo GitHub slug, e.g. `r-hub/repos`.
+#' @param subdir Subdirectory in the GitHub repository, where the R package
 #'   metadata should be updated. It must exist in the repository.
 #'   If it does not have `PACKAGES*` files, then they will be created.
 #' @param file Package file to add. The file will _not_ be added to the
diff --git a/inst/WORDLIST b/inst/WORDLIST
index 70190d6a..c92f9d5b 100644
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@@ -34,6 +34,7 @@ packfiles
 pak
 pkgcache
 pkgdown
+prerelease
 shorthands
 tibbles
 uncompress
diff --git a/man/ghr-cash-list.Rd b/man/ghr-cash-list.Rd
index acabb8d7..874db17b 100644
--- a/man/ghr-cash-list.Rd
+++ b/man/ghr-cash-list.Rd
@@ -10,7 +10,7 @@
 Data frame with columns:
 \itemize{
 \item \code{id}: release id,
-\item \code{name}: release name, usuaally the version number, possibly with
+\item \code{name}: release name, usually the version number, possibly with
 a \code{v} prefix: \verb{3.6.1} or \code{v3.6.1}, but can be different.
 \item \code{tag_name}: usually the same as \code{name}.
 \item \code{created_at}: \code{POSIXct} vector.
diff --git a/man/repo-cash-list.Rd b/man/repo-cash-list.Rd
index 9b773fb3..3ee29f48 100644
--- a/man/repo-cash-list.Rd
+++ b/man/repo-cash-list.Rd
@@ -2,7 +2,7 @@
 % Please edit documentation in R/repo.R
 \name{repo$list}
 \alias{repo$list}
-\title{List packages in a reporitory}
+\title{List packages in a repository}
 \usage{
 repo_list(..., path = ".")
 }
@@ -15,6 +15,6 @@ repo_list(..., path = ".")
 Data frame of package data.
 }
 \description{
-List packages in a reporitory
+List packages in a repository
 }
 \keyword{internal}
diff --git a/man/repo-cash-udpate_gh.Rd b/man/repo-cash-update_gh.Rd
similarity index 79%
rename from man/repo-cash-udpate_gh.Rd
rename to man/repo-cash-update_gh.Rd
index d25d1711..e5a739cb 100644
--- a/man/repo-cash-udpate_gh.Rd
+++ b/man/repo-cash-update_gh.Rd
@@ -1,15 +1,15 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/repo.R
-\name{repo$udpate_gh}
-\alias{repo$udpate_gh}
+\name{repo$update_gh}
+\alias{repo$update_gh}
 \title{Update a file in a package metadata, stored on GitHub}
 \usage{
 repo$update_gh(repo, subdir, file)
 }
 \arguments{
-\item{repo}{Github slug, e.g. \code{r-hub/repos}.}
+\item{repo}{GitHub slug, e.g. \code{r-hub/repos}.}
 
-\item{subdir}{Subdirectory in the GitHub repo, where the R package
+\item{subdir}{Subdirectory in the GitHub repository, where the R package
 metadata should be updated. It must exist in the repository.
 If it does not have \verb{PACKAGES*} files, then they will be created.}
 
@@ -23,7 +23,7 @@ repository.}
 \item Adds and commits changes.
 \item Pushes the git repository to GitHub.
 If the push fails, then it resets the git repository, pulls it from
-GitHub and tries the update process again, until the push suceeds.
+GitHub and tries the update process again, until the push succeeds.
 }
 }
 \details{

From 48366e92838f93e51c6d34371099b7c4b93b3200 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 2 May 2023 11:21:23 +0200
Subject: [PATCH 09/46] Refactor ghr and repo docs

To please `R CMD check`.
---
 R/gh-releases.R             | 199 ++++++++++++++++++++++++------------
 R/repo.R                    | 155 +++++++++++++++++++---------
 man/ghr-cash-add_asset.Rd   |  26 -----
 man/ghr-cash-create.Rd      |  37 -------
 man/ghr-cash-get.Rd         |  19 ----
 man/ghr-cash-list.Rd        |  25 -----
 man/ghr-cash-list_assets.Rd |  29 ------
 man/ghr.Rd                  | 185 +++++++++++++++++++++++++++++++++
 man/repo-cash-add.Rd        |  21 ----
 man/repo-cash-delete.Rd     |  23 -----
 man/repo-cash-list.Rd       |  20 ----
 man/repo-cash-update.Rd     |  26 -----
 man/repo-cash-update_gh.Rd  |  35 -------
 man/repo.Rd                 | 170 ++++++++++++++++++++++++++++++
 14 files changed, 591 insertions(+), 379 deletions(-)
 delete mode 100644 man/ghr-cash-add_asset.Rd
 delete mode 100644 man/ghr-cash-create.Rd
 delete mode 100644 man/ghr-cash-get.Rd
 delete mode 100644 man/ghr-cash-list.Rd
 delete mode 100644 man/ghr-cash-list_assets.Rd
 create mode 100644 man/ghr.Rd
 delete mode 100644 man/repo-cash-add.Rd
 delete mode 100644 man/repo-cash-delete.Rd
 delete mode 100644 man/repo-cash-list.Rd
 delete mode 100644 man/repo-cash-update.Rd
 delete mode 100644 man/repo-cash-update_gh.Rd
 create mode 100644 man/repo.Rd

diff --git a/R/gh-releases.R b/R/gh-releases.R
index ef992688..64dd423b 100644
--- a/R/gh-releases.R
+++ b/R/gh-releases.R
@@ -228,84 +228,137 @@ ghr <- local({
 })
 
 # -------------------------------------------------------------------------
-# Docs
 
-#' List GitHub releases
+#' GitHub Releases
 #'
-#' Lists the last 100 releases for a GitHub repository.
+#' Functions to query and manipulate GitHub releases.
 #'
+#' @details
+#'
+#' ## List releases
+#'
+#' ### Description
+#'
+#' `ghr$list()` lists the last 100 releases for a GitHub repository.
 #' `ghr$async_list()` is the async version of `ghr$list()`.
 #'
-#' @name ghr$list
-#' @keywords internal
-#' @param repo Repository slug, e.g. `"cran/cli"`.
-#' @return Data frame with columns:
+#' ### Usage
+#' ```
+#' ghr$list(repo)
+#' ghr$async_list(repo)
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `repo`: repository slug, e.g. `"cran/cli"`.
+#'
+#' ### Value
+#'
+#' Data frame with columns:
 #'   * `id`: release id,
 #'   * `name`: release name, usually the version number, possibly with
 #'     a `v` prefix: `3.6.1` or `v3.6.1`, but can be different.
 #'   * `tag_name`: usually the same as `name`.
 #'   * `created_at`: `POSIXct` vector.
-
-ghr$list
-
-#' Get information about a release, including release assets
+#'
+# -------------------------------------------------------------------------
+#'
+#' ## Get information about a release
+#'
+#' ### Description
+#'
+#' `ghr$get()` downloads information about a release, including
+#' release assets.
 #'
 #' `ghr$async_get` is the async version of `ghr$get`.
 #'
-#' @name ghr$get
-#' @keywords internal
-#' @param repo Repository slug, e.g. `"cran/cli"`.
-#' @param tag Tag to get.
-#' @return Named list, see
-#'   <https://docs.github.com/en/rest/releases/releases#get-a-release>
-#'   for the entries.
-
-ghr$get
-
-#' List assets of a release
+#' ### Usage
+#' ```
+#' ghr$get(repo, tag)
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `repo`: repository slug, e.g. `"cran/cli"`.
+#' * `tag`: tag to get.
+#'
+#' ### Value
+#'
+#' Named list, see
+#' <https://docs.github.com/en/rest/releases/releases#get-a-release>
+#' for the entries.
+#'
+# -------------------------------------------------------------------------
+#'
+#' ## List assets of a release
+#'
+#' ### Description
+#'
+#' `ghr$list_assets()` lists the last 100 assets of a release.
 #'
 #' `ghr$async_list_assets()` is the async version of `ghr$list_assets()`
 #'
-#' @name ghr$list_assets
-#' @keywords internal
-#' @usage ghr$list_assets(repo, tag)
-#' @param repo Repository slug, e.g. `"cran/cli"`.
-#' @param tag Tag to query.
-#' @return Data frame with columns:
-#'   * `id`: asset id,
-#'   * `name`: file name of the asset,
-#'   * `download_url`: download URL,
-#'   * `size`: size in bytes,
-#'   * `created_at`: `POSIXct` vector,
-#'   * `updated_at`: `POSXct` vector,
-#'   * `content_type`: content type of asset.
-
-ghr$list_assets
-
-#' Add asset got GitHub release
+#' ### Usage
+#' ```
+#' ghr$list_assets(repo, tag)
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `repo`: repository slug, e.g. `"cran/cli"`.
+#' * `tag`: tag to query.
+#'
+#' ### Value
+#'
+#' Data frame with columns:
+#' * `id`: asset id,
+#' * `name`: file name of the asset,
+#' * `download_url`: download URL,
+#' * `size`: size in bytes,
+#' * `created_at`: `POSIXct` vector,
+#' * `updated_at`: `POSXct` vector,
+#' * `content_type`: content type of asset.
+#'
+# -------------------------------------------------------------------------
+#'
+#' ## Add a release asset
+#'
+#' ### Description
+#'
+#' `ghr$add_asset()` adds an asset to a GitHub release.
 #'
 #' `ghr$async_add_asset()` is the async version of `ghr$add_asset()`.
 #'
-#' @name ghr$add_asset
-#' @keywords internal
-#' @usage ghr%add_asset(repo, file, tag, name = basename(file))
-#' @param repo Repository slug, e.g. `cran/cli`.
-#' @param file Path to file to upload as an asset.
-#' @param tag Tag name to add the asset to. It must exist on GitHub.
-#' @param name File name of the asset in the release.
-#' @return Response from GitHub as a named list. See
-#'   <https://docs.github.com/en/rest/releases/assets#upload-a-release-asset>
-#'   for the structure.
-
-ghr$add_asset
-
-#' Create a GitHub release
+#' ### Usage
+#' ```
+#' ghr%add_asset(repo, file, tag, name = basename(file))
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `repo`: repository slug, e.g. `cran/cli`.
+#' * `file`: path to file to upload as an asset.
+#' * `tag`: tag name to add the asset to. It must exist on GitHub.
+#' * `name`: file name of the asset in the release.
+#'
+#' ### Value
+#'
+#' Response from GitHub as a named list. See
+#' <https://docs.github.com/en/rest/releases/assets#upload-a-release-asset>
+#' for the structure.
+#'
+# -------------------------------------------------------------------------
+#'
+#' ## Create a GitHub release
+#'
+#' ### Description
+#'
+#' `ghr$create()` creates a GitHub release from a tag.
 #'
 #' `ghr$async_create()` is an async version of `ghr$create()`.
 #'
-#' @name ghr$create
-#' @keywords internal
-#' @usage
+#' ### Usage
+#' ```
 #' ghr$create(
 #'   repo,
 #'   tag,
@@ -314,14 +367,26 @@ ghr$add_asset
 #'   prerelease = FALSE,
 #'   generage_release_notes = FALSE
 #' )
-#' @param repo Repository slug, e.g. `cran/cli`.
-#' @param tag Tag name to create a release for. It must exist on GitHub.
-#' @param description Release description.
-#' @param draft Whether to create a draft release.
-#' @param prerelease Whether to create a prerelease.
-#' @param generate_release_notes Whether to auto-generate release notes.
-#' @return Response from GitHub as a named list. See
-#'   <https://docs.github.com/en/rest/releases/releases#create-a-release>
-#'   for the structure.
-
-ghr$create
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `repo`: repository slug, e.g. `cran/cli`.
+#' * `tag`: tag name to create a release for. It must exist on GitHub.
+#' * `description`: release description.
+#' * `draft`: whether to create a draft release.
+#' * `prerelease`: whether to create a prerelease.
+#' * `generate_release_notes`: whether to auto-generate release notes.
+#'
+#' ### Value
+#'
+#' Response from GitHub as a named list. See
+#' <https://docs.github.com/en/rest/releases/releases#create-a-release>
+#' for the structure.
+#'
+# -------------------------------------------------------------------------
+#'
+#' @name ghr
+#' @keywords internal
+
+ghr
diff --git a/R/repo.R b/R/repo.R
index 9081eb25..fa2c05ec 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -214,6 +214,13 @@ repo <- local({
     git("push", "--porcelain", "origin", stderr_to_stdout = TRUE)
   }
 
+  repo_columns <- function() {
+    dir.create(tmp <- tempfile())
+    on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
+    file.create(file.path(tmp, "PACKAGES"))
+    paste0("* `", colnames(repo_list(path = tmp)), "`", collapse = "\n")
+  }
+
   # -----------------------------------------------------------------------
   # Exported functions
 
@@ -231,51 +238,82 @@ repo <- local({
 })
 
 # -------------------------------------------------------------------------
-# Docs
 
-#' List packages in a repository
+#' Query and manipulate CRAN-like repositories
 #'
-#' @name repo$list
-#' @keywords internal
-#' @usage repo_list(..., path = ".")
-#' @param ... Ignored currently.
-#' @param path Path to repository. Must contain a `PACKAGES` file.
-#' @return Data frame of package data.
-
-repo$list
-
-#' Delete packages from repository metadata
+#' @details
 #'
-#' All matching packages will be removed.
+#' ## List packages in a repository
+#'
+#' `repo$list()` lists packages in a repository. It reads the `PACKAGES`
+#' file containing the repository metadata.
+#'
+#' ### Usage
+#' ```
+#' repo_list(..., path = ".")
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `...`: ignored currently.
+#' * `path`: path to repository. Must contain a `PACKAGES` file.
+#'
+#' ### Value
+#'
+#' Data frame of package data, a data frame with at least the following
+#' columns, possibly more if there are other entries in the metadata:
+#' `r repo$.internal$repo_columns()`
 #'
+# -------------------------------------------------------------------------
+#'
+#' ## Delete packages from repository metadata
+#'
+#' `repo_delete()` deletes matching packages from the repository
+#' metadata.
+#'
+#' ### Description
+#'
+#' All matching packages will be removed.
 #' It does not delete the files themselves.
 #'
-#' @name repo$delete
-#' @keywords internal
-#' @usage repo$delete(package, ..., path = ".")
-#' @param package Package name.
-#' @param ... Other fields to match, they must be named. Matching is
+#' ### Usage
+#' ```
+#' repo$delete(package, ..., path = ".")
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `package`: package name.
+#' * `...`: other fields to match, they must be named. Matching is
 #'   case insensitive.
-#' @param path Path to repository. Must contain a `PACKAGES` file.
-
-repo$delete
-
-#' Add a package to a repository
+#' * `path`: path to repository. Must contain a `PACKAGES` file.
+#'
+# -------------------------------------------------------------------------
+#'
+#' ## Add a package to a repository
+#'
+#' ### Description
 #'
 #' It does not check if any version of the package is already
 #' in the repository. If you want to _update_ a package, use
-#' `repo_update()`.
+#' `repo$update()`.
 #'
-#' @name repo$add
-#' @keywords internal
-#' @usage repo$add(file, ..., path = ".")
-#' @param file Package file.
-#' @param ... Ignored currently.
-#' @param path Path to repository. Must contain a `PACKAGES` file.
-
-repo$add
-
-#' Update a package in a repository
+#' ### Usage
+#' ```
+#' repo$add(file, ..., path = ".")
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `file Package file.
+#' * `... Ignored currently.
+#' * `path Path to repository. Must contain a `PACKAGES` file.
+#'
+# -------------------------------------------------------------------------
+#'
+#' ## Update a package in a repository
+#'
+#' ### Description
 #'
 #' Previous version of the same package are removed. In particular,
 #' it removes packages with matching:
@@ -284,16 +322,22 @@ repo$add
 #' - same OS (`OS` field), or no `OS` field,
 #' - same architecture (`Arch` field), or not `Arch` field.
 #'
-#' @name repo$update
-#' @keywords internal
-#' @usage repo$update(file, ..., path = ".")
-#' @param file Package file.
-#' @param ... Ignored currently.
-#' @param path Path to repository. Must contain a `PACKAGES` file.
-
-repo$update
-
-#' Update a file in a package metadata, stored on GitHub
+#' ### Usage
+#' ```
+#' repo$update(file, ..., path = ".")
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `file Package file.
+#' * `... Ignored currently.
+#' * `path Path to repository. Must contain a `PACKAGES` file.
+#'
+# -------------------------------------------------------------------------
+#'
+#' ## Update a file in a package metadata, stored on GitHub
+#'
+#' ### Description
 #'
 #' 1. Clones the GitHub repository.
 #' 2. Calls `repo_update()` with `file`, in the `subdir` directory.
@@ -307,14 +351,23 @@ repo$update
 #' It sets up a `cache` credential helper, so the `git push` works
 #' without interaction with the user.
 #'
-#' @name repo$update_gh
-#' @keywords internal
-#' @usage repo$update_gh(repo, subdir, file)
-#' @param repo GitHub slug, e.g. `r-hub/repos`.
-#' @param subdir Subdirectory in the GitHub repository, where the R package
+#' ### Usage
+#' ```
+#' repo$update_gh(repo, subdir, file)
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `repo`: GitHub slug, e.g. `r-hub/repos`.
+#' * `subdir`: subdirectory in the GitHub repository, where the R package
 #'   metadata should be updated. It must exist in the repository.
 #'   If it does not have `PACKAGES*` files, then they will be created.
-#' @param file Package file to add. The file will _not_ be added to the
+#' * `file`: package file to add. The file will _not_ be added to the
 #'   repository.
+#'
+# -------------------------------------------------------------------------
+#'
+#' @name repo
+#' @keywords internal
 
-repo$update_gh
+repo
diff --git a/man/ghr-cash-add_asset.Rd b/man/ghr-cash-add_asset.Rd
deleted file mode 100644
index b5dc7397..00000000
--- a/man/ghr-cash-add_asset.Rd
+++ /dev/null
@@ -1,26 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/gh-releases.R
-\name{ghr$add_asset}
-\alias{ghr$add_asset}
-\title{Add asset got GitHub release}
-\usage{
-ghr%add_asset(repo, file, tag, name = basename(file))
-}
-\arguments{
-\item{repo}{Repository slug, e.g. \code{cran/cli}.}
-
-\item{file}{Path to file to upload as an asset.}
-
-\item{tag}{Tag name to add the asset to. It must exist on GitHub.}
-
-\item{name}{File name of the asset in the release.}
-}
-\value{
-Response from GitHub as a named list. See
-\url{https://docs.github.com/en/rest/releases/assets#upload-a-release-asset}
-for the structure.
-}
-\description{
-\code{ghr$async_add_asset()} is the async version of \code{ghr$add_asset()}.
-}
-\keyword{internal}
diff --git a/man/ghr-cash-create.Rd b/man/ghr-cash-create.Rd
deleted file mode 100644
index def111ce..00000000
--- a/man/ghr-cash-create.Rd
+++ /dev/null
@@ -1,37 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/gh-releases.R
-\name{ghr$create}
-\alias{ghr$create}
-\title{Create a GitHub release}
-\usage{
-ghr$create(
-  repo,
-  tag,
-  description = "",
-  draft = FALSE,
-  prerelease = FALSE,
-  generage_release_notes = FALSE
-)
-}
-\arguments{
-\item{repo}{Repository slug, e.g. \code{cran/cli}.}
-
-\item{tag}{Tag name to create a release for. It must exist on GitHub.}
-
-\item{description}{Release description.}
-
-\item{draft}{Whether to create a draft release.}
-
-\item{prerelease}{Whether to create a prerelease.}
-
-\item{generate_release_notes}{Whether to auto-generate release notes.}
-}
-\value{
-Response from GitHub as a named list. See
-\url{https://docs.github.com/en/rest/releases/releases#create-a-release}
-for the structure.
-}
-\description{
-\code{ghr$async_create()} is an async version of \code{ghr$create()}.
-}
-\keyword{internal}
diff --git a/man/ghr-cash-get.Rd b/man/ghr-cash-get.Rd
deleted file mode 100644
index e45fa2ba..00000000
--- a/man/ghr-cash-get.Rd
+++ /dev/null
@@ -1,19 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/gh-releases.R
-\name{ghr$get}
-\alias{ghr$get}
-\title{Get information about a release, including release assets}
-\arguments{
-\item{repo}{Repository slug, e.g. \code{"cran/cli"}.}
-
-\item{tag}{Tag to get.}
-}
-\value{
-Named list, see
-\url{https://docs.github.com/en/rest/releases/releases#get-a-release}
-for the entries.
-}
-\description{
-\code{ghr$async_get} is the async version of \code{ghr$get}.
-}
-\keyword{internal}
diff --git a/man/ghr-cash-list.Rd b/man/ghr-cash-list.Rd
deleted file mode 100644
index 874db17b..00000000
--- a/man/ghr-cash-list.Rd
+++ /dev/null
@@ -1,25 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/gh-releases.R
-\name{ghr$list}
-\alias{ghr$list}
-\title{List GitHub releases}
-\arguments{
-\item{repo}{Repository slug, e.g. \code{"cran/cli"}.}
-}
-\value{
-Data frame with columns:
-\itemize{
-\item \code{id}: release id,
-\item \code{name}: release name, usually the version number, possibly with
-a \code{v} prefix: \verb{3.6.1} or \code{v3.6.1}, but can be different.
-\item \code{tag_name}: usually the same as \code{name}.
-\item \code{created_at}: \code{POSIXct} vector.
-}
-}
-\description{
-Lists the last 100 releases for a GitHub repository.
-}
-\details{
-\code{ghr$async_list()} is the async version of \code{ghr$list()}.
-}
-\keyword{internal}
diff --git a/man/ghr-cash-list_assets.Rd b/man/ghr-cash-list_assets.Rd
deleted file mode 100644
index b6bcafa5..00000000
--- a/man/ghr-cash-list_assets.Rd
+++ /dev/null
@@ -1,29 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/gh-releases.R
-\name{ghr$list_assets}
-\alias{ghr$list_assets}
-\title{List assets of a release}
-\usage{
-ghr$list_assets(repo, tag)
-}
-\arguments{
-\item{repo}{Repository slug, e.g. \code{"cran/cli"}.}
-
-\item{tag}{Tag to query.}
-}
-\value{
-Data frame with columns:
-\itemize{
-\item \code{id}: asset id,
-\item \code{name}: file name of the asset,
-\item \code{download_url}: download URL,
-\item \code{size}: size in bytes,
-\item \code{created_at}: \code{POSIXct} vector,
-\item \code{updated_at}: \code{POSXct} vector,
-\item \code{content_type}: content type of asset.
-}
-}
-\description{
-\code{ghr$async_list_assets()} is the async version of \code{ghr$list_assets()}
-}
-\keyword{internal}
diff --git a/man/ghr.Rd b/man/ghr.Rd
new file mode 100644
index 00000000..f946cff1
--- /dev/null
+++ b/man/ghr.Rd
@@ -0,0 +1,185 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gh-releases.R
+\name{ghr}
+\alias{ghr}
+\title{GitHub Releases}
+\description{
+Functions to query and manipulate GitHub releases.
+}
+\details{
+\subsection{List releases}{
+\subsection{Description}{
+
+\code{ghr$list()} lists the last 100 releases for a GitHub repository.
+\code{ghr$async_list()} is the async version of \code{ghr$list()}.
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{ghr$list(repo)
+ghr$async_list(repo)
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{repo}: repository slug, e.g. \code{"cran/cli"}.
+}
+}
+
+\subsection{Value}{
+
+Data frame with columns:
+\itemize{
+\item \code{id}: release id,
+\item \code{name}: release name, usually the version number, possibly with
+a \code{v} prefix: \verb{3.6.1} or \code{v3.6.1}, but can be different.
+\item \code{tag_name}: usually the same as \code{name}.
+\item \code{created_at}: \code{POSIXct} vector.
+}
+}
+
+}
+
+\subsection{Get information about a release}{
+\subsection{Description}{
+
+\code{ghr$get()} downloads information about a release, including
+release assets.
+
+\code{ghr$async_get} is the async version of \code{ghr$get}.
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{ghr$get(repo, tag)
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{repo}: repository slug, e.g. \code{"cran/cli"}.
+\item \code{tag}: tag to get.
+}
+}
+
+\subsection{Value}{
+
+Named list, see
+\url{https://docs.github.com/en/rest/releases/releases#get-a-release}
+for the entries.
+}
+
+}
+
+\subsection{List assets of a release}{
+\subsection{Description}{
+
+\code{ghr$list_assets()} lists the last 100 assets of a release.
+
+\code{ghr$async_list_assets()} is the async version of \code{ghr$list_assets()}
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{ghr$list_assets(repo, tag)
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{repo}: repository slug, e.g. \code{"cran/cli"}.
+\item \code{tag}: tag to query.
+}
+}
+
+\subsection{Value}{
+
+Data frame with columns:
+\itemize{
+\item \code{id}: asset id,
+\item \code{name}: file name of the asset,
+\item \code{download_url}: download URL,
+\item \code{size}: size in bytes,
+\item \code{created_at}: \code{POSIXct} vector,
+\item \code{updated_at}: \code{POSXct} vector,
+\item \code{content_type}: content type of asset.
+}
+}
+
+}
+
+\subsection{Add a release asset}{
+\subsection{Description}{
+
+\code{ghr$add_asset()} adds an asset to a GitHub release.
+
+\code{ghr$async_add_asset()} is the async version of \code{ghr$add_asset()}.
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{ghr\%add_asset(repo, file, tag, name = basename(file))
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{repo}: repository slug, e.g. \code{cran/cli}.
+\item \code{file}: path to file to upload as an asset.
+\item \code{tag}: tag name to add the asset to. It must exist on GitHub.
+\item \code{name}: file name of the asset in the release.
+}
+}
+
+\subsection{Value}{
+
+Response from GitHub as a named list. See
+\url{https://docs.github.com/en/rest/releases/assets#upload-a-release-asset}
+for the structure.
+}
+
+}
+
+\subsection{Create a GitHub release}{
+\subsection{Description}{
+
+\code{ghr$create()} creates a GitHub release from a tag.
+
+\code{ghr$async_create()} is an async version of \code{ghr$create()}.
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{ghr$create(
+  repo,
+  tag,
+  description = "",
+  draft = FALSE,
+  prerelease = FALSE,
+  generage_release_notes = FALSE
+)
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{repo}: repository slug, e.g. \code{cran/cli}.
+\item \code{tag}: tag name to create a release for. It must exist on GitHub.
+\item \code{description}: release description.
+\item \code{draft}: whether to create a draft release.
+\item \code{prerelease}: whether to create a prerelease.
+\item \code{generate_release_notes}: whether to auto-generate release notes.
+}
+}
+
+\subsection{Value}{
+
+Response from GitHub as a named list. See
+\url{https://docs.github.com/en/rest/releases/releases#create-a-release}
+for the structure.
+}
+
+}
+}
+\keyword{internal}
diff --git a/man/repo-cash-add.Rd b/man/repo-cash-add.Rd
deleted file mode 100644
index 6675986c..00000000
--- a/man/repo-cash-add.Rd
+++ /dev/null
@@ -1,21 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/repo.R
-\name{repo$add}
-\alias{repo$add}
-\title{Add a package to a repository}
-\usage{
-repo$add(file, ..., path = ".")
-}
-\arguments{
-\item{file}{Package file.}
-
-\item{...}{Ignored currently.}
-
-\item{path}{Path to repository. Must contain a \code{PACKAGES} file.}
-}
-\description{
-It does not check if any version of the package is already
-in the repository. If you want to \emph{update} a package, use
-\code{repo_update()}.
-}
-\keyword{internal}
diff --git a/man/repo-cash-delete.Rd b/man/repo-cash-delete.Rd
deleted file mode 100644
index 129443b1..00000000
--- a/man/repo-cash-delete.Rd
+++ /dev/null
@@ -1,23 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/repo.R
-\name{repo$delete}
-\alias{repo$delete}
-\title{Delete packages from repository metadata}
-\usage{
-repo$delete(package, ..., path = ".")
-}
-\arguments{
-\item{package}{Package name.}
-
-\item{...}{Other fields to match, they must be named. Matching is
-case insensitive.}
-
-\item{path}{Path to repository. Must contain a \code{PACKAGES} file.}
-}
-\description{
-All matching packages will be removed.
-}
-\details{
-It does not delete the files themselves.
-}
-\keyword{internal}
diff --git a/man/repo-cash-list.Rd b/man/repo-cash-list.Rd
deleted file mode 100644
index 3ee29f48..00000000
--- a/man/repo-cash-list.Rd
+++ /dev/null
@@ -1,20 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/repo.R
-\name{repo$list}
-\alias{repo$list}
-\title{List packages in a repository}
-\usage{
-repo_list(..., path = ".")
-}
-\arguments{
-\item{...}{Ignored currently.}
-
-\item{path}{Path to repository. Must contain a \code{PACKAGES} file.}
-}
-\value{
-Data frame of package data.
-}
-\description{
-List packages in a repository
-}
-\keyword{internal}
diff --git a/man/repo-cash-update.Rd b/man/repo-cash-update.Rd
deleted file mode 100644
index dcd00969..00000000
--- a/man/repo-cash-update.Rd
+++ /dev/null
@@ -1,26 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/repo.R
-\name{repo$update}
-\alias{repo$update}
-\title{Update a package in a repository}
-\usage{
-repo$update(file, ..., path = ".")
-}
-\arguments{
-\item{file}{Package file.}
-
-\item{...}{Ignored currently.}
-
-\item{path}{Path to repository. Must contain a \code{PACKAGES} file.}
-}
-\description{
-Previous version of the same package are removed. In particular,
-it removes packages with matching:
-\itemize{
-\item package name (\code{Package} field),
-\item R version (\code{Rversion} field),
-\item same OS (\code{OS} field), or no \code{OS} field,
-\item same architecture (\code{Arch} field), or not \code{Arch} field.
-}
-}
-\keyword{internal}
diff --git a/man/repo-cash-update_gh.Rd b/man/repo-cash-update_gh.Rd
deleted file mode 100644
index e5a739cb..00000000
--- a/man/repo-cash-update_gh.Rd
+++ /dev/null
@@ -1,35 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/repo.R
-\name{repo$update_gh}
-\alias{repo$update_gh}
-\title{Update a file in a package metadata, stored on GitHub}
-\usage{
-repo$update_gh(repo, subdir, file)
-}
-\arguments{
-\item{repo}{GitHub slug, e.g. \code{r-hub/repos}.}
-
-\item{subdir}{Subdirectory in the GitHub repository, where the R package
-metadata should be updated. It must exist in the repository.
-If it does not have \verb{PACKAGES*} files, then they will be created.}
-
-\item{file}{Package file to add. The file will \emph{not} be added to the
-repository.}
-}
-\description{
-\enumerate{
-\item Clones the GitHub repository.
-\item Calls \code{repo_update()} with \code{file}, in the \code{subdir} directory.
-\item Adds and commits changes.
-\item Pushes the git repository to GitHub.
-If the push fails, then it resets the git repository, pulls it from
-GitHub and tries the update process again, until the push succeeds.
-}
-}
-\details{
-This function needs command line git installed.
-
-It sets up a \code{cache} credential helper, so the \verb{git push} works
-without interaction with the user.
-}
-\keyword{internal}
diff --git a/man/repo.Rd b/man/repo.Rd
new file mode 100644
index 00000000..944cf21a
--- /dev/null
+++ b/man/repo.Rd
@@ -0,0 +1,170 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/repo.R
+\name{repo}
+\alias{repo}
+\title{Query and manipulate CRAN-like repositories}
+\description{
+Query and manipulate CRAN-like repositories
+}
+\details{
+\subsection{List packages in a repository}{
+
+\code{repo$list()} lists packages in a repository. It reads the \code{PACKAGES}
+file containing the repository metadata.
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{repo_list(..., path = ".")
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{...}: ignored currently.
+\item \code{path}: path to repository. Must contain a \code{PACKAGES} file.
+}
+}
+
+\subsection{Value}{
+
+Data frame of package data, a data frame with at least the following
+columns, possibly more if there are other entries in the metadata:
+\itemize{
+\item \code{Package}
+\item \code{Version}
+\item \code{Depends}
+\item \code{Imports}
+\item \code{Suggests}
+\item \code{Enhances}
+\item \code{LinkingTo}
+\item \code{License}
+\item \code{File}
+\item \code{DownloadURL}
+\item \code{OS}
+\item \code{Arch}
+\item \code{Built}
+\item \code{Filesize}
+\item \code{SHA256}
+\item \code{RVersion}
+\item \code{Platform}
+}
+}
+
+}
+
+\subsection{Delete packages from repository metadata}{
+
+\code{repo_delete()} deletes matching packages from the repository
+metadata.
+\subsection{Description}{
+
+All matching packages will be removed.
+It does not delete the files themselves.
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{repo$delete(package, ..., path = ".")
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{package}: package name.
+\item \code{...}: other fields to match, they must be named. Matching is
+case insensitive.
+\item \code{path}: path to repository. Must contain a \code{PACKAGES} file.
+}
+}
+
+}
+
+\subsection{Add a package to a repository}{
+\subsection{Description}{
+
+It does not check if any version of the package is already
+in the repository. If you want to \emph{update} a package, use
+\code{repo$update()}.
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{repo$add(file, ..., path = ".")
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item `file Package file.
+\item `... Ignored currently.
+\item \verb{path Path to repository. Must contain a }PACKAGES` file.
+}
+}
+
+}
+
+\subsection{Update a package in a repository}{
+\subsection{Description}{
+
+Previous version of the same package are removed. In particular,
+it removes packages with matching:
+\itemize{
+\item package name (\code{Package} field),
+\item R version (\code{Rversion} field),
+\item same OS (\code{OS} field), or no \code{OS} field,
+\item same architecture (\code{Arch} field), or not \code{Arch} field.
+}
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{repo$update(file, ..., path = ".")
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item `file Package file.
+\item `... Ignored currently.
+\item \verb{path Path to repository. Must contain a }PACKAGES` file.
+}
+}
+
+}
+
+\subsection{Update a file in a package metadata, stored on GitHub}{
+\subsection{Description}{
+\enumerate{
+\item Clones the GitHub repository.
+\item Calls \code{repo_update()} with \code{file}, in the \code{subdir} directory.
+\item Adds and commits changes.
+\item Pushes the git repository to GitHub.
+If the push fails, then it resets the git repository, pulls it from
+GitHub and tries the update process again, until the push succeeds.
+}
+
+This function needs command line git installed.
+
+It sets up a \code{cache} credential helper, so the \verb{git push} works
+without interaction with the user.
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{repo$update_gh(repo, subdir, file)
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{repo}: GitHub slug, e.g. \code{r-hub/repos}.
+\item \code{subdir}: subdirectory in the GitHub repository, where the R package
+metadata should be updated. It must exist in the repository.
+If it does not have \verb{PACKAGES*} files, then they will be created.
+\item \code{file}: package file to add. The file will \emph{not} be added to the
+repository.
+}
+}
+
+}
+}
+\keyword{internal}

From 4e210bf9c872d61ad651d608da538f86afa1e4a1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 2 May 2023 13:12:58 +0200
Subject: [PATCH 10/46] Builder: add internals ids to package and repo

---
 R/builder.R | 7 ++++++-
 R/repo.R    | 6 +++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/R/builder.R b/R/builder.R
index da5fa1cc..99e56bb1 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -7,7 +7,12 @@ pkg_build <- function(pkg, library = .libPaths()[1]) {
     ))
   }
   platform <- pkgcache::current_r_platform()
-  add_metadata(pkgdir, c(RemoteBuildPlatform = platform))
+  meta <- c(
+    RemoteBuildPlatform = platform,
+    GraphicsAPIVersion = pkgcache::get_graphics_api_version(),
+    InternalsId = pkgcache::get_internals_id()
+  )
+  add_metadata(pkgdir, meta)
   dsc <- desc::desc(file = pkgdir)
   version <- dsc$get_field("Version")
   rversion <- get_minor_r_version(getRversion())
diff --git a/R/repo.R b/R/repo.R
index fa2c05ec..515aef95 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -23,6 +23,8 @@ repo <- local({
       pkgs$SHA256 <- character()
       pkgs$RVersion <- character()
       pkgs$Platform <- character()
+      pkgs$GraphicsAPIVersion <- character()
+      pkgs$InternalsId <- character()
     }
 
     pkgs
@@ -152,7 +154,9 @@ repo <- local({
       Filesize = file.size(path),
       SHA256 = cli::hash_file_sha256(path),
       RVersion = rminor,
-      Platform = unname(desc$get("RemoteBuildPlatform"))
+      Platform = unname(desc$get("RemoteBuildPlatform")),
+      GraphicsAPIVersion = unname(desc$get("GraphicsAPIVersion")),
+      InternalsId = unname(desc$get("InternalsId"))
     )
 
     pkg

From 3b104dde0b681347272491c80fa4b5a110401d8d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 2 May 2023 14:03:28 +0200
Subject: [PATCH 11/46] pkg_build: allow extending the platform string

We'll need this for libc++ builds, and other special
cases, where the platform string itself is not enough
to be binary compatible.
---
 R/builder.R | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/R/builder.R b/R/builder.R
index 99e56bb1..a67b64d8 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -1,5 +1,6 @@
 
-pkg_build <- function(pkg, library = .libPaths()[1]) {
+pkg_build <- function(pkg, library = .libPaths()[1],
+                      flavour = Sys.getenv("PKG_BUILD_FLAVOUR")) {
   pkgdir <- file.path(library, pkg)
   if (!dir.exists(pkgdir)) {
     throw(pkg_error(
@@ -7,6 +8,9 @@ pkg_build <- function(pkg, library = .libPaths()[1]) {
     ))
   }
   platform <- pkgcache::current_r_platform()
+  if (nzchar(flavour %||% "")) {
+    platform <- paste0(platform, "-", flavour)
+  }
   meta <- c(
     RemoteBuildPlatform = platform,
     GraphicsAPIVersion = pkgcache::get_graphics_api_version(),
@@ -20,7 +24,12 @@ pkg_build <- function(pkg, library = .libPaths()[1]) {
   sys <- sysname()
   if (sys == "windows") {
     install_md5_sums(pkg)
-    fn <- paste0(pkg, "_", version, "_R", rversion, ".zip")
+    fn <- paste0(
+      pkg, "_", version, "_",
+      "R", rversion,
+      if (nzchar(flavour %||% "")) paste0("_", flavour),
+      ".zip"
+    )
     zip::zip(fn, pkgdir, mode = "cherry-pick")
 
   } else {

From 4a30ef03f00f213f70350c12e6652c2b38702240 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 2 May 2023 16:05:51 +0200
Subject: [PATCH 12/46] Update docs

---
 man/repo.Rd | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/man/repo.Rd b/man/repo.Rd
index 944cf21a..8a448292 100644
--- a/man/repo.Rd
+++ b/man/repo.Rd
@@ -46,6 +46,8 @@ columns, possibly more if there are other entries in the metadata:
 \item \code{SHA256}
 \item \code{RVersion}
 \item \code{Platform}
+\item \code{GraphicsAPIVersion}
+\item \code{InternalsId}
 }
 }
 

From 6eedcf06b82026a19d0a4e116f3c9a964aac4699 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 2 May 2023 16:06:13 +0200
Subject: [PATCH 13/46] Export pkg_build

---
 NAMESPACE        |  1 +
 R/builder.R      | 15 +++++++++++++++
 man/pkg_build.Rd | 30 ++++++++++++++++++++++++++++++
 3 files changed, 46 insertions(+)
 create mode 100644 man/pkg_build.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 336ce5b4..32a4b337 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -42,6 +42,7 @@ export(new_pkg_installation_plan)
 export(new_pkg_installation_proposal)
 export(parse_pkg_ref)
 export(parse_pkg_refs)
+export(pkg_build)
 export(pkg_dep_types)
 export(pkg_dep_types_hard)
 export(pkg_dep_types_soft)
diff --git a/R/builder.R b/R/builder.R
index a67b64d8..338b56d3 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -1,4 +1,19 @@
 
+#' Create a binary package from an installed package
+#'
+#' The built package will be in the current working directory.
+#'
+#' This function is currently experimental.
+#'
+#' @param pkg Package name.
+#' @param library Library path.
+#' @param flavour Platform flavour. Defaults to the `PKG_BUILD_FLAVOUR`
+#'   environment variable. If not `NULL` or an empty string, then it is
+#'   appended to the platform string with a dash.
+#' @return Path to the built package.
+#'
+#' @export
+
 pkg_build <- function(pkg, library = .libPaths()[1],
                       flavour = Sys.getenv("PKG_BUILD_FLAVOUR")) {
   pkgdir <- file.path(library, pkg)
diff --git a/man/pkg_build.Rd b/man/pkg_build.Rd
new file mode 100644
index 00000000..ae2a3f6a
--- /dev/null
+++ b/man/pkg_build.Rd
@@ -0,0 +1,30 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/builder.R
+\name{pkg_build}
+\alias{pkg_build}
+\title{Create a binary package from an installed package}
+\usage{
+pkg_build(
+  pkg,
+  library = .libPaths()[1],
+  flavour = Sys.getenv("PKG_BUILD_FLAVOUR")
+)
+}
+\arguments{
+\item{pkg}{Package name.}
+
+\item{library}{Library path.}
+
+\item{flavour}{Platform flavour. Defaults to the \code{PKG_BUILD_FLAVOUR}
+environment variable. If not \code{NULL} or an empty string, then it is
+appended to the platform string with a dash.}
+}
+\value{
+Path to the built package.
+}
+\description{
+The built package will be in the current working directory.
+}
+\details{
+This function is currently experimental.
+}

From 84afd50d6191aaba911100cdc9116350784ca721 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 2 May 2023 16:13:19 +0200
Subject: [PATCH 14/46] Export ghr, repo, make pkg_build docs internal

---
 NAMESPACE        | 2 ++
 R/builder.R      | 1 +
 R/gh-releases.R  | 4 +++-
 R/repo.R         | 3 +++
 man/ghr.Rd       | 3 ++-
 man/pkg_build.Rd | 1 +
 man/repo.Rd      | 2 +-
 7 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 32a4b337..86f5221e 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -33,6 +33,7 @@ export(as_pkg_dependencies)
 export(current_config)
 export(current_r_platform)
 export(default_platforms)
+export(ghr)
 export(install_package_plan)
 export(is_valid_package_name)
 export(lib_status)
@@ -60,6 +61,7 @@ export(sysreqs_install_plan)
 export(sysreqs_is_supported)
 export(sysreqs_list_system_packages)
 export(sysreqs_platforms)
+export(repo)
 importFrom(callr,poll)
 importFrom(callr,r_process_options)
 importFrom(cli,ansi_hide_cursor)
diff --git a/R/builder.R b/R/builder.R
index 338b56d3..2ee1c64e 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -13,6 +13,7 @@
 #' @return Path to the built package.
 #'
 #' @export
+#' @keywords internal
 
 pkg_build <- function(pkg, library = .libPaths()[1],
                       flavour = Sys.getenv("PKG_BUILD_FLAVOUR")) {
diff --git a/R/gh-releases.R b/R/gh-releases.R
index 64dd423b..972c8407 100644
--- a/R/gh-releases.R
+++ b/R/gh-releases.R
@@ -231,7 +231,8 @@ ghr <- local({
 
 #' GitHub Releases
 #'
-#' Functions to query and manipulate GitHub releases.
+#' Functions to query and manipulate GitHub releases. These functions are
+#' currently experimental.
 #'
 #' @details
 #'
@@ -388,5 +389,6 @@ ghr <- local({
 #'
 #' @name ghr
 #' @keywords internal
+#' @export
 
 ghr
diff --git a/R/repo.R b/R/repo.R
index 515aef95..eac4f506 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -245,6 +245,8 @@ repo <- local({
 
 #' Query and manipulate CRAN-like repositories
 #'
+#' These functions are currently experimental.
+#'
 #' @details
 #'
 #' ## List packages in a repository
@@ -373,5 +375,6 @@ repo <- local({
 #'
 #' @name repo
 #' @keywords internal
+#' @export
 
 repo
diff --git a/man/ghr.Rd b/man/ghr.Rd
index f946cff1..9b658b65 100644
--- a/man/ghr.Rd
+++ b/man/ghr.Rd
@@ -4,7 +4,8 @@
 \alias{ghr}
 \title{GitHub Releases}
 \description{
-Functions to query and manipulate GitHub releases.
+Functions to query and manipulate GitHub releases. These functions are
+currently experimental.
 }
 \details{
 \subsection{List releases}{
diff --git a/man/pkg_build.Rd b/man/pkg_build.Rd
index ae2a3f6a..c13596da 100644
--- a/man/pkg_build.Rd
+++ b/man/pkg_build.Rd
@@ -28,3 +28,4 @@ The built package will be in the current working directory.
 \details{
 This function is currently experimental.
 }
+\keyword{internal}
diff --git a/man/repo.Rd b/man/repo.Rd
index 8a448292..1d7dfc8d 100644
--- a/man/repo.Rd
+++ b/man/repo.Rd
@@ -4,7 +4,7 @@
 \alias{repo}
 \title{Query and manipulate CRAN-like repositories}
 \description{
-Query and manipulate CRAN-like repositories
+These functions are currently experimental.
 }
 \details{
 \subsection{List packages in a repository}{

From cfa9f3890851e8eca74f655e349c4a756569cfef Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 2 May 2023 16:15:04 +0200
Subject: [PATCH 15/46] US spelling

---
 R/builder.R      | 10 +++++-----
 man/pkg_build.Rd |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/R/builder.R b/R/builder.R
index 2ee1c64e..976abab8 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -7,7 +7,7 @@
 #'
 #' @param pkg Package name.
 #' @param library Library path.
-#' @param flavour Platform flavour. Defaults to the `PKG_BUILD_FLAVOUR`
+#' @param flavor Platform flavor. Defaults to the `PKG_BUILD_FLAVOR`
 #'   environment variable. If not `NULL` or an empty string, then it is
 #'   appended to the platform string with a dash.
 #' @return Path to the built package.
@@ -16,7 +16,7 @@
 #' @keywords internal
 
 pkg_build <- function(pkg, library = .libPaths()[1],
-                      flavour = Sys.getenv("PKG_BUILD_FLAVOUR")) {
+                      flavor = Sys.getenv("PKG_BUILD_FLAVOR")) {
   pkgdir <- file.path(library, pkg)
   if (!dir.exists(pkgdir)) {
     throw(pkg_error(
@@ -24,8 +24,8 @@ pkg_build <- function(pkg, library = .libPaths()[1],
     ))
   }
   platform <- pkgcache::current_r_platform()
-  if (nzchar(flavour %||% "")) {
-    platform <- paste0(platform, "-", flavour)
+  if (nzchar(flavor %||% "")) {
+    platform <- paste0(platform, "-", flavor)
   }
   meta <- c(
     RemoteBuildPlatform = platform,
@@ -43,7 +43,7 @@ pkg_build <- function(pkg, library = .libPaths()[1],
     fn <- paste0(
       pkg, "_", version, "_",
       "R", rversion,
-      if (nzchar(flavour %||% "")) paste0("_", flavour),
+      if (nzchar(flavor %||% "")) paste0("_", flavor),
       ".zip"
     )
     zip::zip(fn, pkgdir, mode = "cherry-pick")
diff --git a/man/pkg_build.Rd b/man/pkg_build.Rd
index c13596da..933f4910 100644
--- a/man/pkg_build.Rd
+++ b/man/pkg_build.Rd
@@ -7,7 +7,7 @@
 pkg_build(
   pkg,
   library = .libPaths()[1],
-  flavour = Sys.getenv("PKG_BUILD_FLAVOUR")
+  flavor = Sys.getenv("PKG_BUILD_FLAVOR")
 )
 }
 \arguments{
@@ -15,7 +15,7 @@ pkg_build(
 
 \item{library}{Library path.}
 
-\item{flavour}{Platform flavour. Defaults to the \code{PKG_BUILD_FLAVOUR}
+\item{flavor}{Platform flavor. Defaults to the \code{PKG_BUILD_FLAVOR}
 environment variable. If not \code{NULL} or an empty string, then it is
 appended to the platform string with a dash.}
 }

From 89e13210250a20dbdfb05f6e35f7a73f87cfeace Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 3 May 2023 11:31:55 +0200
Subject: [PATCH 16/46] Add repo$list_gh()

---
 R/repo.R | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/R/repo.R b/R/repo.R
index eac4f506..7915c8aa 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -67,6 +67,13 @@ repo <- local({
     write_dcf(pkgs, PACKAGES)
   }
 
+  repo_list_gh <- function(repo, subdir) {
+    dir.create(tmp <- tempfile())
+    on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
+    get_packages(repo, subdir, tmp)
+    repo_list(path = tmp)
+  }
+
   repo_update_gh <- function(repo, subdir, file) {
     file <- normalizePath(file)
 
@@ -225,6 +232,25 @@ repo <- local({
     paste0("* `", colnames(repo_list(path = tmp)), "`", collapse = "\n")
   }
 
+  get_packages <- function(repo, subdir, target) {
+    url <- paste0("https://github.com/", repo)
+    files <- git_list_files(url)
+    wh <- which(files$files$path == paste0(subdir, "/PACKAGES.gz"))[1]
+    if (is.na(wh)) {
+      wh <- which(files$files$path == paste0(subdir, "/PACKAGES"))[1]
+    }
+    if (is.na(wh)) {
+      wh <- which(files$files$path == paste0(subdir, "/PACKAGES.rds"))[1]
+    }
+    if (is.na(wh)) {
+      throw(pkg_error(
+        "Cannot file `PACKAGES*` in {.val {subdir}} at repo {.val {repo}}."
+      ))
+    }
+    hash <- files$files$hash[wh]
+    git_download_file(url, hash, file.path(target, "PACKAGES"))
+  }
+
   # -----------------------------------------------------------------------
   # Exported functions
 
@@ -234,6 +260,7 @@ repo <- local({
       add       = repo_add,
       delete    = repo_delete,
       list      = repo_list,
+      list_gh   = repo_list_gh,
       update    = repo_update,
       update_gh = repo_update_gh
     ),

From a08c3642f9c93278bb3e9e11b60cea7f42a58510 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Fri, 16 Jun 2023 15:46:36 +0200
Subject: [PATCH 17/46] Rebuild NAMESPACE

---
 NAMESPACE | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/NAMESPACE b/NAMESPACE
index 86f5221e..6baed5ae 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -53,6 +53,7 @@ export(pkg_installation_plan)
 export(pkg_installation_proposal)
 export(pkg_name_check)
 export(pkg_rx)
+export(repo)
 export(sysreqs_check_installed)
 export(sysreqs_db_list)
 export(sysreqs_db_match)
@@ -61,7 +62,6 @@ export(sysreqs_install_plan)
 export(sysreqs_is_supported)
 export(sysreqs_list_system_packages)
 export(sysreqs_platforms)
-export(repo)
 importFrom(callr,poll)
 importFrom(callr,r_process_options)
 importFrom(cli,ansi_hide_cursor)

From 01b3a4d8e208865a31e2ad8f2b08b4ca67e522e2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Fri, 16 Jun 2023 15:47:33 +0200
Subject: [PATCH 18/46] Support build number in pkg_build()

---
 R/builder.R      | 15 +++++++++++++--
 man/pkg_build.Rd |  7 ++++++-
 2 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/R/builder.R b/R/builder.R
index 976abab8..e8279a23 100644
--- a/R/builder.R
+++ b/R/builder.R
@@ -10,13 +10,17 @@
 #' @param flavor Platform flavor. Defaults to the `PKG_BUILD_FLAVOR`
 #'   environment variable. If not `NULL` or an empty string, then it is
 #'   appended to the platform string with a dash.
+#' @param build_number An integer number that is added to the file name,
+#'   after the version number, to be able to have multiple builds for the
+#'   same package version.
 #' @return Path to the built package.
 #'
 #' @export
 #' @keywords internal
 
 pkg_build <- function(pkg, library = .libPaths()[1],
-                      flavor = Sys.getenv("PKG_BUILD_FLAVOR")) {
+                      flavor = Sys.getenv("PKG_BUILD_FLAVOR"),
+                      build_number = 1L) {
   pkgdir <- file.path(library, pkg)
   if (!dir.exists(pkgdir)) {
     throw(pkg_error(
@@ -42,6 +46,7 @@ pkg_build <- function(pkg, library = .libPaths()[1],
     install_md5_sums(pkg)
     fn <- paste0(
       pkg, "_", version, "_",
+      "b", build_number, "_",
       "R", rversion,
       if (nzchar(flavor %||% "")) paste0("_", flavor),
       ".zip"
@@ -50,7 +55,13 @@ pkg_build <- function(pkg, library = .libPaths()[1],
 
   } else {
     ext <- if (sys == "mac") ".tgz" else ".tar.gz"
-    fn <- paste0(pkg, "_", version, "_", "R", rversion, "_", platform, ext)
+    fn <- paste0(
+      pkg, "_", version, "_",
+      "b", build_number, "_",
+      "R", rversion, "_",
+      platform,
+      ext
+    )
     ffn <- file.path(normalizePath("."), fn)
     old <- getwd()
     on.exit(setwd(old), add = TRUE)
diff --git a/man/pkg_build.Rd b/man/pkg_build.Rd
index 933f4910..5dc04613 100644
--- a/man/pkg_build.Rd
+++ b/man/pkg_build.Rd
@@ -7,7 +7,8 @@
 pkg_build(
   pkg,
   library = .libPaths()[1],
-  flavor = Sys.getenv("PKG_BUILD_FLAVOR")
+  flavor = Sys.getenv("PKG_BUILD_FLAVOR"),
+  build_number = 1L
 )
 }
 \arguments{
@@ -18,6 +19,10 @@ pkg_build(
 \item{flavor}{Platform flavor. Defaults to the \code{PKG_BUILD_FLAVOR}
 environment variable. If not \code{NULL} or an empty string, then it is
 appended to the platform string with a dash.}
+
+\item{build_number}{An integer number that is added to the file name,
+after the version number, to be able to have multiple builds for the
+same package version.}
 }
 \value{
 Path to the built package.

From 64abc6444a257bdbc4811849b0aa1b1be0cac903 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Fri, 16 Jun 2023 15:48:05 +0200
Subject: [PATCH 19/46] Code formatting

---
 R/gh-releases.R | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/R/gh-releases.R b/R/gh-releases.R
index 972c8407..c8df3969 100644
--- a/R/gh-releases.R
+++ b/R/gh-releases.R
@@ -114,22 +114,22 @@ ghr <- local({
       catch(async_http_404 = function(err) {
         async_ghr_create(repo, tag)
       })$
-        then(function(rel) rel$upload_url)$
-         then(function(upload_url) {
-           upload_url <- sub("[{].*[}]", "", upload_url)
-           prepo <- parse_slug(repo)
-           async_github_v3_query(
-             url = upload_url,
-             endpoint = "",
-             query = c(name = name),
-             method = "POST",
-             headers = c("Content-Type" = "application/octet-stream"),
-             file = file
-           )
-         })$
-           then(function(resp) {
-             jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
-           })
+      then(function(rel) rel$upload_url)$
+      then(function(upload_url) {
+        upload_url <- sub("[{].*[}]", "", upload_url)
+        prepo <- parse_slug(repo)
+        async_github_v3_query(
+          url = upload_url,
+          endpoint = "",
+          query = c(name = name),
+          method = "POST",
+          headers = c("Content-Type" = "application/octet-stream"),
+          file = file
+        )
+      })$
+      then(function(resp) {
+        jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
+      })
   }
 
   # -------------------------------------------------------------------------

From eec5d5db5f3b118576a9665d7586ff6f90048cc6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Fri, 16 Jun 2023 15:50:13 +0200
Subject: [PATCH 20/46] repo$update_gh() can update multiple files at once

---
 R/repo.R    | 27 +++++++++++++++++++++------
 man/repo.Rd |  7 ++++---
 2 files changed, 25 insertions(+), 9 deletions(-)

diff --git a/R/repo.R b/R/repo.R
index 7915c8aa..748c8312 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -1,6 +1,8 @@
 
 repo <- local({
 
+  # List packages in local repo -------------------------------------------
+
   repo_list <- function(..., path = ".") {
     pkgs <- suppressWarnings(
       pkgcache::parse_packages(file.path(path, "PACKAGES"))
@@ -30,6 +32,8 @@ repo <- local({
     pkgs
   }
 
+  # Delete package from local repo ----------------------------------------
+
   repo_delete <- function(package, ..., path = ".") {
     pkgs <- repo_list(path = path)
     idx <- find_in_data_frame(pkgs, package = package, ...)
@@ -40,6 +44,8 @@ repo <- local({
     write_dcf(pkgs, PACKAGES)
   }
 
+  # Add package to local repo ---------------------------------------------
+
   repo_add <- function(file, ..., path = ".") {
     pkgs <- repo_list(path = path)
     pkg_data <- get_package_data(file)
@@ -48,6 +54,8 @@ repo <- local({
     write_dcf(pkgs, PACKAGES)
   }
 
+  # Update package in local repo ------------------------------------------
+
   repo_update <- function(file, ..., path = ".") {
     pkgs <- repo_list(path = path)
     pkg_data <- get_package_data(file)
@@ -67,6 +75,8 @@ repo <- local({
     write_dcf(pkgs, PACKAGES)
   }
 
+  # List packages in repo on GH -------------------------------------------
+
   repo_list_gh <- function(repo, subdir) {
     dir.create(tmp <- tempfile())
     on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
@@ -74,8 +84,10 @@ repo <- local({
     repo_list(path = tmp)
   }
 
-  repo_update_gh <- function(repo, subdir, file) {
-    file <- normalizePath(file)
+  # Update packages in GH repo --------------------------------------------
+
+  repo_update_gh <- function(repo, subdir, files) {
+    files <- normalizePath(files)
 
     oldwd <- getwd()
     workdir <- tempfile()
@@ -97,7 +109,9 @@ repo <- local({
 
     repeat {
       git("pull")
-      repo_update(file)
+      for (file in files) {
+        repo_update(file)
+      }
       tryCatch({
         git_push()
         break
@@ -386,7 +400,7 @@ repo <- local({
 #'
 #' ### Usage
 #' ```
-#' repo$update_gh(repo, subdir, file)
+#' repo$update_gh(repo, subdir, files)
 #' ```
 #'
 #' ### Arguments
@@ -395,8 +409,9 @@ repo <- local({
 #' * `subdir`: subdirectory in the GitHub repository, where the R package
 #'   metadata should be updated. It must exist in the repository.
 #'   If it does not have `PACKAGES*` files, then they will be created.
-#' * `file`: package file to add. The file will _not_ be added to the
-#'   repository.
+#' * `files`: package files to add. The files will _not_ be added to the
+#'   repository, only to the metadata. They should be in the repository
+#'   already.
 #'
 # -------------------------------------------------------------------------
 #'
diff --git a/man/repo.Rd b/man/repo.Rd
index 1d7dfc8d..0c73a0a2 100644
--- a/man/repo.Rd
+++ b/man/repo.Rd
@@ -152,7 +152,7 @@ without interaction with the user.
 
 \subsection{Usage}{
 
-\if{html}{\out{<div class="sourceCode">}}\preformatted{repo$update_gh(repo, subdir, file)
+\if{html}{\out{<div class="sourceCode">}}\preformatted{repo$update_gh(repo, subdir, files)
 }\if{html}{\out{</div>}}
 }
 
@@ -162,8 +162,9 @@ without interaction with the user.
 \item \code{subdir}: subdirectory in the GitHub repository, where the R package
 metadata should be updated. It must exist in the repository.
 If it does not have \verb{PACKAGES*} files, then they will be created.
-\item \code{file}: package file to add. The file will \emph{not} be added to the
-repository.
+\item \code{files}: package files to add. The files will \emph{not} be added to the
+repository, only to the metadata. They should be in the repository
+already.
 }
 }
 

From 9b4d9def2cd21eb0a243439045a97a874e47685c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 21 Jun 2023 11:33:31 +0200
Subject: [PATCH 21/46] First PoC of update for repo w/ GH releases

---
 DESCRIPTION     |   3 +-
 NAMESPACE       |   1 +
 R/gh-mirror.R   | 403 ++++++++++++++++++++++++++++++++++++++++++++++++
 R/gh-releases.R | 101 ++++++++++--
 R/gh-repo.R     | 309 +++++++++++++++++++++++++++++++++++++
 R/repo.R        |  32 ++--
 R/utils.R       |   4 +
 man/ghr.Rd      |  42 +++++
 man/ghrepo.Rd   |  42 +++++
 man/repo.Rd     |   2 +-
 10 files changed, 908 insertions(+), 31 deletions(-)
 create mode 100644 R/gh-mirror.R
 create mode 100644 R/gh-repo.R
 create mode 100644 man/ghrepo.Rd

diff --git a/DESCRIPTION b/DESCRIPTION
index 0dbc1411..c0c19381 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -27,7 +27,7 @@ Imports:
     jsonlite,
     lpSolve,
     pkgbuild (>= 1.0.2),
-    pkgcache (>= 2.1.0),
+    pkgcache (>= 2.1.1.9000),
     prettyunits (>= 1.1.1),
     processx (>= 3.4.2),
     ps,
@@ -42,6 +42,7 @@ Suggests:
     debugme,
     fansi,
     fs,
+    gh,
     gitcreds,
     htmlwidgets,
     mockery,
diff --git a/NAMESPACE b/NAMESPACE
index 6baed5ae..4ddce0a2 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -34,6 +34,7 @@ export(current_config)
 export(current_r_platform)
 export(default_platforms)
 export(ghr)
+export(ghrepo)
 export(install_package_plan)
 export(is_valid_package_name)
 export(lib_status)
diff --git a/R/gh-mirror.R b/R/gh-mirror.R
new file mode 100644
index 00000000..f992a9e9
--- /dev/null
+++ b/R/gh-mirror.R
@@ -0,0 +1,403 @@
+
+ghmirror <- local({
+
+  ghmirror_update <- function(pkg,
+                              source_repo = "https://cran.r-project.org") {
+    cran_versions <- get_package_versions(pkg, source_repo)
+    atgh_versions <- get_github_versions(pkg)
+
+    missing <- setdiff(cran_versions$version, atgh_versions$version)
+
+    add_missing_versions(
+      pkg,
+      missing,
+      new_pkg = length(atgh_versions) == 0,
+      repo = source_repo
+    )
+
+    invisible(missing)
+  }
+
+  # -----------------------------------------------------------------------
+  # Internal functions
+
+  cran_versions <- NULL
+
+  get_all_cran_versions <- function(source_repo = "https://cran.r-project.org",
+                                    forget = FALSE) {
+
+    if (!is.null(cran_versions) && !forget) {
+      return(cran_versions)
+    }
+
+    r_archive <- pkgcache::cran_archive_cache$new(
+      cran_mirror = source_repo,
+      update_after = as.difftime(30, units = "mins")
+    )
+    r_archive$check_update()
+    r_archive_pkgs <- r_archive$list()
+
+    r_source <- pkgcache::cranlike_metadata_cache$new(
+      platforms = "source",
+      bioc = FALSE,
+      cran_mirror = source_repo,
+      repos = NULL,
+      update_after = as.difftime(30, units = "mins")
+    )
+    r_source$check_update()
+    r_source_pkgs <- r_source$list()
+
+    # we'll just drop versions with invalid version numbers, these are
+    # old packages only
+    badver <- is.na(package_version(r_archive_pkgs$version, strict=FALSE))
+    r_archive_pkgs <- r_archive_pkgs[!badver,, drop = FALSE]
+
+    res <- data_frame(
+      package = c(r_archive_pkgs$package, r_source_pkgs$package),
+      version = c(r_archive_pkgs$version, r_source_pkgs$version)
+    )
+
+    res <- res[order(tolower(res$package), package_version(res$version)), ]
+    cran_versions <<- res
+
+    res
+  }
+
+  get_package_versions <- function(pkg,
+                                   source_repo = "https://cran.r-project.org",
+                                   forget = FALSE) {
+    all <- get_all_cran_versions(source_repo, forget = forget)
+    res <- all[all$package == pkg,, drop = FALSE]
+    res
+  }
+
+  get_github_versions <- function(pkg) {
+    github_versions <- tryCatch(
+      gh::gh(
+        "/repos/:owner/:repo/tags",
+        owner = "cran",
+        repo = pkg,
+        .limit = Inf,
+        .token = get_gh_token()
+      ),
+      error = function(e) list(),
+      warning = function(e) list()
+    )
+    github_versions <- vapply(github_versions, "[[", FUN.VALUE = "", "name")
+    github_versions <- grep("R-", github_versions, value = TRUE, invert = TRUE)
+
+    data_frame(
+      version = rev(github_versions)
+    )
+  }
+
+  get_gh_token <- function() {
+    token <- Sys.getenv("CRANATGH_GITHUB_TOKEN", NA_character_)
+    if (is.na(token)) token <- Sys.getenv("GITHUB_PAT", NA_character_)
+    if (is.na(token)) token <- Sys.getenv("GITHUB_TOKEN", NA_character_)
+    token
+  }
+
+  add_missing_versions <- function(pkg, versions, new_pkg, repo) {
+    if (length(versions) == 0) return()
+
+    oldwd <- getwd()
+    on.exit(setwd(oldwd), add = TRUE)
+    change_to_cranatgh_home()
+
+    if (new_pkg) create_git_repo(pkg)
+
+    if (!file.exists(pkg)) clone_git_repo(pkg)
+
+    set_git_user(pkg)
+
+    for (ver in versions) {
+      metadata <- add_missing_version(pkg, ver, repo)
+    }
+
+    desc <- make_description(metadata)
+
+    if (new_pkg) create_gh_repo(pkg, desc)
+
+    push_to_github(pkg)
+
+    if (!new_pkg) update_description(pkg, desc)
+
+    invisible()
+  }
+
+  make_description <- function(pkg) {
+    if (is.character(pkg)) {
+      pkg <- tryCatch(
+        pkgsearch::cran_package(pkg),
+        error = function(e) NULL
+      )
+
+    } else if (inherits(pkg, "description")) {
+      pkg <- list(
+        Package = pkg$get("Package"),
+        Title = pkg$get("Title"),
+        URL = pkg$get("URL"),
+        BugReports = pkg$get("BugReports")
+      )
+
+    } else {
+      stop("'pkg' must be a character scalar or a 'description' object")
+    }
+
+    dsc <- paste(
+      sep = "  ",
+      dont_break(":exclamation: This is a read-only mirror of the CRAN R package repository."),
+      dont_break(
+        pkg$Package, " \u2014 ", pkg$Title,
+        nullna_or(pkg$URL, paste0(". Homepage: ", pkg$URL))
+      ),
+      nullna_or(pkg$BugReports, dont_break("Report bugs for this package: ", pkg$BugReports))
+    )
+
+    # Limit is 350 characters, but be conservative
+    if (nchar(dsc) > 320) dsc <- paste0(substr(dsc, 1, 320), " ...")
+
+    dsc
+  }
+
+  add_missing_version <- function(package, version, repo) {
+
+    proc <- cli::cli_process_start("Adding {.pkg {package}} {version}")
+
+    ## Rename the .git directory. We'll need it later
+    file.rename(file.path(package, ".git"), "dot-git")
+
+    ## Remove everything from the old version
+    unlink(package, recursive = TRUE, force = TRUE)
+    dir.create(package)
+
+    ## Put the new version in place
+    tar_file <- get_package_tarball(package, version, repo)
+    untar(tar_file)
+    unlink(tar_file)
+
+    ## Put back the .git directory
+    ## The unlink is for the occasional case when there is already
+    ## a .git directory in the package. This is junk anyway, and it
+    ## should not be there
+    unlink(file.path(package, ".git"))
+    file.rename("dot-git", file.path(package, ".git"))
+
+    setwd(package)
+    on.exit(setwd(".."), add = TRUE)
+
+    ## To prevent an error like "detected dubious ownership in repository"
+    if (.Platform$OS.type == "unix") {
+      system("chown -R `id -un`:`id -gn` .")
+    }
+
+    ## Add all the new files
+    git("status")
+    git("add", "-A", ".")
+    git("status")
+
+    ## Package information from DESCRIPTION
+    metadata <- desc::description$new()
+    maint <- metadata$get_maintainer()
+    auth <- metadata$get("Author")
+
+    ## Commit the new version
+    date <- format_iso_8601(metadata$get("Date/Publication"))
+    git(
+      env = c("GIT_COMMITTER_DATE" = date),
+      "commit",
+      "--allow-empty",
+      "-m", paste0("version ", version),
+      "--date", date,
+      "--author", fix_maintainer(maint, auth)
+    )
+
+    git("tag", version)
+
+    cli::cli_process_done(proc)
+
+    metadata
+  }
+
+  change_to_cranatgh_home <- function() {
+    home <- default_tree_location()
+    if (is.na(home)) dir.create(home <- tempfile())
+    setwd(home)
+  }
+
+  default_tree_location <- function() {
+    Sys.getenv("CRANATGH_TREES", NA_character_)
+  }
+
+  create_git_repo <- function(path) {
+    dir.create(path)
+    wd <- getwd()
+    on.exit(setwd(wd), add = TRUE)
+    setwd(path)
+    cli::cli_alert_info("Creating git repo in {.path {path}}")
+    git("init", ".")
+  }
+
+  set_git_user <- function(path, user = NULL, email = NULL) {
+
+    user <- user %||% default_cranatgh_user()
+    email <- email %||% default_cranatgh_email()
+
+    withr::with_dir(path, {
+      git("config", "--local", "user.name", user)
+      git("config", "--local", "user.email", email)
+    })
+  }
+
+  default_cranatgh_user <- function() {
+    Sys.getenv("CRANATGH_USER", "cran-robot")
+  }
+
+  default_cranatgh_email <- function() {
+    Sys.getenv("CRANATGH_EMAIL", "csardi.gabor+cran@gmail.com")
+  }
+
+  default_cranatgh_org <- function() {
+    Sys.getenv("CRANATGH_ORG", "cran")
+  }
+
+  clone_git_repo <- function(pkg) {
+    url <- get_clone_url(pkg)
+    proc <- cli::cli_process_start("Cloning GitHub repo from {.url {safe_url(url)}}")
+    git("clone", url)
+    cli::cli_process_done(proc)
+  }
+
+  safe_url <- function(url) {
+    sub("://[-:a-z0-9]+@", "://<token>@", url)
+  }
+
+  get_clone_url <- function(package) {
+
+    owner <- default_cranatgh_org()
+    token <- get_gh_token()
+    token <- if (is.na(token)) "" else paste0(token, "@")
+
+    sprintf("https://%sgithub.com/%s/%s.git", token, owner, package)
+  }
+
+  git <- function(..., env = character(), timeout = 60 * 60) {
+    processx::run(
+      "git",
+      args = unlist(list(...)),
+      env = c(Sys.getenv(), env)
+    )
+  }
+
+  get_package_tarball <- function(package, version, repo) {
+    urls <- package_urls(package, version, repo)
+    ok <- FALSE
+    for (url in urls) {
+      dest_file <- basename(url)
+      tryCatch({
+        curl::curl_download(url, dest_file)
+        ok <- TRUE
+        break
+      }, error = function(err) err)
+    }
+
+    if (!ok) stop("Cannot download package ", package)
+    dest_file
+  }
+
+  package_urls <- function(package, version, repo) {
+    # work around some mistakes, file names do not match the version number
+    if (package == "HTML" && version == "0.4") {
+      "https://cran.rstudio.com/src/contrib/Archive/HTML/HTML_0.4-1.tar.gz"
+
+    } else if (package == "timeslab" && version == "1.0") {
+      "https://cran.r-project.org/src/contrib/Archive/timeslab/timeslab_1.0-1.tar.gz"
+
+    } else {
+      c(sprintf("%s/src/contrib/%s_%s.tar.gz", repo, package, version),
+        sprintf("%s/src/contrib/Archive/%s/%s_%s.tar.gz", repo,
+                package, package, version))
+    }
+  }
+
+  fix_maintainer <- function(maint, auth) {
+    if (is.na(maint)) maint <- auth
+    maint <- sub("\\s*<", " <", maint)
+
+    ## ': end of single quote
+    ## ": start of double quote
+    ## ': single quote (within double quotes)
+    ## ": end of double quote
+    ## ': start of single quote for the rest of the string
+    maint <- gsub("'", paste0("'", '"', "'", '"', "'"), maint)
+
+    if (is.na(maint)) maint <- "??? <???@???>"
+    if (!grepl("<.*>", maint)) maint <- paste0(maint, " <???@???>")
+    if (toupper(maint) == "ORPHANED") maint <- "ORPHANED <cran@R-project.org>"
+    maint
+  }
+
+  dont_break <- function(...) {
+    gsub("\\s+", "\u00a0", paste0(...))
+  }
+
+  nullna_or <- function(x, expr) {
+    if (is.null(x) || (length(x) == 1 && is.na(x))) "" else expr
+  }
+
+  push_to_github <- function(package, forced_push = FALSE) {
+    wd <- getwd()
+    on.exit(setwd(wd), add = TRUE)
+    setwd(package)
+
+    add_gh_remote(package)
+
+    proc <- cli::cli_process_start("Pushing {.pkg {package}} to GitHub")
+    current <- sub("* ", "", fixed = TRUE, system("git branch", intern = TRUE))
+    git("push", "--tags", if (forced_push) "-f", "-u", "origin", current)
+    cli::cli_process_done(proc)
+  }
+
+  add_gh_remote <- function(package) {
+
+    current <- git("remote")$stdout
+    if (! grepl("\\borigin\\b", current)) {
+      git(
+        "remote", "add", "origin",
+        get_clone_url(package)
+      )
+    }
+  }
+
+  update_description <- function(package,
+                                 description = make_description(package)) {
+
+    description <- clean_description(description)
+
+    proc <- cli::cli_process_start("Updating repo description for {.pkg {package}}")
+    gh::gh("PATCH /repos/:owner/:repo",
+       owner = default_cranatgh_org(),
+       repo = package,
+       name = package,
+       description = description,
+       homepage = "",
+       .token = get_gh_token()
+       )
+    cli::cli_process_done(proc)
+  }
+
+  clean_description <- function(description) {
+    description <- unname(description)
+    description <- gsub("\n", " ", description)
+    description
+  }
+
+  structure(
+    list(
+      .internal = environment(),
+
+      update = ghmirror_update
+    )
+  )
+})
diff --git a/R/gh-releases.R b/R/gh-releases.R
index c8df3969..f93e42d3 100644
--- a/R/gh-releases.R
+++ b/R/gh-releases.R
@@ -110,11 +110,12 @@ ghr <- local({
 
     repo; file; tag; name
 
-    async_ghr_get(repo, tag)$
+    async_ghr_delete_asset(repo, tag, name)$
+      then(function(res) res$release$upload_url)$
       catch(async_http_404 = function(err) {
-        async_ghr_create(repo, tag)
+        async_ghr_create(repo, tag)$
+          then(function(rel) rel$upload_url)
       })$
-      then(function(rel) rel$upload_url)$
       then(function(upload_url) {
         upload_url <- sub("[{].*[}]", "", upload_url)
         prepo <- parse_slug(repo)
@@ -134,6 +135,34 @@ ghr <- local({
 
   # -------------------------------------------------------------------------
 
+  ghr_delete_asset <- function(repo, tag, name) {
+    synchronize(async_ghr_delete_asset(repo, tag, name))
+  }
+
+  async_ghr_delete_asset <- function(repo, tag, name) {
+    prepo <- parse_slug(repo)
+    async_ghr_get(repo, tag)$
+      then(function(res) {
+        release_id <- res$id
+        asset_names <- vcapply(res$assets, "[[", "name")
+        if (name %in% asset_names) {
+          asset_id <- res$assets[[match(name, asset_names)]]$id
+          ep <- glue("/repos/{prepo$user}/{prepo$repo}/releases/assets/{asset_id}")
+          async_github_v3_query(ep, method = "DELETE")$
+            then(function(resp) {
+              list(
+                release = res,
+                deleted = TRUE
+              )
+            })
+        } else {
+          list(release = res, deleted = FALSE)
+        }
+      })
+  }
+
+  # -------------------------------------------------------------------------
+
   ghr_create <- function(repo, tag) {
     invisible(synchronize(async_ghr_create(repo, tag)))
   }
@@ -170,7 +199,7 @@ ghr <- local({
   }
 
   async_github_v3_query <- function(endpoint, query = NULL,
-                                    method = c("GET", "POST"),
+                                    method = c("GET", "POST", "DELETE"),
                                     headers = NULL,
                                     data = NULL,
                                     file = NULL,
@@ -197,6 +226,8 @@ ghr <- local({
             }
             if (is.null(data)) data <- readBin(file, "raw", file.size(file))
             http_post(url, data, headers = headers)
+          } else if (method == "DELETE") {
+            http_delete(url, headers = headers)
           }
 
     px$
@@ -210,19 +241,21 @@ ghr <- local({
 
   structure(
     list(
-      .internal         = environment(),
-
-      async_add_asset   = async_ghr_add_asset,
-      async_create      = async_ghr_create,
-      async_get         = async_ghr_get,
-      async_list        = async_ghr_list,
-      async_list_assets = async_ghr_list_assets,
-
-      add_asset         = ghr_add_asset,
-      create            = ghr_create,
-      get               = ghr_get,
-      list              = ghr_list,
-      list_assets       = ghr_list_assets
+      .internal          = environment(),
+
+      async_add_asset    = async_ghr_add_asset,
+      async_delete_asset = async_ghr_delete_asset,
+      async_create       = async_ghr_create,
+      async_get          = async_ghr_get,
+      async_list         = async_ghr_list,
+      async_list_assets  = async_ghr_list_assets,
+
+      add_asset          = ghr_add_asset,
+      delete_asset       = ghr_delete_asset,
+      create             = ghr_create,
+      get                = ghr_get,
+      list               = ghr_list,
+      list_assets        = ghr_list_assets
     )
   )
 })
@@ -342,6 +375,11 @@ ghr <- local({
 #' * `tag`: tag name to add the asset to. It must exist on GitHub.
 #' * `name`: file name of the asset in the release.
 #'
+#' ### Details
+#'
+#' If an asset with the same name already exists, then that will be deleted
+#' first.
+#'
 #' ### Value
 #'
 #' Response from GitHub as a named list. See
@@ -349,6 +387,35 @@ ghr <- local({
 #' for the structure.
 #'
 # -------------------------------------------------------------------------
+#' ## Delete a release asset
+#'
+#' ### Description
+#'
+#' `ghr$delete_asset()` deleted a release asset.
+#'
+#' `ghr$async_delete_asset()` is an async version of `ghr$delete_asset()`.
+#'
+#' ### Usage
+#' ```
+#' ghr$delete_asset(repo, tag, name)
+#' ghr$async_delete_asset(repo, tag, name)
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `repo`: repository slug, e.g. `cran/cli`.
+#' * `tag`: tag name to create a release for. It must exist on GitHub.
+#' * `name`: name of the asset.
+#'
+#' ### Value
+#'
+#' A list with entries:
+#' * `release`: a list with the data about the release, before the
+#'   deletion. It has the same format as the return value of `ghr$get()`.
+#' * `deleted`: `TRUE` if the asset was deleted. `FALSE` if the asset
+#'   did not exist.
+#'
+# -------------------------------------------------------------------------
 #'
 #' ## Create a GitHub release
 #'
diff --git a/R/gh-repo.R b/R/gh-repo.R
new file mode 100644
index 00000000..1f9ee80e
--- /dev/null
+++ b/R/gh-repo.R
@@ -0,0 +1,309 @@
+
+ghrepo <- local({
+
+  ghrepo_update <- function(repo, subdir, release_org = "cran",
+                            source_repo = "https://cran.r-project.org",
+                            packages = NULL) {
+
+    subdir <- sub("/+$", "", subdir)
+    if (endsWith(subdir, "src/contrib")) {
+      subdir <- sub("src/contrib$", "", subdir)
+    }
+
+    cli::cli_h2("Collect information")
+    source_pkgs <- get_cran_packages(source_repo)
+    mirror_pkgs <- get_mirror_packages(repo, subdir)
+
+    to_build <- get_outdated_packages(source_pkgs, mirror_pkgs, packages)
+    if (length(to_build) == 0) return(invisible(character()))
+
+    cli::cli_h2("Install packages")
+    dir.create(lib <- tempfile("pkgdepends-lib-"))
+    inst <- install_pkgs(to_build, library = lib, source_repo = source_repo,
+                         repo = repo, subdir = subdir)
+    inst <- keep_updated(inst, mirror_pkgs)
+    # I don't think this can happen....
+    if (nrow(inst) == 0) return(invisible(character()))
+
+    cli::cli_h2("Build binary packages")
+    inst <- build_pkgs(inst, lib)
+
+    cli::cli_par()
+    cli::cli_h2("Update package mirror at GH (if needed)")
+    # make sure these packages are mirrored on GH
+    for (i in seq_along(inst$package)) {
+      ghmirror$update(inst$package[[i]], source_repo = source_repo)
+    }
+
+    if (nrow(inst) > 0) {
+      cli::cli_par()
+      cli::cli_h2("Upload new releases assets to GH")
+      upload_releases(inst, release_org)
+    }
+
+    if (nrow(inst) > 0) {
+      cli::cli_par()
+      cli::cli_h2("Update repository metadata at GH")
+      # unfortunate name collision
+      repo_slug <- repo
+      rm(repo)
+      repo$update_gh(
+        repo_slug,
+        paste0(subdir, "/src/contrib"),
+        inst$built_path,
+        release_org = release_org
+      )
+    }
+
+    cli::cli_par()
+    cli::cli_h2("Build report")
+    print_report(inst, mirror_pkgs)
+
+    invisible(inst)
+  }
+
+  # -----------------------------------------------------------------------
+  # Internal functions
+
+  parse_build_number <- function(x) {
+    x <- basename(x)
+    mch <- re_match(x, "_b(?<build>[0-9]+)_")
+    build <- as.integer(mch$build) + 1L
+    build[is.na(build)] <- 1L
+    build
+  }
+
+  get_cran_packages <- function(repo) {
+    proc <- cli::cli_process_start("Getting packages from {.url {repo}}.")
+    r_source <- suppressMessages(pkgcache::cranlike_metadata_cache$new(
+      platforms = "source",
+      bioc = FALSE,
+      cran_mirror = repo,
+      repos = NULL,
+      update_after = as.difftime(30, units = "mins")
+    ))
+    suppressMessages(r_source$update())
+    res <- r_source$list()
+
+    cli::cli_process_done(proc)
+    res
+  }
+
+  get_mirror_repo_url <- function(repo, subdir) {
+    subdir <- sub("/src/contrib/?$", "", subdir)
+    paste0(
+      "https://raw.githubusercontent.com/",
+      repo,
+      "/main/",
+      subdir
+    )
+  }
+
+  get_mirror_packages <- function(repo, subdir) {
+    proc <- cli::cli_process_start(
+      "Getting packages from {.emph {repo}/{subdir}}."
+    )
+    r_mirror <- suppressMessages(pkgcache::cranlike_metadata_cache$new(
+      platforms = "source",
+      bioc = FALSE,
+      cran_mirror = get_mirror_repo_url(repo, subdir),
+      repos = NULL,
+      update_after = as.difftime(1, units = "mins")
+    ))
+    suppressMessages(r_mirror$update())
+    res <- r_mirror$list()
+
+    cli::cli_process_done(proc)
+    res
+  }
+
+  get_outdated_packages <- function(source_pkgs, mirror_pkgs, extra) {
+    # these are included already
+    extra <- setdiff(extra, mirror_pkgs$package)
+
+    # TODO: update for breaking changes in R as well
+    to_build <- intersect(mirror_pkgs$package, source_pkgs$package)
+    r_mirror_ver <- mirror_pkgs$version[match(to_build, mirror_pkgs$package)]
+    r_source_ver <- source_pkgs$version[match(to_build, source_pkgs$package)]
+    to_build <- to_build[package_version(r_mirror_ver) < r_source_ver]
+
+    res <- c(to_build, extra)
+    if (length(res) == 0) {
+      cli::cli_alert_info("All packages are current, no updates are needed")
+    } else {
+      cli::cli_alert_info(
+        "Need to build {length(res)} package{?s}: {.pkg {res}}."
+      )
+    }
+    res
+  }
+
+  install_pkgs <- function(pkgs, library, source_repo, repo, subdir) {
+    opt <- options(repos = c(
+      RHUB = get_mirror_repo_url(repo, subdir),
+      CRAN = source_repo)
+    )
+    on.exit(options(opt), add = TRUE)
+    prop <- new_pkg_installation_proposal(
+      pkgs,
+      config = list(
+        library = library,
+        platforms = c(current_r_platform(), "source"),
+        use_bioconductor = FALSE,
+        metadata_update_after = as.difftime(5, units = "mins")
+      )
+    )
+    prop$set_solve_policy("upgrade")
+    prop$solve()
+    prop$show_solution()
+    prop$download()
+    prop$install_sysreqs()
+    inst <- prop$install()
+
+    # Drop packages that were kept in a different library. These are
+    # recommended packages currently
+    was_inst <- inst$package[inst$type == "installed"]
+    drop <- setdiff(was_inst, dir(library))
+    if (length(drop) > 0) {
+      inst <- inst[! inst$package %in% drop,, drop = FALSE ]
+    }
+    inst
+  }
+
+  keep_updated <- function(inst, mirror_pkgs) {
+    # we installed these packages, now we update packages that are not in
+    # the mirror, or we just built a newer version for them.
+    # TODO: update for breaking changes in R as well
+    to_add <- setdiff(inst$package, mirror_pkgs$package)
+    mirrored <- intersect(inst$package, mirror_pkgs$package)
+    inst_ver <- inst$version[match(mirrored, inst$package)]
+    mirror_ver <- mirror_pkgs$version[match(mirrored, mirror_pkgs$package)]
+    to_update <- mirrored[package_version(inst_ver) > mirror_ver]
+    todo <- c(to_add, to_update)
+    inst <- inst[match(todo, inst$package),, drop = FALSE]
+
+    # get build numbers
+    inst$buildnum <- 1L
+    inst$buildnum[todo %in% mirrored] <-
+      parse_build_number(mirror_pkgs$target[match(todo[todo %in% mirrored], mirror_pkgs$package)])
+    inst
+  }
+
+  build_pkgs <- function(inst, library) {
+    files <- rep(NA_character_, nrow(inst))
+    for (i in seq_along(inst$package)) {
+      proc <- cli::cli_process_start(
+        "Building binary for package {.pkg {inst$package[[i]]}}."
+      )
+      files[i] <- pkg_build(
+        inst$package[[i]],
+        library = library,
+        build_number = inst$buildnum[[i]]
+      )
+      cli::cli_process_done(proc)
+    }
+    inst$built_path <- files
+    inst
+  }
+
+  upload_releases <- function(inst, release_org) {
+    # upload packages to releases
+    for (i in seq_along(inst$package)) {
+      slug <- paste0(release_org, "/", inst$package[[i]])
+      ver <- inst$version[[i]]
+      rels <- ghr$list(slug)
+      if (!ver %in% rels$tag_name) {
+        cli::cli_alert_info("Creating GH release {slug} {ver}.")
+        ghr$create(slug, ver)
+      }
+      cli::cli_alert_info("Adding release asset for {slug} {ver}.")
+      ghr$add_asset(slug, inst$built_path[i], ver)
+    }
+  }
+
+  print_report <- function(inst, mirror_pkgs) {
+    pkg <- format(inst$package)
+    oldver <- ifelse(
+      inst$package %in% mirror_pkgs$package,
+      mirror_pkgs$version[match(inst$package, mirror_pkgs$package)],
+      ""
+    )
+
+    cols <- data_frame(
+      package = inst$package,
+      "old" = oldver,
+      "-" = "->",
+      "new" = inst$version,
+      "build" = paste0("b", inst$buildnum),
+      "build time" = vcapply(inst$build_time, prettyunits::pretty_dt)
+    )
+
+    print_table(cols)
+  }
+
+  print_table <- function(cols) {
+    cols <- as.list(cols)
+    for (i in seq_along(cols)) {
+      if (names(cols)[i] == "-") names(cols)[i] <- ""
+      cols[[i]] <- format(c(names(cols)[i], "", cols[[i]]))
+      if (names(cols)[i] != "") {
+        cols[[i]][2] <- strrep("-", nchar(cols[[i]][1]))
+      }
+    }
+    writeLines(do.call(paste, cols))
+  }
+
+  # -----------------------------------------------------------------------
+
+  structure(
+    list(
+      .internal = environment(),
+
+      update = ghrepo_update
+    )
+  )
+})
+
+# -------------------------------------------------------------------------
+
+#' Update a CRAN-like repository of binary packages at GitHub
+#'
+#' These functions are currently experimental.
+#'
+#' @details
+#'
+#' ## Update a CRAN-like repository of binary packages at GitHub
+#'
+#' `ghrepo$update()` updates a binary package mirror.
+#'
+#' ### Usage
+#' ```
+#' ghrepo$update(
+#'   repo,
+#'   subdir,
+#'   release_org = "cran",
+#'   source_repo = "https://cran.r-project.org",
+#'   packages = NULL
+#' )
+#' ```
+#'
+#' ### Arguments
+#'
+#' * `repo`: GitHub slug, e.g. `r-hub/repos`.
+#' * `subdir`: subdirectory in the GitHub repository, where the R package
+#'   metadata should be updated. It must exist in the repository.
+#'   If it does not have `PACKAGES*` files, then they will be created.
+#' * `release_org`: GitHub organization or user name where the packages
+#'   will be published as releases.
+#' * `source_repo`: A CRAN-like repository, where source packages are
+#'   taken from.
+#' * `packages`: A character vector of package names to add to the binary
+#'   repository, in addition to updating the ones that are already there.
+#'
+# -------------------------------------------------------------------------
+#'
+#' @name ghrepo
+#' @keywords internal
+#' @export
+
+ghrepo
diff --git a/R/repo.R b/R/repo.R
index 748c8312..7b9ca81a 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -46,9 +46,9 @@ repo <- local({
 
   # Add package to local repo ---------------------------------------------
 
-  repo_add <- function(file, ..., path = ".") {
+  repo_add <- function(file, ..., path = ".", release_org = "cran") {
     pkgs <- repo_list(path = path)
-    pkg_data <- get_package_data(file)
+    pkg_data <- get_package_data(file, release_org = release_org)
     pkgs <- rbind_expand(pkgs, pkg_data)
     PACKAGES <- file.path(path, "PACKAGES")
     write_dcf(pkgs, PACKAGES)
@@ -56,13 +56,13 @@ repo <- local({
 
   # Update package in local repo ------------------------------------------
 
-  repo_update <- function(file, ..., path = ".") {
+  repo_update <- function(file, ..., path = ".", release_org = "cran") {
     pkgs <- repo_list(path = path)
-    pkg_data <- get_package_data(file)
+    pkg_data <- get_package_data(file, release_org = release_org)
 
     idx <- which(
       pkgs$Package == pkg_data$Package &
-      pkgs$RVersion == pkg_data$RVersion &
+      pkgs$RVersion <= pkg_data$RVersion &
       (is.na(pkg_data$OS) | is.na(pkgs$OS) | identical(pkgs$OS, pkg_data$OS)) &
       (is.na(pkg_data$Arch) | is.na(pkgs$Arch) | identical(pkgs$Arch, pkg_data$Arch))
     )
@@ -86,7 +86,7 @@ repo <- local({
 
   # Update packages in GH repo --------------------------------------------
 
-  repo_update_gh <- function(repo, subdir, files) {
+  repo_update_gh <- function(repo, subdir, files, release_org = "cran") {
     files <- normalizePath(files)
 
     oldwd <- getwd()
@@ -100,6 +100,8 @@ repo <- local({
     setwd(prepo$repo)
     setwd(subdir)
 
+    git("config", "user.email", "csardi.gabor@gmail.com")
+    git("config", "user.name", "Gabor Csardi")
     git("config", "credential.helper", "cache")
     gitcreds::gitcreds_approve(list(
                 url = "https://github.com",
@@ -110,7 +112,7 @@ repo <- local({
     repeat {
       git("pull")
       for (file in files) {
-        repo_update(file)
+        repo_update(file, release_org = release_org)
       }
       tryCatch({
         git_push()
@@ -139,7 +141,7 @@ repo <- local({
     desc::desc(file.path(tmp, pkg))
   }
 
-  get_package_data <- function(path) {
+  get_package_data <- function(path, release_org = "cran") {
     desc <- get_desc(path)
     pkgname <- desc$get_field("Package")
     pkgver <- desc$get_field("Version")
@@ -162,7 +164,7 @@ repo <- local({
       License = unname(desc$get("License")),
       File = basename(path),
       DownloadURL = paste0(
-        "https://github.com/cran/",
+        "https://github.com/", release_org, "/",
         pkgname,
         "/releases/download/",
         pkgver,
@@ -183,7 +185,7 @@ repo <- local({
     pkg
   }
 
-  write_dcf <- function(meta, PACKAGES, quiet = FALSE) {
+  write_dcf <- function(meta, PACKAGES, quiet = TRUE) {
     if (!quiet) cat("Writing ", PACKAGES, "\n")
     meta <- as.matrix(meta)
     write.dcf(meta, PACKAGES, width = 200)
@@ -199,6 +201,7 @@ repo <- local({
   find_in_data_frame <- function(df, ..., .list = NULL) {
     cols <- drop_nulls(c(list(...), .list))
     idx <- seq_len(nrow(df))
+    names(df) <- tolower(names(df))
     for (i in seq_along(cols)) {
       if (length(idx) == 0) break
       n <- tolower(names(cols)[i])
@@ -235,7 +238,7 @@ repo <- local({
 
   git_push <- function() {
     git("add", "-A", ".")
-    git("commit", "-m", "Update package")
+    git("commit", "-m", "Update repository")
     git("push", "--porcelain", "origin", stderr_to_stdout = TRUE)
   }
 
@@ -265,6 +268,11 @@ repo <- local({
     git_download_file(url, hash, file.path(target, "PACKAGES"))
   }
 
+  parse_slug <- function(slug) {
+    parts <- strsplit(slug, "/", fixed = TRUE)[[1]]
+    list(user = parts[1], owner = parts[1], repo = parts[2])
+  }
+
   # -----------------------------------------------------------------------
   # Exported functions
 
@@ -315,7 +323,7 @@ repo <- local({
 #'
 #' ## Delete packages from repository metadata
 #'
-#' `repo_delete()` deletes matching packages from the repository
+#' `repo$delete()` deletes matching packages from the repository
 #' metadata.
 #'
 #' ### Description
diff --git a/R/utils.R b/R/utils.R
index 273b6282..f6e13eb1 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -280,6 +280,10 @@ http_post <- function(...) {
   asNamespace("pkgcache")$http_post(...)
 }
 
+http_delete <- function(...) {
+  asNamespace("pkgcache")$http_delete(...)
+}
+
 when_all <- function(...) {
   asNamespace("pkgcache")$when_all(...)
 }
diff --git a/man/ghr.Rd b/man/ghr.Rd
index 9b658b65..a3dbd00e 100644
--- a/man/ghr.Rd
+++ b/man/ghr.Rd
@@ -133,6 +133,12 @@ Data frame with columns:
 }
 }
 
+\subsection{Details}{
+
+If an asset with the same name already exists, then that will be deleted
+first.
+}
+
 \subsection{Value}{
 
 Response from GitHub as a named list. See
@@ -142,6 +148,42 @@ for the structure.
 
 }
 
+\subsection{Delete a release asset}{
+\subsection{Description}{
+
+\code{ghr$delete_asset()} deleted a release asset.
+
+\code{ghr$async_delete_asset()} is an async version of \code{ghr$delete_asset()}.
+}
+
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{ghr$delete_asset(repo, tag, name)
+ghr$async_delete_asset(repo, tag, name)
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{repo}: repository slug, e.g. \code{cran/cli}.
+\item \code{tag}: tag name to create a release for. It must exist on GitHub.
+\item \code{name}: name of the asset.
+}
+}
+
+\subsection{Value}{
+
+A list with entries:
+\itemize{
+\item \code{release}: a list with the data about the release, before the
+deletion. It has the same format as the return value of \code{ghr$get()}.
+\item \code{deleted}: \code{TRUE} if the asset was deleted. \code{FALSE} if the asset
+did not exist.
+}
+}
+
+}
+
 \subsection{Create a GitHub release}{
 \subsection{Description}{
 
diff --git a/man/ghrepo.Rd b/man/ghrepo.Rd
new file mode 100644
index 00000000..38784e20
--- /dev/null
+++ b/man/ghrepo.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gh-repo.R
+\name{ghrepo}
+\alias{ghrepo}
+\title{Update a CRAN-like repository of binary packages at GitHub}
+\description{
+These functions are currently experimental.
+}
+\details{
+\subsection{Update a CRAN-like repository of binary packages at GitHub}{
+
+\code{ghrepo$update()} updates a binary package mirror.
+\subsection{Usage}{
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{ghrepo$update(
+  repo,
+  subdir,
+  release_org = "cran",
+  source_repo = "https://cran.r-project.org",
+  packages = NULL
+)
+}\if{html}{\out{</div>}}
+}
+
+\subsection{Arguments}{
+\itemize{
+\item \code{repo}: GitHub slug, e.g. \code{r-hub/repos}.
+\item \code{subdir}: subdirectory in the GitHub repository, where the R package
+metadata should be updated. It must exist in the repository.
+If it does not have \verb{PACKAGES*} files, then they will be created.
+\item \code{release_org}: GitHub organization or user name where the packages
+will be published as releases.
+\item \code{source_repo}: A CRAN-like repository, where source packages are
+taken from.
+\item \code{packages}: A character vector of package names to add to the binary
+repository, in addition to updating the ones that are already there.
+}
+}
+
+}
+}
+\keyword{internal}
diff --git a/man/repo.Rd b/man/repo.Rd
index 0c73a0a2..689b0724 100644
--- a/man/repo.Rd
+++ b/man/repo.Rd
@@ -55,7 +55,7 @@ columns, possibly more if there are other entries in the metadata:
 
 \subsection{Delete packages from repository metadata}{
 
-\code{repo_delete()} deletes matching packages from the repository
+\code{repo$delete()} deletes matching packages from the repository
 metadata.
 \subsection{Description}{
 

From 06b8ca531119a13eed8923eff7d3c8cc56fd247a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 21 Jun 2023 14:15:18 +0200
Subject: [PATCH 22/46] Use Config/Needs/builder

To be able to install dependencies easily.
---
 DESCRIPTION | 4 ++++
 R/gh-repo.R | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index c0c19381..20fc1d9d 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -57,6 +57,10 @@ Suggests:
     withr (>= 2.1.1),
 Remotes:
     r-lib/pkgcache
+Config/Needs/builder:
+    gh,
+    pkgsearch,
+    withr
 Config/Needs/coverage:
     r-lib/asciicast,
     covr,
diff --git a/R/gh-repo.R b/R/gh-repo.R
index 1f9ee80e..407842b7 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -37,7 +37,7 @@ ghrepo <- local({
 
     if (nrow(inst) > 0) {
       cli::cli_par()
-      cli::cli_h2("Upload new releases assets to GH")
+      cli::cli_h2("Upload new release assets to GH")
       upload_releases(inst, release_org)
     }
 

From bf6275e7b99a6a9c9303ec3b76d4d9e8066b99af Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 21 Jun 2023 20:38:45 +0200
Subject: [PATCH 23/46] Builder: handle a corner case

When all packages are ruled out.
---
 R/gh-repo.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index 407842b7..b9529f31 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -183,7 +183,7 @@ ghrepo <- local({
     inst <- inst[match(todo, inst$package),, drop = FALSE]
 
     # get build numbers
-    inst$buildnum <- 1L
+    inst$buildnum <- rep(1L, nrow(inst))
     inst$buildnum[todo %in% mirrored] <-
       parse_build_number(mirror_pkgs$target[match(todo[todo %in% mirrored], mirror_pkgs$package)])
     inst

From a0925ea06aa99abad6fc3efe53f8e4356341706c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Fri, 23 Jun 2023 21:49:24 +0200
Subject: [PATCH 24/46] repo: include `SystemRequirements` field as well

---
 R/repo.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/repo.R b/R/repo.R
index 7b9ca81a..38ded15e 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -27,6 +27,7 @@ repo <- local({
       pkgs$Platform <- character()
       pkgs$GraphicsAPIVersion <- character()
       pkgs$InternalsId <- character()
+      pkgs$SystemRequirements <- character()
     }
 
     pkgs
@@ -179,7 +180,8 @@ repo <- local({
       RVersion = rminor,
       Platform = unname(desc$get("RemoteBuildPlatform")),
       GraphicsAPIVersion = unname(desc$get("GraphicsAPIVersion")),
-      InternalsId = unname(desc$get("InternalsId"))
+      InternalsId = unname(desc$get("InternalsId")),
+      SystemRequirements = unname(desc$get("SystemRequirements")),
     )
 
     pkg

From da3f8b6f759ba23634d64e74828949f43e72c202 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sat, 24 Jun 2023 08:33:55 +0200
Subject: [PATCH 25/46] Remove acromine from pkg name check

It is not reliable and not very useful, anyway.
---
 NAMESPACE                                  |  1 -
 R/name-check.R                             | 60 --------------------
 man/pkg_name_check.Rd                      |  1 -
 tests/testthat/_fixtures/pkg-name-check.md | 54 ------------------
 tests/testthat/_snaps/pkg-name-check.md    | 42 --------------
 tests/testthat/test-pkg-name-check.R       | 65 ----------------------
 6 files changed, 223 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 4ddce0a2..3f8a4d61 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -8,7 +8,6 @@ S3method(format,package_build_error)
 S3method(format,package_packaging_error)
 S3method(format,package_uncompress_error)
 S3method(format,pkg_name_check)
-S3method(format,pkg_name_check_acromine)
 S3method(format,pkg_name_check_basics)
 S3method(format,pkg_name_check_sentiment)
 S3method(format,pkg_name_check_urban)
diff --git a/R/name-check.R b/R/name-check.R
index 0b5dc3cf..83cd4d4a 100644
--- a/R/name-check.R
+++ b/R/name-check.R
@@ -35,7 +35,6 @@
 #'   Available dictionaries:
 #'     * `wikipedia`
 #'     * `wiktionary`,
-#'     * `acromine` (<http://www.nactem.ac.uk/software/acromine/>),
 #'     * `sentiment` (<https://github.com/fnielsen/afinn>),
 #'     * `urban` (Urban Dictionary).
 #'   If `NULL` (by default), the Urban Dictionary is omitted, as it
@@ -59,7 +58,6 @@ async_pkg_name_check <- function(name, dictionaries = NULL) {
   default_dictionaries <- c(
     "wikipedia",
     "wiktionary",
-    "acromine",
     "sentiment"
   )
   dicts <- dictionaries %||% default_dictionaries
@@ -69,7 +67,6 @@ async_pkg_name_check <- function(name, dictionaries = NULL) {
     basics     = basics,
     wikipedia  = if ("wikipedia"  %in% dicts) async_wikipedia_get (name),
     wiktionary = if ("wiktionary" %in% dicts) async_wiktionary_get(name),
-    acromine   = if ("acromine"   %in% dicts) async_acromine_get  (name),
     sentiment  = if ("sentiment"  %in% dicts) async_sentiment_get (name),
     urban      = if ("urban"      %in% dicts) async_urban_get     (name)
   )$then(function(res) add_class(res, "pkg_name_check"))
@@ -412,63 +409,6 @@ clean_wiktionary_text <- function(x) {
 
 # -------------------------------------------------------------------------
 
-async_acromine_get <- function(term) {
-  async_acromine_get_query(term)$
-    then(http_stop_for_status)$
-    catch(error = function(err) list(content = charToRaw("[]")))$
-    then(function(resp) acromine_get_process(term, resp))
-}
-
-async_acromine_get_query <- function(term) {
-  base <- Sys.getenv(
-    "PKG_NAME_CHECK_ACROMINE_URL",
-    "http://www.nactem.ac.uk/software/acromine/dictionary.py"
-  )
-  url <- paste0(base, "?sf=", utils::URLencode(term))
-  http_get(url)
-}
-
-acromine_get_process <- function(term, resp) {
-  obj <- jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
-  if (length(obj) == 0) obj <- list(list())
-  tbl <- data_frame(
-    term = term,
-    short_form = obj[[1]]$sf %||% character(),
-    long_form = vcapply(obj[[1]]$lfs, "[[", "lf"),
-    frequency = viapply(obj[[1]]$lfs, "[[", "freq"),
-    since = viapply(obj[[1]]$lfs, "[[", "since")
-  )
-  add_class(tbl, "pkg_name_check_acromine")
-}
-
-#' @export
-
-format.pkg_name_check_acromine <- function(x, limit = 6, ...) {
-  if (nrow(x) == 0) {
-    txt <- "No acronyms found."
-  } else {
-    txt <- paste0(
-      seq_len(nrow(x)), ". ", x$long_form, " (", x$frequency, ")",
-      collapse = "\n\n"
-    )
-  }
-
-  cw <- cli::console_width()
-  wrp <- cli::ansi_strwrap(txt, width = cw - 4)
-  wrp <- wrp[cli::ansi_strip(wrp) != ""]
-  hdr <- cli::col_green("Acroynms (from Acromine)")
-  alg <- cli::ansi_align(wrp, width = cw - 4)
-  if (length(alg) > limit) alg <- c(alg[1:limit], cli::symbol$ellipsis)
-  cli::boxx(
-    alg,
-    padding = c(0,1,0,1),
-    header = hdr,
-    border_col = cli::col_silver
-  )
-}
-
-# -------------------------------------------------------------------------
-
 async_profanity_get <- function(term) {
   async_profanity_get_query(term)$
     then(http_stop_for_status)$
diff --git a/man/pkg_name_check.Rd b/man/pkg_name_check.Rd
index 777e8ace..2258ebb0 100644
--- a/man/pkg_name_check.Rd
+++ b/man/pkg_name_check.Rd
@@ -13,7 +13,6 @@ pkg_name_check(name, dictionaries = NULL)
 Available dictionaries:
 * \code{wikipedia}
 * \code{wiktionary},
-* \code{acromine} (\url{http://www.nactem.ac.uk/software/acromine/}),
 * \code{sentiment} (\url{https://github.com/fnielsen/afinn}),
 * \code{urban} (Urban Dictionary).
 If \code{NULL} (by default), the Urban Dictionary is omitted, as it
diff --git a/tests/testthat/_fixtures/pkg-name-check.md b/tests/testthat/_fixtures/pkg-name-check.md
index b2177559..4cae3f6c 100644
--- a/tests/testthat/_fixtures/pkg-name-check.md
+++ b/tests/testthat/_fixtures/pkg-name-check.md
@@ -63,60 +63,6 @@
           sy(async_wiktionary_get_query("not-at-all-sdfsdfsdf"))
       }
 
-# async_acromine_get
-
-    Hash
-      e75a63f773735c1255b5fc8e3b40c83a
-    Code
-      {
-          sy(async_acromine_get_query("fbi"))
-      }
-
-# acromine_get_process
-
-    Hash
-      e75a63f773735c1255b5fc8e3b40c83a
-    Code
-      {
-          sy(async_acromine_get_query("fbi"))
-      }
-
----
-
-    Hash
-      75e1ebbe71ff2fe03ab19fff1d668396
-    Code
-      {
-          sy(async_acromine_get_query("notanacronym"))
-      }
-
-# format.pkg_name_check_acromine
-
-    Hash
-      e75a63f773735c1255b5fc8e3b40c83a
-    Code
-      {
-          sy(async_acromine_get_query("fbi"))
-      }
-
----
-
-    Hash
-      75e1ebbe71ff2fe03ab19fff1d668396
-    Code
-      {
-          sy(async_acromine_get_query("notanacronym"))
-      }
-
----
-
-    Hash
-      c9f7a9df91de392d775dbe895fbcbe9d
-    Code
-      {
-          sy(async_acromine_get_query("cli"))
-      }
-
 # async_profanity_get
 
     Hash
diff --git a/tests/testthat/_snaps/pkg-name-check.md b/tests/testthat/_snaps/pkg-name-check.md
index 1feade8d..4a557fb2 100644
--- a/tests/testthat/_snaps/pkg-name-check.md
+++ b/tests/testthat/_snaps/pkg-name-check.md
@@ -25,9 +25,6 @@
       | Third-person singular simple present indicative form of tool                 |
       | Anagrams: loots, lotos, sloot, sotol, stool, tosol                           |
       +---------------------------------------- https://en.wiktionary.org/wiki/tools +
-      + Acroynms (from Acromine) ----------------------------------------------------+
-      | No acronyms found.                                                           |
-      +------------------------------------------------------------------------------+
       +------------------------------------------------------------------------------+
       | Sentiment: :| (0)                                                            |
       +------------------------------------------------------------------------------+
@@ -205,45 +202,6 @@
       | not-at-all-sdfsdfsdf No English definition found                             |
       +------------------------------------------------------------------------------+
 
-# async_acromine_get_query
-
-    Code
-      show_request(ret)
-    Output
-      GET 
-      Query string: sf=foobar
-      Body: 
-
-# format.pkg_name_check_acromine
-
-    Code
-      writeLines(format(ans))
-    Output
-      + Acroynms (from Acromine) ----------------------------------------------------+
-      | 1. Federal Bureau of Investigation (18)                                      |
-      | 2. Frontal Behavioral Inventory (9)                                          |
-      | 3. fresh blood imaging (7)                                                   |
-      | 4. foreign body infections (4)                                               |
-      +------------------------------------------------------------------------------+
-    Code
-      writeLines(format(ans2))
-    Output
-      + Acroynms (from Acromine) ----------------------------------------------------+
-      | No acronyms found.                                                           |
-      +------------------------------------------------------------------------------+
-    Code
-      writeLines(format(ans3))
-    Output
-      + Acroynms (from Acromine) ----------------------------------------------------+
-      | 1. critical limb ischemia (228)                                              |
-      | 2. lithium clearance (63)                                                    |
-      | 3. critical leg ischaemia (43)                                               |
-      | 4. clindamycin (21)                                                          |
-      | 5. clomipramine (14)                                                         |
-      | 6. central lymphatic irradiation (10)                                        |
-      | ...                                                                          |
-      +------------------------------------------------------------------------------+
-
 # async_profanity_get_query
 
     Code
diff --git a/tests/testthat/test-pkg-name-check.R b/tests/testthat/test-pkg-name-check.R
index b50e5547..5db23893 100644
--- a/tests/testthat/test-pkg-name-check.R
+++ b/tests/testthat/test-pkg-name-check.R
@@ -20,7 +20,6 @@ test_that("async_pkg_name_check", {
   mockery::stub(async_pkg_name_check, "async_pnc_basics", fun)
   mockery::stub(async_pkg_name_check, "async_wikipedia_get", fun)
   mockery::stub(async_pkg_name_check, "async_wiktionary_get", fun)
-  mockery::stub(async_pkg_name_check, "async_acromine_get", fun)
   mockery::stub(async_pkg_name_check, "async_sentiment_get", fun)
   mockery::stub(async_pkg_name_check, "async_urban_get", fun)
 
@@ -214,70 +213,6 @@ test_that("format.pkg_name_check_wiktionary", {
 
 # clean_wiktionary_text
 
-test_that("async_acromine_get", {
-  resp <- fixture$get({
-    sy(async_acromine_get_query("fbi"))
-  })
-  mockery::stub(
-    async_acromine_get,
-    "async_acromine_get_query",
-    function(...) async_constant(resp)
-  )
-  ans <- sy(async_acromine_get("fbi"))
-  expect_s3_class(ans, "pkg_name_check_acromine")
-  expect_s3_class(ans, "tbl")
-  expect_true("Federal Bureau of Investigation" %in% ans$long_form)
-})
-
-test_that("async_acromine_get_query", {
-  local_edition(3)
-  local_reproducible_output()
-  withr::local_envvar(PKG_NAME_CHECK_ACROMINE_URL = check_app$url("/echo"))
-  ret <- synchronize(async_acromine_get_query("foobar"))
-  expect_snapshot(show_request(ret))
-})
-
-test_that("acromine_get_process", {
-  resp <- fixture$get({
-    sy(async_acromine_get_query("fbi"))
-  })
-  resp2 <- fixture$get({
-    sy(async_acromine_get_query("notanacronym"))
-  })
-  ans <- acromine_get_process("fbi", resp)
-  expect_s3_class(ans, "pkg_name_check_acromine")
-  expect_s3_class(ans, "tbl")
-  expect_true("Federal Bureau of Investigation" %in% ans$long_form)
-
-  ans2 <- acromine_get_process("notanacronym", resp2)
-  expect_s3_class(ans2, "pkg_name_check_acromine")
-  expect_s3_class(ans2, "tbl")
-  expect_equal(nrow(ans2), 0L)
-})
-
-test_that("format.pkg_name_check_acromine", {
-  local_edition(3)
-  local_reproducible_output()
-  resp <- fixture$get({
-    sy(async_acromine_get_query("fbi"))
-  })
-  resp2 <- fixture$get({
-    sy(async_acromine_get_query("notanacronym"))
-  })
-  resp3 <- fixture$get({
-    sy(async_acromine_get_query("cli"))
-  })
-
-  ans <- acromine_get_process("fbi", resp)
-  ans2 <- acromine_get_process("fbi", resp2)
-  ans3 <- acromine_get_process("fbi", resp3)
-  expect_snapshot({
-    writeLines(format(ans))
-    writeLines(format(ans2))
-    writeLines(format(ans3))
-  })
-})
-
 test_that("async_profanity_get", {
   resp <- fixture$get({
     sy(async_profanity_get_query("nope"))

From b4eab8cdc1da74d1c4271587e2cbb740298427bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sat, 24 Jun 2023 08:52:40 +0200
Subject: [PATCH 26/46] Fix tests for pkg name check changes

---
 .../01ca05e7e503765b871858b0a893ae85.rds      | Bin 3449 -> 3433 bytes
 .../0468c02ed8cc959d7380ea172a55e336.rds      | Bin 4394 -> 3776 bytes
 .../13205944297f7f4f50e756b13397c0e5.rds      | Bin 5039 -> 4521 bytes
 .../1e01504bf366a3d1d8a30a1bbfe42923.rds      | Bin 838 -> 989 bytes
 .../4e90ad0d1fde0217f9683ea1f804af97.rds      | Bin 34866 -> 34400 bytes
 .../51e4c0280615fb2fc232bea02081489b.rds      | Bin 522 -> 507 bytes
 .../936aece313cdae39b02cde924e52eeb9.rds      | Bin 1218 -> 1139 bytes
 .../976e3d01a855e39ebd71c60482a1cac9.rds      | Bin 1509 -> 1440 bytes
 .../aa4b0a131ad85ee937ac2fa09743c560.rds      | Bin 272 -> 272 bytes
 .../c6ad8510dbbba26e1ee8e9e21bcee98f.rds      | Bin 191 -> 187 bytes
 tests/testthat/_snaps/pkg-name-check.md       |  54 +++++++++---------
 tests/testthat/test-pkg-name-check.R          |   2 +-
 12 files changed, 28 insertions(+), 28 deletions(-)

diff --git a/tests/testthat/_fixtures/01ca05e7e503765b871858b0a893ae85.rds b/tests/testthat/_fixtures/01ca05e7e503765b871858b0a893ae85.rds
index fa3d4594557d69cd04180d32a7f3bad3d11ab671..7a1095bc799b3f0be0c8355bf17687fe79ac172a 100644
GIT binary patch
literal 3433
zcmV-v4VLmBiwFP!000001MOK~k6T9-ce0y=xC%llNCknIY)g|!Yp=cbZgve(wP}Nz
zqO>L1Qou6N_}=loQ{OvdX6{|*<|&Uzyzm*|6Y$PA;1eJoka*?2kCfk;nd`N^yG^Ks
z#6zoY?0e_T`8Vg!?~H%hY&05|8=D)K8kaZlweh-pZfwx!mGF5Lf8WC2rN(CCI=wHn
z&MX$2?xp+Nyu3^hW!&1Z>vDMc?b$SWs(3D*MyZIVPfvIz<FIxu(}|3DhOhq)LWy6^
zzj1*At3rwQy3oxrx1ts@<I$8S!tcBE#Tx1BYx*ti+{~mcF3|0ge@`qgud}=w8Lr~-
ztI7Y)n*5c$UsZ$6vDDF5wEuMHvh<}hIhV~FYiwplPq>mrb?#BGD1EgSN89UDT@I7w
z(_HoKvYppYMZTJ+!Bs}~0#9EQ{HrgI&w05?FJJy{^Y2HDcrs}jS4@vT6H&p6lou?*
zvv^hr71N4Tu{@D+$+KIa9Lo$AVkgUWEGHG42ws#%Sf(e~EtoBh(Ixh%gb8&bjaIo(
z1=EJ5BAXFS&Uh5*d<K(K#@URULPllA4J){vw%Jiuq`FK}mUC4>1)1~AveJUN#4h3V
zw%bgrtYT>iDmE67hgb7dgN#U_jxDqb#4P3obQ~iTu|vg1#7^T}W|>e*@@<y#69GPg
zd|`z-5i$6X6`lcE%%|WB1B`#yX3YoOEOZE3<vjM%%ZMx}gps5^w_cxZHg^9air8H1
z7&;5%RF2sMPMR43hwwsbMO-G11S%I$g_x^y!XxrHt<D9XX=Q6}W=i^!SqrgH8*v$z
zkzi2<-HCvRA#YM<j9gFrtb2*rp5Uv~9Qw|50X7x5XByk)vPj(#M-W+<GOBgNVOgi$
zm_CKI0vbs*G2D}pvc$eX>e!h!g|n{Bj=?JyCnD1`A0kj(6g;a9ah~LHEQy?Ftf*!o
z&fJO2w6$`ai8gzm8xre7PMD-(R+lCsHELUY6k!j%4VNRRw<#oTA$U#(W>|=!bYui4
zMmSX$qT<=<`PYu5^f*DBAYv250<22hX~;t46oa*&9;&#62XGGTu{hCL=^U1GZ=Fl6
zNhZ7-XIjDoQn`&GenXIvo3QAF*DjySSXhJ#M~aq(&V9Uu?cGBtKn~yS;7bJ8mPW#J
zwUrBl^h_Yqgx5Hi-bFr`ZHcuLX~A}zO-kdU{?t8A&Mc^OLKT7H!0pWVSeth9e&uV3
z=YWuj#0;@DPbCfn+$j#2t#AOOd_;#K)rqi$Oz@0U^fjPBh>|nFi5W2w#yA7$NVl9F
zTeP!&n##g%wVP-bmzT@mR$3G@JJ{I~sy&xeITNwuZEcbrdfM^Daiu4$7tRZN1`;F>
z-<wJsI8Z(pb>nD4S!r;>i#JyaS!CjL^Rps+-zZJC);BgTXl)A%>aE2%s|BLW@ir1K
z7i%!(y3zA?4OMPXS9*bezQBJ=O=siFn@-~eUS8@q@7-e$kRepP@7-%Q@qCYcj5=Sc
zNcup;o969Lp4?#%KR&uW71f;q+bPPw{vmt5(|nv(&|<(^?m2A#5G}*)auS=(Symdv
zVn~8O^b29e%S5PVCT<~4EksgOx*igG1d_uFmr^nMzKbZ7*L;oTk>UxwWgXj0>jL?U
zGO4L@&?7$Zlx<V(rVp%yz3jcRh?X4i<rb_3<Xfu&>FS%QP9t&&Xr2kl#i6Xn<i<HM
z`HCU--LoMUbb5st+xX&wkfL{&UMw)%g_gV$prgZ-)Fx^`hmt5ze!Z+S&bU(JwH1_g
zeLZ)YXDq$GF6c^W##~*X<u_Ngya3Gow-e17G5@0><{aGq_1yCH-0~7nUo^KY|2eN;
z3yhk9_9r$2RB|Yn;KMMjW;#Z#lF^6_l@M_z?8qZwboilEG?I*1Y|6y81CRJgO2C15
z4AFC#n}9~!VNfBsRWVd_0*+-Y!Nrz<Wq~X3(XiX?jDExtz-rWVA^|RP1B=rM&@+o`
zS${rK6-^KrDu7)HK@sr4loUZI4FM^4fUBaHn2&%N0an`Vk+wwuS=>Q;zZPp?Q8DI;
z^?*x>fOM?LCM_TzA#z}s;gd>fRpn@rN7km01oMD(3AYX>7(oo47rgN9Jq{h;)p|M#
zieLVmyfR?773{jxY<Ams*bz(0%FE>dYKeeCLwzDli$EwqU_4?X(QbkwKfy8%^q<ej
z5|)U9m8un&!o5|l$<rC6GAHc`^k$j!O(roUarPM{k3}0Di-^PdG!TFqgP6$5SdjA}
z6qAkcTWK<x0zqTOOthc6{JaGT=*W8NobE9D=@<q_a^(~p3ojVd9xw+~kn_r8bqOE}
z2x`b~%uJM3&#{N*Bt`&rTo!(wJlFPIn<dMg7FZF_B0}n9)fk+hirXKkc;?5lQemRQ
zE5A%((IVtD78p1sA?4;S&gY5FMTj-9#7VH99z7-rf+kfGfx!q|ww-`1lZk*iUIJMj
z2J<$%UxEgxBf<n^y@Rni%1VLkvcS*@H?c?X81-rP!~6t^nA(-VAV)gVS=g}i`27d$
z(b0!Do6X*;n)MNQ)QfEno(F7>souzFia>S$QnuPC&C3Wu+HCgMIJp5d1diVjqNd$$
z&tWV+Qh~@A(nyApg3~ZejP}6jXIxc+eTw`EY5V(+0^1BRXkA)UI|mqxIBI&hzL+XK
z4<-)X?SU&1qc%gTVCc@=mm%gI$fCFJrkKhj8moct*|<Vb&R5QYj$+3dO6lyfxlYK&
zy(f#x$B~GLAXgL+ibS4EH^iX`&QMHsHgf(lG%_MV7fgP4Oef~jIQ7Xvmm*-0;w$!)
zbi=}Zm5Zevi%g2i$VE0U{M`(SI3sX#x_cr-25-}#&oH=A7Es(kuw^b|7@G@M#)e84
zlwS*d22`Yx6!0=sxBfgw3@VQ)9)9eKctS(^Y!rA0qQK$O-)<`$U~Bc3$yrA=Axz;Z
zjn_T}+#Qlxq>jHYafyy?35VhC0!2?Gg8CuVW(s|+2m~Wl7WZ8k5v03r(iEt^w7Swr
z0g3T}t|(Af$cs3AH*_Ne?)#Xm`NUdK@E7hn1mn1IDso4Sf*{a3Vw@scjEg=~jX-IO
zov}~?3c_dvfR)yzC|yO=rO*$%W4dQ)=~>~UEz$;RanGErq>Bu?!J!busDr>j7n`{j
zRZrJLI`a%??g9!NOo@^Pd!=WSip=o_8C^J-1SsIS7tv<nc93#hz|T~`E&DAsQ)DVc
z`gZ3EYhlXz{>CL6S9OStsT5OJz|s(fv{=rwPt;Paq;?d$!cQ^c?x{w;M1`1PB7>6P
zVO>_n63760wbw8Pqsa<`mA^Z2(7l|sQ8#wF{eG{1(0@5yZ@=5=*K|KzqFW*Bckg!l
zz0OO?cKf}9?tUQq!9`@fgZ%~3n>A4?T4xFO_Pf2qy_bpI-S6MM+p9TlEs?dfT2-*O
zci8E^)Q-KqgYLn8O?GpMOvJ11>vVgagM)@22?_r0ha>t69x-@)@-KqD$o>gFU&G&@
zmT2l@3{%QE5B^5xobScy_is?xU9fh|g|$}aEL}Zz=B%mm#%`yx*XkU$y8Yu$Z_v9t
z*gb4_I-OsyuHS8SJICGbpua!p-d$fmY;_J=-Cf$>Js9ksw+{XX$DQ55-u|F}hJUZs
z*==<Xk30QAzdP7Fv!9sLI+*wSgI;faos?_s_Kv%UgT3ycbB_FO7ylo3_XniH-r71A
zA-@Cp5Z*iA{%&j6*+=sGetp%C`&+|@^wYvEBreqgl*=R?)t#P6%72A5cMne&|NeR}
z?0$RrM4*njk`|+WDp$isuCScW0d?I;A8|EcpX&JvJa)aFD)yvQ3gsBZ1%;>0KBY24
zpwGkY_KhaCv)uuEkLPIB!%CO8&;SkeEk-rDQ?Hiyj|a~<-8u~b-#_xd9+(k(vpWE^
zst5$d3`_v@(MC`4$}LPg5)%kre-1H>koBQc^Epr&8da+2?=+h=OZFy|`Y7FY%yPk@
z+}0z5RtHwCqbzG3xi0%iytB2u32OXG@RY#Rnx$*3A39V-c<@&JD}XceW-#-vLm)1J
za9CEjvvlx!NE=7g!?5!+jA3l(eiIluL>{)^-+DwUBMj_Z`1YG<%pDJN=JY1KFfOeP
z$4qi?z@d#RnIyc9h8J5O&=BARSpwJWt>Hn3uukQnErIA^O3gWy1W#aY_>BXc!_YRI
z^K6RlswY56;nJS=`CoW|v+T_+wspoATQ{0Fn*J`dk$#*B%-FyJa0LsMh2<4+H4sL1
zll}9>9}${4n+k#6JR}PD6AdDF_yPU!G;!k`DP}zwHNrK+96)a9K@&P%?ZNL2AIYL%
zk9Dp@<>T3FwV?R<@L{46d)_qwlY)Z9AkG92zY;0$UWbcp5lolGO?F>bKC}{DcwNz`
zZ!T5xw<!il4a}IoX*9lniwY?IbhzZ`c-oa)iffB&!$sCEE*^xtFIV-o+4UkV^Raze
z&g$ZfaeQ%?J~xsEu&0at*Mv{H@c3HT9qak}ZC!oMxqgl2Z}z^z4d>_QT*v%>+&KOR
LO<6uZS|I=cz=EXh

literal 3449
zcmV-<4Tka`iwFP!000001MOMMjvL1nr8Ih243q?Lf;d4QrLk;D#*o7va$a-<W0W}X
z*pTg5R2+vOgkpD*U1qb2uBsl2T4@;|n|wn)AU~2-kX2Rz@)2IfIk&2tui;p>fh+=8
z5QpsUTlZb}o?HF<YNb-ST)9%&s$AZ}&&tdGy0S&z*B0NE@8fd`bT{yQ)oGnsJgoYg
z{&VH>GC`biYl~Hvi<>`~jD}AXAB!h(D&o<TGoHz$cy>M0LmBf7KmSt*C4MFU$^{Cn
z3MJm_La+3>6{U~~k4Jnc!n#XetdYLFrr*-aE19(J0^Kf!`^56{I?HRZ;VS8WHTgeW
zlfSa|n`&^SFLnG4?O&{1mcA5|jci_7V>2;&z?F2fjiFvq`dTTDmX}doPLt(muKIS_
z&KnDnU(M6tDr0+rr!PwW)tj9SH?Ppm7vJ0Z#|a~zOj^bj)BR6H>{xC^g4;|ybwc4+
zDj4s}3`Q|MAUdfMc_x#bXGAvEi5$$>Kya5EVTp#8*xVSMgHjEdP-oI;H5SU%*-7S7
zoexts=4u9Za?CSJLYbB0NhZ8Tc86(|%~+a)iuDD!;MO$NAR|%;u}-Ukm?hjnavw>C
z6)G_z@p_D9mI<XK-(e{~6W}ArN-NA6Ow29m78sBnd<4Ew-GqB}#yVt&aNZ<OX2fT?
zG{HR+VFuca8LS@&1Jjt}b_7-_cZ?gsCfvBWHxP2hV+X&%jc_;8Faw{V;D%|#i0{Pv
zr}}X!;RLd6%;BHO1a2S}PC%HCR;J+wx~qc^T}tj*2p$Wryh(5!Meweu59>ROGw3_I
zw*$`^89Okr6TwI1ghlWv6M_`)e>vEJ*Q`v)y%Yr&YlZcB?1C5if~6u$c9;xnGfPS(
zK0+M7ptYnt@w#Q1o?1})a2u~-Fi+F+Gj62L5lk^OA|w(NjzyiF4&Zs{>U`7$o5E{$
z#lK$TL{AmFn@PlxvyqYmL_C8o_q=xGO=vsO*2=z5GcZLG!C}(92}_A6aGrD2xufXx
z4g5rk?<^jTbL)s76w7!l5~K_ACAZ<}0Jg$Pm5`ZOg4}qjl^)9&k#}OK4SY-4PBBMl
z5G8m|t3|Rb7NFRS7>9W8_^=?y*0eI)fwRtJEOtoCDPmu*R@b)ucIw>3ws&`hs!!!e
zPDCPkU7O)9UG0XVu(=je#udM-3aO5A_)L@qv5IYgtw4D&FHh2CVzKzCD}Ha~CR^*6
zH;kUv%dUBo3gmPA`2zpe3g?vzYWv)jvL?HJ_9PjU5^+`PiQ2&H14DIvQChdYytG!H
z<L0H;s`u}+x7843Ic4|nSF5<b&pt#Y%T+A7lZY4YRPR21bdQ~Wcyf0nX7}1`*X4iv
zbM|bvpno4#(35!))#@b64R%CPQwpNr3DaLD>ZH;nHIx_&8C0k8427a7kQ3xB)f=kA
z$R>%(<}1-E%M-<iu-baIC>ag~G}BJw%hDyjaFtOx(Da2T#aj03+{H^4f4K!~p1i%9
zZ{#FyW{ZSd!cX&z+uD$En-gg3i?5h3KR%x?g(}}HVXhYZD;vIVu70nWc6HNcvZ*%i
z3B|134w+WNl^X+UHA2Oux>u0|u~>6L<pSe>v}Qby4JwHeU*B|+a_RYbvo^uu7veEW
zT1oY*#A8yS6bch$U5Lr9t$?H(>pQ=CF0?PL*?VJM@YUS(xw=5>@2+ZnF*f^J1Ijru
z|D%~?0}TIm4Ec5pd4Z=d8bj7U-t*TBX4QiJmp0=7hNxa1y>!#rL<9E#y7X9A36W&N
z_U2PXS1JOUJ(ie!XzK-!<Pnub&!dY5%luH&+bO0EKrP@UbTi;eo+lDqY%ZNBxJt#k
zQPk+Y#)eua=x0O%Eb8YEuhUeUEGcAN{+yV%*<FRl_o~&Xevh57VLoG1=~5uaG#?VW
z?&>pPYElg{!ks+^(B>x)5(l-ob7DMkWYQ2LLau5_F8p2PfdQG4$}xaCAoLW22*H0=
zfYVPY53MC^9dp>QLrhai*f+})K{h}rrWO&F62cz=f8Mb$F-$FCUV#J}2S$M9)Wacj
zF~(RRLgfmO?gfLo?uVKJSP&!@XM%j}+lwK)`9xEKKEoP9?*OGxlW?$~2R7M0CJa5d
z+-u>-$C$7>Sp^jCpo(8#Q1L9F-dqu~SH)v0WHmxteSv{ZY6CpGhxk0wV?h&97yuCo
z_M4NBNP?hAk3=}0d0<QevP=%qIz^B`mKXDDoju4w1K<+t+}Pk?8pg6*AW3Py8*<}E
zRzI)|5VAUZ2NE&MDuLl73)2>cfv~dk&fDza$@{me)#j?2We5Up#xf%Y#mGYw)&vvS
z2<YAarKGoUI?m%!4+gi^I6(<pCQevTWKF$ZpTbytr2?7JjrAC=v_OPvNR0Nu=sgUG
zf_;oZr`TzK`k-Kosbv&K9qNq0bKRJuKEh2sQgfvAv@o(8CO_J1J&ZXg$ZehZAKlmp
zNTa*IO1Xii822zEu>K5bIbDec1!EVc(vGNEC&aki{D16_v;7WCLtfK>$ZYCUImbQ{
zJnZsB+P=u781#HfV%1_^LW5td?GA*<;3p)d=`r5-gB*oCI|G4Fc7|ckkIP-99c_(X
zsZXD_2<=uRN*4+4maTuRmU5WNMB+E3MZo+V-V3Q?ivWrY2@4+9`znzre5eeCq)Y$2
zs}Q5w+Mx=0fwn!kK|q|Mx{8qHR8x>e<?irBChTP_8*;daZlL%}<n1X<la$?B5tiO5
z2YX2l7)u%`C>?1c7G@_@KT;V(25K>t4)QmQkI7ir{vf1X$tTf*^4s|%0ZEfCN#mZH
zP77ulyRU0djD3O`<W;P#+wBV_pdgIq+007ocOfN4S?%-y4yK|N>zbapkWR5SP>ToV
zWTl=8GsrWaV>HO4Kj?ho&pm8DArn}avLi!w^k@Y*m>g9L_R7G9PA-Ty$mmST4AC>6
z1rc>t9F5U77VtCGXv;pMwu8+Gkv{r9aOGHD9!8A0DpRRV9S@}udkxL7NQxdqXX(@W
zH+@GO(vifZOw)p><nUgnDD_?L_g#;qP@SiG<zrSXc#{f%8b~zWc^3L`T3SlB^a_^u
zAI%#!$F@Vo&Moo|)<8uumguogL){6Y?**bh8F8kucMLYkYWHU}?_t~vXJ#H)=aV{0
z(QedgHCsom7t=KlqDHHv`^6I73R!Ef)jWz03bLPFMAkeym=j&dYww_Sc-Sn-ZY`0C
zWL39D)NC9by@=ob{!w&v&{#flDadMCty<CCKW;>uC=s<aLyj7U$9o0kt0iSBYUgd<
zKZu&g`;{;i5<YF=^F2Vdzg8-b5v@xHxZcC(GeU>>{5(8giDWTGY`6$V$K@cq`S-Ps
z_uhsl*NfxC<x3b_4r^3wmyV`OZC=@HH1=za<66}0>^0iW!}i{Bz0qj=VfFc8EoyWc
zt#<369UZPeKlbYnJJE4_|DfGEx4v0x?A4+p;@^te`{&jZ^V(js6YaJ4qjuxmbI6Zs
zdlB((wc5?r+VdzP{*9wfblBc+ZqOgfMfl%o9JLz|vA;q8RxR4=L{YmLwWD+EkMOV-
z9e1LJm){J}SN(Xf-92S7S9j2PsF|Ti57S-=A(*5Frtr)kko(hQ3jB7l`t|N3fqLZ&
zX@aV)eC6~tXbGp6wd!AQKjm~n)vi{%AB1Cebl+E_HZatT&`!c;ItKzkHCq6aJD3h6
z5WABx>W|Awo1(MxDc~3(0X==IS}j?!SNGcNgLKC;qr>hUw*Anc;el1{B+F_izK}i?
zZ*4Cxf*PL)o)T*Er_sQ%7MwFWG+kkR>cI~IKcFg`$7#{=ZWU%8dc5MZ8qTxA`_|*=
zE-ma)C&S85>4doJ-!k+(^e&b^-+q_sxqoa4`?A~JqXr?GSwNnIal0us)>Km8fRfI7
zEDN9bBVxdgDbGgejCuep<l8`47hYfhOW9l7Z2O!A+c&E>%gp#~_jITcpP&dTy&#7g
z#6oZ{ZHf`WN8Td{>k2{A-C_^)EVzHDsm=PW-z)v|lkP+59Q#O*l|a*9YC!dHvRX+$
z%mfBmKnVD*eBHptGazmNli4ly@8^F(ZjISU2(<KWQ8E~%UiV#kr2{bC3;5m!kZOc)
z$YUVIZfK;yS|!eU{7@hVWw38Re{3oZIW_Z=ot{ui3l2{O4|+={dNP5J(N{B|C8Vhz
zwfIy}%dOw6hCvcZHBT92U+FT~G?EDx5ylK4QTo?k76X}d7`$!Rm-HF}oi+^5g~%Wg
znCtY;n3WJT<B~>bg$)cwZ_q|&19>LixLGCpPBHJ5Z)q$yF$Z>w>+F49!hoSxiqD5a
zzu~QT8cc;}>g*E))SHN%Fat=0L+b@wr=9n28402<!u??TA#FjF8B4EE{8XqhFrSW@
zj{`xRer|11MqB_f1vrH<L%zM#xn8H5g^>NdQu!%eC&jbd#i`3n6@Plaa%^&aettPG
zQS*}!;on=R@*MAmOY?ExKFKF#r<!Urf2T1ulE&C4i)JN4MJq19Q>>;pO&1(Ue}2K4
b?D~0MID-7T2eSVM2c-W6y!A_a*dYJ_LWz>f

diff --git a/tests/testthat/_fixtures/0468c02ed8cc959d7380ea172a55e336.rds b/tests/testthat/_fixtures/0468c02ed8cc959d7380ea172a55e336.rds
index c44d201c3f36fc811a8cdc52289bf0c4bb33d213..3f7faa4377ab73752d32bbcefb833763a1331f91 100644
GIT binary patch
literal 3776
zcmV;x4nOf9iwFP!000001HD;Ij~mH(o|Tj=R)K&ZF<`@RkP=~Fw7?8Sa=s@ALAzeB
zwDEcu(QIV9K?ud}YIZG~T})TCDC*>6faDMOoLhcP5TBeMkV|sTF`MUktD3_ZD-m+B
zfDu2s>aF+ld7roVi~D<fdw2Hk-Th$i&Rx8{`{(%YL;U?I{_gMH+xrNw|L|2~)Vgx2
z*7?G#P#Lu}P0+Q<^-AY9Y*cV+(YUq3BkNT*Gq#zl&YNO7RO+cJovY<dmbWI@hTnc#
z=~m~#wDzqj)NG?_?6*xYb#3RS$&J!Y@z}L0^QJBjeK2M@9VV6j{;JYJ&AW~0wbTpa
zaU7Obcso_DYoUrRAWvn5^)pjjQ%=>a3kv&af!9l;g2jK^-K8<LnwbEdl%6@Pg&Z9I
z8jroDMrsYMTBEYY1y$LtJ|Fz<Q8WBl9YSRsS=iUM=-?jewzjaRnb#YYSGt))R0R(?
z>eu41O24-FP~vZ8TJIWcn`@}eFIrdHFjUVQXpBv{gLmG91Et|_SJTtpE^Vz_`d_P+
z^QJw(iJ?*sA+yVsYlCir_yBItgLU-%CnnbjPA{i$(25q}0B;NE#nZH`_Rw+TnnGo5
zS6B&qyP0C8507W2F;Eaj>w4p@KVbNwx5o?3R;~=DfdDK&bgK}<oVylk=_s65y0vM`
zu9n!h#v`n)>sFpN`EErMRK|$ah}e`nAffG6f%e)crZTn2#xhS8=DM+O;}Jt-omh!y
zt%0A-0Uh^uoedC)|5{xmI1)G?+Kwhd@tEbhNddm|;%c+9d0dL`YjYzCZfRVqk;a$;
z&Qn!4N1m*aTdG?r?u6s7Dnli0v!MJ<%%#s=vG3K~mSIYpdGOk`FbMe{{aD0ri*7li
ze<)xs{?W+QB|L$*2sWJOkwtDr?UslTJhfc920G7eTf-Hf^CilxbvLi%2+6JZ9ZN<&
zqO#-wDV*0Rlq!}@R9W`2!e=Rw!aMBByI_XHAxo|`blk!JQ-Ce33sCwBUWP|&?-Z&<
z)+*#x0gMpfS=D+IlU|FR`^*R31~E?3n$rHSlLnOw16iIU53;$z-gOc>#rGTWcnaSV
z50KJuJ>knjA=ijb01Q^ofuKzK&PqXDpVZ6Znv`1i-hPU@Zc$b=W=%&U?=~rr>QU!A
zNjoN+|2V3SGX!B%3RYU`R|G>w;i5a@8l%0fsdi&mU9C}tGz3u5pFq8UBP%Q#_%2@n
zh6ccApiT(`58}b8mIL#-wx!{>3UFgx=Na0VNU6e95MvmxwxCAWhbzZbKCY*pjY594
z(JRq)x`yw)gjGBxWv$w-Hq-*emRl1xghloWlLtcW3P_ET_F@f#j+OM{7E}ZwX-d>J
z+0KfUTuaN0v<#fLjEUg`9CFyL2E?5~sps>}KpL6&{o4+LYs>Z#QgUi^ku^LI8-c_+
z<f+DVy+}R96VU|BJ+ZlW9z16R$JYRpMj@gDUn8Riy=#}L6AkE?7^74fP_$2ynQMXH
zXgF|~0aO>Jh)%7ThQR7ITz0b-wl&o?$bPs?&upD~I+R2_;fq?}1Rbh`za<$Z4sd*f
z=YII${_~Q+=w4eC0DFLo)eU11O2^>0bZv^>L9AjrQIH34oG*y2g$A5?ZHp*tD+>M~
z!bV`WXqfu7Yk}TgJ@Uq=pV@j}ec_q|mA!CX{jILlCvG#v$4?x(m&+IG1-feR(~l9p
zD-khB77!$3UmFn2W1{D1cZP-{;ZX>!TdLTD;0Cj@-W8$@4nv`Rt=k1$@Zf&R3!=z2
zB8CwU%&av~DOPPZ1Cv@KJZP`ln;BM;OHC!#I#e}CQcj4mY**V#Kvuz*ln^Aj;nO+Y
zJ!{+>7NS}K_DG2gG1hf(qL!{^^is8YrIwwCTpNoEK#<tWzrWaNV4<~=&)3z<9*@uo
zrbw}Jsj0nz&AU5c_I^m%N<wp;v_rb4Bz8oSGgSRP;U3ow?PeE~ZE;8BQg9&ifJilK
z;VV<b!mRa-P=HT)op3O9wnhjm{AEKTdQ#ju!o+d|B}<5O`>g1O-UYp0vNmaV)A*=c
zSfgjQc3!baa#sTkL7nghp#m8OHL@)J-{YVHNe-lE=1AW9ERP$dynvH$5J;@ekud<5
ztgoOcLhWECfe5+vw|cok+Nej_r>+B+`LuF5st<{uxbwf=P&*cpRt2bBBXmk)r^!JI
zwy|&88JzSJD|Ar06y3>|gM4gA!kF94X);~#OR<Pg*$M#DkxT8!C%LSVlf@>s4A`=+
zBFdM5+bNFjKz}x_1A;<2-?h<CJWaYB)|xkHPoVtbM8<sjBwBd)AD_at1%RWA9Q@Wu
z!j_WSP%L(4HlZ2G-3VE+Z@HM<TYVM#o|u%HMoa?99qKV)5C&<Vkq%Bi=O_Z!5`FW^
zvEc^S)2^_)lO+mou;+$r1Y)6y8SwN@tb1I6H-R41T9+JHuwWY#!bwI`K|Ld;$k$6<
zNP{9oxe~__vX~6fx=g1dEQ`cJ&)7wo9p9RE5gUp1TNSiwEQTTsYo;ao^y3(7nn<vO
ziugc32wa29sV~__61|p)Zu<ZPOFxZ{3sp-EkTz0yOdCOzoq{fD^Dcg{y|I~)zxAOi
zOBrT}w}Q}_^vr4UF<a*fMip)?EjM*J*;+W-5UFddEg}cI$F}PVClw+Tx|J=qQ!oHn
zQe(3(#IsL42Dp^8X3Oe_hU@3?Q6<TbiDng{3L*Y06*b%9!k`2?A^rnVBid4L68)21
zAx_2d1Mwlj1I_eA^Hn#iZN4>!Eo-M$aZUq8pv27Q2ryi>-E@ON$-Evba(O)_(C`64
zcF+${-%p4lhC;lsdo-gY9x3c){3(pjTRRh~+=En~P@IN`Ll6}pOXwQV$?a5e9WB<N
z=pnPF@Rw`HsEp$|?Bt=-orwgn!XCU`A8kY+Q>|lJFC1xxR0PL7NYSV*c^Rch0yB>c
z2rq_ywhYPvbep!3OyUsVIyNgVOjBkeotT+sHm^B0rT&$GVu!6>&sRD*UgG!HKmY3G
ztto9M@gPsW7X5_qWtFbU*kn=?$NQCuMAIg$WeN(0bx{dTJSS5^F+%%N&V}NYTN%G|
zw$vaqTuQqoK@wxSw%IzY<k*4s)KieXf9da-<eme=h+%L+ZQxv?HYt7_N#a?J6GoWm
zx0I$7_rB-##FCso4pN0JL9IE~Gq${?aBI?-SW{U@dxD80Nuu$X_Mx$mJmEZmM+S7t
z7Ub=$?zw1B%hSL|-7)yK!&`S~e^G_7x_tbYrwu!{)NVDz;>Snlr{mMK=r8}bMU&Ix
zv$Lc3E;~6nAD^F&-n;DL2>;IBd+7Pe`SHbjmyJ&@CX>ngmt7p6oS&b(_t2yBqw)EB
zr5%rsPEIG|_b!_ppC6rGV95iC#ojmn0lHh_{Xa1#pbGc!IpFbc@cAwNj?>!R*xjSt
zKj{0L=l@_b8XX;uCWqsTtI_f0@%ZxOY&aT?ezo)b>~K6foE%+^FD_5Um!sRy$7Ajv
zVLvt>T~03E@%-#?bb2)!U7n0CC*#}l&*l8ns|og>Uye_1KR-PjjSt6XSL5@`(fQ@k
z=pE0`506Gyqm#>%<9F=G;m3!Q<EsgjJG&fBZa=?(a);yb)nr8dPkv86o?jeJM$```
z93RE!H~n}fm&QUivI2Yz9b+0fU&gjgc5e0)3(2JUO?k=NL)5PaU$CRfV}fN+KhDla
zyi|^zSMF4@iWg3mC5=TZ556DYBO&08V7&l(f|yL>L>2c%PRVPxhXXZuMm>DT%LCE(
z;egyF>G8wtOB;gv8@FuCM%Y@<+<HyF`n=m*s%Jc|)@XO0gD@t4!s7OhF`IV{Ra{R&
zjCe74sb0GE0Z9nE_s;3P*lz|eE2sN^5E;kK5`+a_Xx&4lvX^u*IHsOYqtXKrnuT;<
zFZ%Av9wg!adSeEaN$my*lN-6dfn+&Ie~af8c1$DRN_yvRCE=(b4uoUDHc)p>e-Bfk
ziv#K7?Q+Fm9OP;!iz9~7Il>@1CiT?MciYSk50|#y55v6PA@{Dxc(;5rS@zqfTY{^1
zCrn||kqm9e%EQAKS3muxACDdiV||Vx%>|ipNL(9|xC{enhY5U&`D*)Ehx9Z(<g>_&
zcqvUYnY*^!Twg=tJ6QfuF>JKvK=BSuQaoN?lDC*Je59+Yg4=875s&G|iPSY;M{~xP
z3KM;zU6z+#Uy!utngd)E7s({bsh?BDCmc2DuRdB&9^6kNClL8dqbvDQfl{_q0G#!O
z`~>CcJ*goP!OLqos=wZni*%A{xj&Z?p^QJgK*Te%9dgnEOceLpkfqD?AK3tTIJE`~
zN&`@cr-*1eSF#L`hw5oRiIt=_LY$Ip%n4>W(`~CoX(o>ksGfL8-fo6l!|BWH88Q>I
z-!$2prVz;>@vjVTJDz$Pxl4bqjWEcMF!EbQ7kVcxWju-1u~th~p-qOMevMxAj%<T?
zAtp~0N_oPXb|#`iWYVV@6FS;D-PMi8yyTT5G^!0R&&ZLGqWI8m@71gyzBBIo0&R2W
z3W1LPy6VreQc4iQ#nc5xuN@S8a9<`|2tpiP5N&Dqfs%`vCm@7z)RI|EBs>QfUkIn=
z%||O&_7Nq0aBaMv!G}4iVFZk&k;P?e%#(B=)LFYVx%N7OU<42{XSt(>8qYra+1H=_
z1ma@BGoj^P5C1>8R(k{UNnH=*Coc*_=Qto{&>=XoFs(G01?oEZO0Uz!$KFW>4FL9E
zxX(7f+^E&_FIT_%arAPw-1wEwO>7tufu{-HxAf>o`*?Nu8^xc2KPd3}&wG1+{GWI|
z!r%A!8!=eQ9lU;!4*jDBTKd#$KTKcVzrOED-+Tn<TVjH07X25Y>XtMAs$2EkhXZ22
zpBGaA>Q~$SADTCsb3yv}CuuiF_uC5PHOee0bT@tZz13p=ikiLx#OI4wLKD-oyJ1#u
q_0~ZT%N7f7N&ToraC=kfuRFiSf8Txg-GAZbzyAmCj4{Va9{>RExLVf$

literal 4394
zcmV+_5!LP=iwFP!000001HD>Jj~hpNmL=~RRv;kQ4Uiy6kP@-LNDB^4&bP(~LH-D2
zXLoJLqbNy(5Q^PJc8Sd{ZddhC)M*bn1W0~D{y>mll528Gen5a6bICEz^So8v<ji`Z
zTMW+(*<JP4`}w>drN6p==gytGcRsvx@6O$O_;~N9`1KKfejh*g@%&@_{rhifqc){e
zmCl!5h0>^%se`Ummg}|7ZP-p#aB5k*jlxUoRW>uWUZ~caVmealnVLIS$%ia&Ot3Yd
zeqQQE=fO1gohj68t19fbbud+B7pBgQ(sl8PYm_(D{LlwuR-?qy-(8hDs71RKzE*l^
zJPuR7#3$w225jg8v{Y7DKQomz^QoG(L17p9_j+Yiu=v&Q&F02bYGwi$nkqeWSPe=z
z`x*<pB|mBdo*JXF+67hG)im+*!M{JMM~~GZ7{;N6y|zUQ^^muXg*5e|+N!+N^#Y_y
z=*N-62B($!+TzO`KWo!?S7X~kgK<7++}wtd`l<%c*pxfy=4}`%4Q;!MdiHi@E8S50
zTCJTo%@8MsQaPB+uGX#zx(=cRC_N9>QS+afT*EXSox*`DN`wQvEx;E~)3Vxw$E~Xi
zl{IZ)#q15NojV^snVH&vK?tp@t+#$i<I`ODL$Q^c2UCLpmLIxxh(^v`1GaP|PAT2S
zH1oC+%Qwcutc`2eo-+A%O%YT^n^myclsiD7Y1e`B+DN7}mC(jAPZk!sw(sH*Blw(1
ziFb{Gp3RVo`*mvrNa9zcD;P%%=R?y{L@*w`T-V9KAHMq>%5NY$+1k+g@Nx^AxpigK
zqt>@Vh9~*QG*`VGsu%=G%cT}2mwW^og^PxYYmD|5+d<Q=+e$-KBXw26p4|!bIv9J6
zMFZdFOZdtFAq3Z$!%)L`a8h_+5L9+<_!Pm@Sl9Y$J7hTR)S!Y0<G@%`kfYt<%5jyC
z>&a)W%(ZE@!u&ACQMJ)quhx~`lK-fC)wGo%7s|Wbny{tsGMr5w7!PZN6ZGyy8af<S
zQj5Li#f>RS<Tc68FyfAGnUToGc`JE5@Bs=rY}W%i$6&4(i|s(LM)dxs1>wpv$^(VH
zrr*!a2AYSA2p1jlGK#9JWeR*xx08tT44_VV(43KA+c@}%f<*_uYJ(qis$C_x7*H|M
zMpt4PGTJ%G%ryuypaK+T5Ko0EqEbr)pF%)wpfa!*gA`P^k!@<Yt#e&NWqM}eyyA^u
z683~HsuiM=Ffxa}#Tms8P<)N|e)Qn}SJ1awxoe9cV4ymh&g2jVrgSuZL)9kh4dp~p
zqJ%SICSNjE3XSOV+7^*kPYU`V?!@S^Ks9~s8ibfvkGwJJ7q&W3U%Ps!vhQ45z0sxm
z%x$Om`k4d7xO}O;1M~$yeGKzm35h|H06Zq}88CdKqvyaRLqXy22!zJ1R0ImB!K|%!
zg)oD|5NO}(W(gHMxS#w2dfZvW(BgrfwK2MhQJc+>?lv$FFi?9l!%A#gPsP?cloj$=
zjt{{SQ~F4NS3#Gg5X8Bm(*@N%tKC}$qFU=FFmJ(^k?~q6Q491Ky;6-{t5xek*T&!i
z5Tum%AK$@DE@k3PRI6465V#f;lpLbrnTTe5d)dq&;1^a<TyTq^MGyjqHL;V@Qc5N$
zqy<Tbd`oaZ;6@1CqtBdBfy-hWK?HW&lriq-2*4?hZUMtv*CM7sou8VRWO<t49@d(-
z04$Zo3`{_oK21sVKlddJjg^Sq;S*C0oKsL!;D}32<qfR5zY~T%2oZusC%dp5(fHY%
z@EDUVa$&bqlA!P-I02{y)c6EJvN3Ln>W7oi*NMin2L51*2tJjb5$^CUuM*ZrWB@Zh
zn!tusa|nRta7982YJ-Hjx6g`-=#<d$C2JFRH^q;<g^g3Q#x6<%LGCKpwBTQOBR=@j
z65f8R7!uHR$h|Yi8lsEixK98Cncyv46>D?E1mH94Fk%X4b`X+K3%~kHy;>tM)T8Wk
z*CM5UUb-Ckg3wO>{Ew7)7Zf{zyPzCov&J2Gr2IAvBp6VnEs#Gn>N9b61Z+*$OxXfp
zYU)DFCrkuMpi;QTuS^&br)vTVR2K*znMX~!!9lXZ!L<^P_x|A-lmm6av4zg9%9d#_
zrOF6M^i8G@xMvM)*Oh(8#Vq2~H!(L$kfp>HjVQLK76(-0Anh|!WgK|5a3lfUFhk^}
zqfC@gw~Ml~VA@F-L42|<2s@NysE8Pd{XJ`SYDRoRXXILAIqT9LN)YlgimKX#d-8at
z3rV7cQ8&kNgjM=rlrGch2umk-;4@}=;?*0|EMu~>zGp$J+M>Ef&2JhyLs!=`CK<~s
zu!t|zgQOG`b?TSQb*WAh-|cf12use7iVI~!4gh2lI0Q1mguQ^AQ|A5nX9{M*TbR(B
zYCe~$m^neRNG5rGnsm(czJ^eR+elfEGO=te9A%(YA!_f5%y4~WpeyfUu@>63E&66^
zLr-M^aDYWS$D@Jg0<=u4J_Y~oeSB349HTT|C&zBXrz&#RNA_S2bb<W`!bX&(+NKg!
zc7@np#V?HT6yOxo6OY&Jtg?A84%6yhI%UC+GKLfpW-u^R)^EB|<w@HYbHpkdrW1TX
zkQ}6#{L%OOU<Zq&(mC6!o%aHBc(ac3?F^YHv?2P-o3>a;!JisUy++S<t?AWWV5bZM
zUBR@mEa_e)QFXDh1l6R<A&l6t(`!<DBOnEuE6tR>5m4$6+6ze7a!Jqr(yt9`o{EKW
zEPDIa5DiZo`<mOu8F%l<_O+0(8Ut>wZAEjMx2DN$)JPO-PY+W4!tD|=nLg17JX^w%
zD=3%bmOj6-+^)cAt%<0&d4nu)=4f-^&7y6XIdlPJ3f4<c0Xp#{*b#oUGKJMLRA>y4
zKbIO)s@xsZZjH)Bn#fuTt-4*!K!DvxJ9~o?*sH_C=<fy%ImNSVmyrBqN0BNmU@FiD
zHEMK!)CYy1#tt3LxpZaC($JZq+@d92IfG^jD2lZd;;ezgwlXYT>7mjiR+6e`*OKBG
zVX;k%KCsV!mbXnq4w*Sn07pR4P2+-i7OaUR)Z}J|sHx?Oy{)4oHm0(ACix!3z#GK3
z5ho%B&7BzH=2@cq!WLY>P5_O6<9r<Rpn6|e@jE$uD702$dA4s|rb;b}kkHcVfr*8^
zj^IUeMNy$}v|7CYaj>v5D;)E#D-TOhuXut_!3IgdZ-)#fCY6-;M0jKbTQHfVHMe|v
zC;%BVljLQ_K|(m4qo-*E%`$kn4)3NNub+0=G$s><msE2p!oXa1)rT%iV~}ublDDQR
zQh`!$`>IU9IHEsGoCK&h(1ramXE>DnRfqgt%9kv@cCKM~*_hswV-ce1<u}#RC-FUC
z6t72dE~(r4a@P^lG1ynLQhAxuG8Njjgwd>ET(g-Wob0r^E*sW@QMv;;+?S>}pkp1d
zaNWrCBA^C6NR6;5Vr-{&I!%1MiA{B0p@wC$M6#vQ+5EwKys1&_$24&F4^yinv=9rn
zu#Wv$$}+$rFZfXyRCkszy)#BvS8%#E8lk6#8A7{<UE95+9UWYUIJ=TodzT+o#&I8n
z<Dt{EH%d$3+pUkOZVy<uJ#iQlib6aMlPgq~BLq?r*JC+hV8ePLa6&q$!HKn%#CjbX
z$DV@=)6^=>M-b^V3uRKsSokIf*&D3%9OpXaUxBE<_|-SBc3D^!?A0HjCy#|caiFZ!
z6^9GJ%qEE90gtiPwy6nZB_gG48=25-G*_{LC&<aUV7x>a`MtBd^cG#aVJ|Pjv`yVB
zY|aT8`V4f-H)q#>T86N`{Nxi#HEP)tx9bu7>67D&v&mUn^k=_o(b3t-`T6mCmz|zo
zOfJsG@1=HedU5jP{C&$NPfkuRE>7RO?DWae(b0RU9bcRrpPwARm$&1K<H^PQc{{r}
zhf3bJ>|}g=dUiCyk_TdoJ1>8N{{9S~e~r-nZ#@26e7DI~*XXn={GHsg-G`+6|N8mn
z`G0gY9v>f$j}9jnS4ZQ^lgZ`j`Di>I|IOa}^TWyb@aXtza&&n*xg6hqKbdg<_~L4E
zetCL)dGzG={tKahb~QP^JiWM_oZfzahRugZPp*zY|Kx|?PYx&NSCjGO_~P<-eEa>A
zLx_O=lP8y_PcBc+ew+XC$>Gt-)#U8*==^eg^aJ!y4#($L<I~H@<OlYH{@LMVBK+h3
zbpA~}p37y8<b|w2E(5YoV=B(r<xH6^4pP&WNgAK>a-|y-{ATbq8<3cW*DPFqmR*c_
zof8`sDW<ZL_ZOw*915LJ@Vic5KqTAfY6+A<A2*F7q_{5@ooG1y!+{z+Cm)_gN^D^t
z4%q4?KK?lSr42#7aI4yECFggIZpZ1%!K>2g?!TeR;;3(q+z)me_Yg(HE9wHhvtCRi
z^}#E*kugfV&=SIXEQ|(;_`f~t+grUqE|ESu=D>a^ba?pP)t|rY#&r*+U;RpLSWU`R
z(lpl0$X+W{2Hs3ZYWEs^#JA}s-^FxTo0zw03Onbe$+o}GKxOz)Q8<p~SfM0?611g<
zsZAI?(q&nq*sYvL4={b4MElnpgFhLLK}3s^Lz+^lI$a0$S*};6!TS<Brm;oF0yc_S
z?$+DrKCHl9vt&N0+PWL?m(T}l{CKxi^0qM~-jSn>&Z$1puV`NV%E>%CULNdqYLbGx
z2_$a~SZS3UQuHH&B-uX)S7;O`%Ii&ci5KTiP$`TIk+GdBl*xfi<3eLh*bS634y2mc
z)^f@&{X)E;%N-4ot2h*kB}P`lN#n$5s*Vv)b%A!TLQ{oQJ5^%b+<dC!=o_Av3aj<E
z(YGd-Y-CdDV|hpNHRmU}mVIK|SaKs&W9iq=eOT3!!_Ep%AKXtwk3jUVjV_1X`3^my
zRIzNESWls#l+l{Rs1WIE@UD~RRw<_o*G+8Z@j?|uo}0eGNJr2GphFH#WSA;0EMpOJ
zj%p;$qe47INYmTJfAD&wo^^w<IZF&FU^?}oonFn*r)hF62JkRNh==6OcGQbbeP++$
zb6(4x_;=FV#5SKUCpwl{+MceS#T&Rd%obC~<*M9KvQdvpTFJCXYytYxWZ5JLV8`fX
zr^qIV7Gg9<qNGP(-XBmELX$dWKt@sbIio1Act<5IE^k{{YXUJ?xAzw@){lPB?gs*#
zGDjfZbyw&w^kemfjk7DVsyak`s?^}KhT&mjfm`$Pj=jO)sZt3~C18njv&U+eZq~e`
zO1=Tet@ACf!s}X^0}eMCTUfe@w<kaE<>B}oEk`K*&&8-R>R(zhGHHpwGmr#Z^T)LM
zd@hX=Y=A!EQZW~(jEy$kxhs0V)w!J`WM8<XBN)>xQ7JziK+J;|FoOCL!~hU4Ebze}
zprbM9AasNFVh(7Kd6Nt>N8IvU4@FZ4a%I?EHp3<BE^~bFlWZ<w3A2e#mr%-H_Ihw%
z2Dva1;=={;0{YW1&Ul`3I3QM$k)%-g3cbeC6zR&T;k9Mzhos9BmEp^Rok4`ym6631
z;AuJ#>}=eIy~JkEhTPZB5T1Yei*LXD0_0+5BUH#08-73CvAu<3vFjPiKM^27Wc(q0
zm#&5*fq+sNERn#1FZJf>t}^`-{tK7_KR<(}@b}06h0p)QiV#1?c=j*&`%`?qi@zTv
zSpQLtgM2D;K1vVo@9xUdlaG<6S7`F;W%nSI?P}&<x9hI#WDncz=cOL9)9Zf!N9L_&
zwn$%pFYRWkxW&-Nh>uan6eYX+8~pnI`|tnfHs_KG66YVLhkvkME?#r@Yj|9~d@ZGX
kdiUcnt6mrL^z9zL_2TNFNAm{T@a=#957a#oA4((u0M<&K@&Et;

diff --git a/tests/testthat/_fixtures/13205944297f7f4f50e756b13397c0e5.rds b/tests/testthat/_fixtures/13205944297f7f4f50e756b13397c0e5.rds
index 4a7ef52f87c9c061319dc1be2168a44fcb378b01..653a659c35766e843811bf963d698f6e233917e8 100644
GIT binary patch
literal 4521
zcmV;a5mxRWiwFP!000001D#q+ZzD-^);xB`)<O#dzW8Kh6AP#ZAlb#2L~^kZdU|I1
zvGZteYuvL-5shS3l9i)kWjQNLY|dg}`wtjC_~@H`_QCKUuunc2@WHTs*_%&$^3i*+
z{Y7LJNlC2%cN>setg4KRjK>#WMDeS`gM)*&58i#}t%JAUp+A2gzuw2s@8RdIgLe;p
z7ytKC=ZbRt;DIc3yRtKxCpvc8<kGI&u~|O2iXJ3tu5)$flwJPV8Ixhz5sNrD_~#qq
z{!kW0rejGG9(-Mz{6}#rZK>RkD>rWq@x&iMkw1EJe*XMHr`-{~s4G4(Rh}Fjero)(
zvG^@iIy(HS^(Zq{(mJ;?R;@=Scj~npi_WQ1v5MxW{q8UtCZm%m>BdpNdpe9donfzc
zboh~UYAjwz*A(5pcvj`28+CgkIvEc-<4#XJ{_OndkmcpBb-pg}Fo}MUx+S)Kq3o5i
zWAWISMW)0jmLE*ED?U~E!lh#o9UUGW^0~X%AQDH1uUoK`%1h->{2d2AI*etUs#Xk{
z)?{Omn-*Vb(qE-B7Jn_P(zUF*l9^6$B&-P<IM(^Q9dmSeh0Vs|VH~T%wLZ>cljwZ0
z6{5nGu~>Yg3sOF2b2~P7T$@|=hbkG2`kn5eKRl70lhcumyPetKWYC?D66}-gWA5@U
ztJdmd!K%ICfDL<a@D7LMpB>P@ci-L#$?wIPEXxq5Z-<NTKmX#z)30I|KEB5v9sc@X
zJo5v(a`vx(^<V$?_n-gu*|)#?&$s@fTA%&RPk;65)%Wk8{ll;SW%2KS`gdo){PX{Q
zZ}C4rIQ!*ae)u2%^tWH$+%=a=Rqy&<xcEC(CEBXZwukgkX3S+()Oz87`SyYD7goW-
zc{x`$TskV9wC={m?>XaS=GCVRYy9Ic8ksI#V?6mqgL6fb;~V3~7r7Fv)QC*Rm!)v2
z5=+=qW+Ik_jI~<}XT)W0Rsy$lDJC-ouZyZw$+RuRLor9T@gI{Iy6K#*K0+wT7|E!=
zQHhwXMTYenp2{-4K;$TakbYpSn3O7;BVd(UPTP%Uqd@*5Uh_+67IJ{H*(X6&aPaqr
zC!G^K>(XjDD_>PbW8CeGMuTQURxULbOP$00m9Yu^jrI6MhsH-<+-$^^wK(RhE8`TN
zp{K2Oh@@9+6y#&C6?I#k(RtJ#_dDakX*-IdpW`|8S}u!>7M-Wk36d@*i78cn?509p
zsa#CRTvJh|>bMkNBMZf(Dq*y#NcFP4)jTmPY<Aj>PQPv5@CwUbRBLw4QeLVO7KgP`
z{5ch-vhapXU{dU@%bCiwnoq^7a)NY%r%D8pa2mfhtLI8(Vy19PE9A`JS;&F?uW%dc
z!6{+|$5<sMxpAcH-Y)5$^iNNFH=NQN40m0EHH*qtcR41A*vB=etxnYH_Rc#af{5r1
zuDNJD!>PUP%L3BG4=2Nj478@;g-Rt(nc|djs^d%Ym2o8nB^fWLUu!X0$?Ov0YvwTR
zO1m_yGq`KXIpw{JhPY@vAvc#*oC?X|fU6hwBB!65zV387w_JTcZ+{?K*c;wV^p#F3
zBp<nbrI9W9B3naAnJ?g_6!~Y!^%j0i<(0;VIey?G063N{BqD+?STonIEuPX*uqeQB
zGiXS8T<WFHq^0bZqQJRq(;w0R5cIMz)=Ain!V5{w)d!jVp^7C^zm}62Xhp$-4N9Fr
zFWOD=(<O9V8(4H=t3)%X*!2`omhQn!<uCz)6-uv5T{a0^pf^&6j}4o{;ShkwTc&Ux
zL}Fv1mh{5ulxC&uyvi6^tb(r>)>K7FXDX|LjvywK3>lJPN-H42R)wSUYA+^L8Oz3F
z<XXFsx&Fp)(FUgRDaqez&NUUM`;$sLh{P`|GdPDGS2|nK5uv!pP?_(WJA=WnGdzi|
z=T7IOx05?RQF*==k5#U#@~->|V)n?NPKTf^0<;0wdgJcscK%F0!wT_Jv&<D-MyT%{
zKD~ur{o!rwS{L9IY#P`hQ`e%-ER_irCs!&#u!yu;C`vXYY*h$ai9kE23`Feamp&O8
zmL8h~skYE_AT4}MhK4QRKuTPWo5WvDpdrNr30QDENLXN55MEPoBUnmgjVVaGB_a}$
zv0R!QIxn=%;QGh(pO=}*YLNzP(DgM!U;aoqKvEfluYkF!M_{iquO-Ntg~V}hI9FUb
z)o!;5y{#g{HGe|^I?;eH7!6j2MYGZfpaVZEh$f-pav3i&x%Npe`JBfT{~!;1I8I}d
z_FX$&Gys%9Jz5YW@+S+0)vF+OitB5(d2rwoH;}}V=m|gpDj5b>R31lo(d3d9u4#sl
z?OwGkdS>rr8ujq+^aeW^?babAy0ozbs>MiJm)@CBUeulmb=rzf&ZB5Nh(JbeC)DE#
zT>1$Wl}sjDmD467US&{OZ9;jn0QW^9T20$jJ17Fj;-y(N#oAQIFvw1gxy>SOr6Khj
z7LZHgR}_@Mq;&{-ala}nPEit8e&F2<Z!otD>6%K$c6I?|B*ur1e@4ktXXM~q7gYud
zpODL`Jcb>}gQzhD9=d2i^GnpIiw3wMYSJ9R(DYjeq<574nVu`UDo~8HsY*(OP?A0V
z3dhHx=(Y*zwB6oU<xs*&)10`N^%3O5OlFAFl9Pa=ia}r4DpRBdpefeMt*K}dPX*_u
zLR^3%0q{#c52Xm6Bs*?O4%bgQiq|!qp74z`Gd!l4t6{%oNTbrhB(17IE}<@6H0E-#
zShIaX(P8eAY2t1!q_YHtTfzP~Cu+5HaX=-|ltAc8s(D=QORC<r0bxDGm41bI%LV)j
z1u~>y$Yjzh5W$NE*(dla;0YA2!)1m{Q5H!E!zmQ>L?zz1DWxtdI)Xa8jvyN(s&XI(
zOebeL3w;F?g<oNlj6oO~K8M{oEZHA$K#uz*C&be^6%=!&0UN{>j7LQr2~IT>29}H*
z{Mhv9N2X-NM%j)psU{^7WuTNg@v=6eU=^xNzJO~GD|uy*=Ma9sR7!lRvt#kh<Vf5X
zrpmsSsrb;WDUUxiU^ynfL=Ovhm(vg6#B&w_EBixGb@2oU7T0yq#~?<E4vXMNQdqMT
zo~^(Xs?eoLSRHJKw0kb?WxM8;Aw~#+H=a@CeMgbD0;c;sp3KnIt>7k*F<Gh^o}|8R
z%3hZ)&CsyL1kakt%_cJtVX!Dka2)Kg?1GFw%gt*_Oi`d{P;a8BLZRzNA~FY3aw)7V
zX!HQN+9w;JVc#}lI2iUvH_-d^w7Ub}=O#(SqfEh^cT%AsW}jAK$X(vac^6b@IPMJI
z)JnWejjaE{-Tv%z!~psUYwig#c}eh!?39b?4*ADQ0`G|ny&My%T@1fy+(hx-;N%vL
zzu2Kn&T7VkEdmmYM$j`dGvLvqDk~Mo%I;bO%drdfoSKGh(zks`%?X2jE72D9N@n<5
z8g-pJg@t~N?^zIflt+yEGm9`&NeywCoDr_l=Qs;>C9tZTM-MQQcA;NosElDH0xq;a
z0pD-$=uJ|aqt?&&XkN>khVVMN6*!yKi<ICdHW|tbS{3|(U{?usgqooARy)lgZ_s4S
z3^hwNTKI(ls8D-eBN^~Cc!nyQz6)UjEoiz^GO!~I{uoh))D!n7k4%N`;ZbU0;20oe
z&y48|M%`}rM#l86Wz1uPLLu+nyLVT*1R49J%SkKhv^uBfo#8kdj(gGVbh#F->`8Q&
zU|N-BECZ7XbPqP0#IUNx{S+&v1Sfe-bz)O66r~Ucr7tPQGZc`ThXZM#m+$mank{i5
zo~&sy;uK9nEvH+^H1WA%aQF3e#~UPVlQvXHscS_%CfvvpdfsAMozv($b9Cj4h7{W;
zINv1oDhZwbOLCz2Xfx9Fp-*%R$eUAhN+?d~O%nk0-5hyzmq-u@itjOZ<kLwr*d$qd
zvPA4M_55aD(R^bCxJuaiD^wRHyrC$bX*WL;0dBkoF%uIX?3AC=vwh=m)E^9ogBx+!
zA9i*Ev0N%{3N73RwM)^xGa|jTJtK11>P6?#U_9u*5x^gAnoqfl8@l8fCegqRShQL%
z&OiCGHs!q<$R|(XRA|5r-;_K^oe!X<0?wjW-QJci+zmJBUSbG$soA9vC0eKF>uqy`
zYjDOrK{bRTu_=gcGW+vQ5eQ_iT>HLE(-bL_nG(4){or<3o_24=<wF2h0(w(r^_h3a
zx0|!qgoLUH(MX<RQY)&zp@(UbB);%GodYqDTyHl<XHxZoy$E#oD;0Mg)UO*70=p1T
zj8j8Rf-`kn?XIsS8Uf=|pWwDki87RrBClm{&3$lUFdWic&S|=d2R7M6lxM=8t^)7j
z%S)Lsp{CF<b8J^Tn^M`IvYvU68e|ug3TFQlNM9>^>4`7LQ5D7=xsH`ss9afMN%j1e
zYAD6Pl5izqYcRP)$1Xl2-W!HSoR1sUszVfb^C4$Q10+2cI7)i1;X9>sPUqgO*F?vO
z`cjWxyKFw+BHJdundeV~t%>dzI2eT$9X2p?UhZSr4=H>NqdHA|chf2G^nsf=R~0(h
zyggXebJb%WG1Ngwj`n4NNOnCQ+TQoKQiiWoWrZgOaP^Ob*KAXP(L;d>AP}gj;c7#t
z$<`ssc%AdZbpL@WaVW%e(2{CQQOz<PZw^ERdxu!l3{vtaA0QdS%`n<#(Y5}M-*k9X
zU2aE0$K3kG9O-*=;@+^=8Q!Syo$hXh$HSQ!jiNjGuoto4Xg%t;y8ZKRZ`?f{N8Q_S
z`rJckXDq-G{n2KcTG3||ma(J);{(?lD%H!H?QmFADWnLjEBhHmU=Z4c(4Q%p@;I2}
z7#Q}7Iu3Z`1;3gqDJGchvJe`>@n&_)$s<7u7M=uh8qEF393q~mO(KU4h*p>@MN!C1
zlH--*jPypBg(P==7Zyz^z?=lP+u~u3ICFYy%^(zHBM;PaCasmMG(`u$s`Hz~cHQ1N
zI@xpb1bG6Kn}*YdJmbp6HV!bgW37jN+)+>I;0zw2^CY@*wV{@rf}T&U(44_rIvfTZ
zSjo%UnAWi+e42ZqB#-LSZq_F(lk7SneDmj>Ue}He^pb`F&?!^Y(x!^@2_NjH+tp?J
z4*wrB056P5xOcim!v?qCqy&almvx?sq74nH3OAKJYfDraTRr0eV@=v>h^DtD?Y5|B
zEa9pgC3!QA-C`frHXr!wdV;Y984!a!(ZCGabh<OiMct?Fd-J@<3&3KiqIj$p4(GtO
zxpB>aZO8)U;g!RXP+7^GUJg;S!zA`K@dWlz_)<WoxLk&}5n=o!;%cVjjK<A@NrwWw
zGq>8#rDXsy#=@U`{>951)9oD?hdjQ_`titTlFE!GHXK%LczP3;gcEVCqeNqFP<bUJ
z@mm^{z@N~5&ig{~)D)`R*_*2x)eA0`G{p6XscgP6*qla?l#=@bZ9hWy-R)cl+QD_4
zwXsPQzmUJY3v7d!eZY3q0)6dt&btx4hZ($~o0`m-fFPIn@Rz8kJ1=7>bC|#&ZvbEP
z#vksdRBsCIY|liZeFfzb%rc%LC@$H!)RI`9xck86uZ^%F@nJzO^j+0b@xybg)Y)cB
zsI)RGa{I~;KYX7>PUOKU6nXOTr_VqB2m(D%BqZnI5`LfUs=h|XQ;0VCJspXJkDC;V
zgaOz#QI=oQUV=osGL@^dn_$qr-ICScYv8w^WKK%uZ9%CIO`~XUn0&WI^t6VF(Q!#H
zEtf>a{RlnL^SL6|l3AAY?$WFnA(@X%Tv+3j$L27)-D!fk;e;0{eW%obm3o%dlgD}x
z8(xZ#?iEsd?<nr}hrN^04Z5)VG7(0W1z;5cc2@{{8GDBCsMU>VeilXJe(wz-j4%NV
zJ~JP$f3_CI)6a^Z|InlVWVtR287u#S(GSL^Z+^Sc`*!-R|31yz{};YO^M3fI%R80L
z>MzHjyt=A<MM)Yiy-VM9s=rD@Yym}}{_f4vz>_HXo3G3e>)-j>4SlbOzCrW<rtXY~
HHzxo9&m_0<

literal 5039
zcmV;g6Hx3QiwFP!000001C3hGj~hpJR&4Kjqd-A`z3eF{5dlUrNQ&feW;pa314(u)
z`NvwY#+DNfAr!ld>=K(@?W*dbsD*(5Ipvg7&N<}1|3Pj6Hpm~4dy-53ft&&)`QEGQ
zCTB*PjA2P+v%Bj3{NDFo^$)ji-MaPOtq*R!f9t*X>Ekc)*N6D?C;0ORxc-OucaV8s
zjvqXbrS4XCCW}-jUYkPNO*b*C2j{&9shaCTop@zepLk<(JavaxxOMBFFRk{cvMh6*
zNLt~+D`$$2lT2Et{3n&4cSgA5SGf6;C#R>+9`w6?G3fQgH(%bl{i*b7EKakkE%y83
zQ<dPCK~MA##>3uta3DVa`t;82A39&@L=_Hq{y#$Bx&2rsnd&??g|{Xji^6mgy3(dk
z&KrwQtIGL~Rp&C-DYnNmxLXyzbGj+9#r2xpx&1vh8;gfYqDtTStVm3%i^X=4`pQ@=
z-sp0B{VP>0d^Q%t;b?g0_H$*=l^u&Ol=qu^$K7Ffzt=q{-Ft`q{(bDC<yerV7RD@c
z2zduieV@($SGVZD58m4`|Id<KIv0KNUcC6>vu~b1{UP!3>(BYC$EW|nJ%3DBZpHsj
z{^75m{MWBv{Qb%A{^nnP^^fztli&T_xBvd%|MBt3@9%cj{lEREliz>zpa1r+Prtgn
zYav&v-u374;xDX9wN=fwx9O(bm}OPgawVoHwm1AyX_dFKaC2qjr8~|`>n~mWnKxeM
zL41m)dq4iRm22l)<H>JZ9IBdp)*83IDU?`eM&vSCI^i=VR`7t##UzoXOtjxjg*ReZ
zn6<!<+KI_b!DXUyDxG$Pcqrxwcm6O*Ae}Dg>SM%#Opp!wjY`FABXT^i;oUsf3soda
zARZqWE1b&b2sWiw-B!C*B7G2Q#S)Um@TFu5@mrM~xBH{R{vq!5S+$zEmsQys5Bf((
zqjt-gsz_f}Hh0i-+HT3pXU1YF?{WXy*pxnFJ$xf0;43fIZY7nqQ2XV%@e23Q-Bx?V
z;!8FXB5l9Z8+7`k(?M@M?2iwQy1icSFL9rGEmvhu51nSx3tC-FQsY#y=chuQt3pi3
zcvImrwdceuB$Sv`4knz6OtaQelhmxS*-`&!^i%timw4?(wP9DS<Wf1<A1mUMFqMU8
zWD4_QXYFPx*J?f$v&svS2wrmtE8#W%YM!0UmCD5oDW&XG$eF?2SPAYp#|;n<E)r|F
z$tp1^j3-&AH+9kAaCmgIf5}Pv{oZvh!WxUpR_}6DT=FKaI_mU$ox%QTe=t7ik9%)%
z)miHcvK;%ul~_&u*<{oslWi!pA(DgE8MIC^oh-?B#ybjGGG{@5ZNy|P^Cg1Y%wg=c
z_E~(+;8#n|a(B;K;;i+A-0rF*6OzLNSI_KOL4Pj$zTfLzas9obdtY?0H~gFGbDdU5
zP6~syMlKbLd;=k6v4GbyWT&BEuyAZ9&o#cx@dqvgHsi5{M2ye{Yv$T_#ZyuR4<&@V
zuYEg8NLlXmO6Ss2?n_ZZFWU}E8UTh~mBxAryHUU)<+-pR?;oi|0vPIbQUj?dc(8%f
zDdeKvB;V~I<Ho?E6I-R4LB|4X665@XnJQocgfE2NIPKa5Jp>l`ht!76;czT~+dHQ8
z0b&wkA(jk_la^+!?7YeucdUZ17uHmzBb{7Tk_uu%>5(Hnrt}0>uvO_vUmcdoRL*PT
zHgc_9$U?sfTXcbVtR?wd&AD7cyB{m<u_XSoGKX{6an9R{RD|FGV`XvETsk-y^+$)j
zi@DVA?_ZNkU#g<mh|g7_EBCH^ip$<0pZa}*zTW7xe>6VW9}kYN=F{YBJR!a{t3ttr
zR3kzFOs}BZ{^6AXXZ``-lUvq=b1=>ZF>A24xL3J~%}C3+`xLIlvMoXhicywH4zi3>
z*C6OZpoV*tbQ+IiO<h(wC`{S~g`zx-I}pGj*h}1W)<T*tkt}B|lrSX69HH6{TgQ;|
zgd4e@E4qr}WwohXzG>Ik5CTDXR>wdzo03f1?E^eSEFnn?DiU_X;<p26=WDrfqRb_u
zQHVZat6Y&3!kI)XzoG1<atd-lh)@E%5qXaFp_Id&WXC4<Igv?~AZyf~fP|i?Z&O@G
zu-}R=!y+Cg=~N}43<+}9n#;vv!}f{M&mfv>Dl488KBw%Tt2OKoJpmfh6ZDa~z{^-^
z93>y)jw2YU4G8NghMcuQwg~tY0_2s4Luv!BVud<uk$s}CPT4~wa2+l)#JsXdEf`J#
zSyGh-<7R*%0ccsnbPzGX72`RJPL{5UL{b9DnMN9OTtZOz6*kFNz$XIKIqc41$^L)?
z3jFT6gz8UWd9gC*8h}8cWypyNxeT#OLt$Xa$kC5&-jhwq&<6ZSmV_Ir1QI!^)38>v
z6s$rR9FRl<;pMqO#$xe%PATz~&iBL@rf7@Fb5rH7WF{V&%@kiB8NjVcmf|_efOpgT
zaN;R10V@Y3AY?>hSX|dZp8%m1DU0AoQdqMR0XAU@RcdEa76;oQ?Vd@y?A8S?#t7`W
z^^79#dy2HRk~ZY=WCr@VhMQ0oq*F88iHFK5dtLf02d_-<!D~X<CNmIWuqdtIIoM&@
z1sQ!-nAen;q69T2(uCLs1Fc|6$zZJHN?2J^dxLd#NH##jP5I5}U^F~Fx`@d~2iIZp
zsYz4uI9D+5J25#fdlQZ`Vmf+w+TR}^jK=+gw{e^onUVE>aDTAH95Df+W6fP5CNBtX
zk*#tu-C-qo(yZH58UyKMMBgDW-LuveSU<Rm>(3GJCUzI=5TH_Q?_g#k1sMYIEWRW2
zicgysRq*Zv?eKCz6`3N2B86xV$OiLS`jr3|U>FMP&iceOa(Fu31Ym|n>nvdDydqM!
zhAC39F%>WhtJ5bNSTgMvh@cX%Xab%PC^Uie^yG$7(mx&^j7A5SSn%-hIvVWI|55T=
zpTT5MVeqbCiL2ivSPoIWJA>oX0SNK%t-<oJ;e9f)MRuEZ+~!dU3al1YqtkhQ`sd%(
zroCGS&EzSZ3<;P}PRXNi=LB`N%AEo;-2M!=hF{~4^jm7sE{Q@ZE{arA^qi>Erm5<1
z&Rs$AO4SlX%g0uVT*SqzP`-OlW?6<dG&ioYYI^?)zdkxVzBW$1)m+E6m78cNz?vBa
z7izjyk=Ug5?y~^7Js$`P$M&{ZbpsSm=0qNXd0~<IStiM>Cs$Bd1%=qf0v#XS@d<$@
zRRHEIGqn9EZFO<Z<%}2seTNN#?LyszP%hYB``83>kx$@uD!J$&A~U(VV=zi>kXpVb
zARy&sQv@0P+5l+uBBMf?m>hYU(!W4yd~lg23UH-EWpZM`(r1Rcjk?N(=VE~cXL=0~
z$K464g=+^I&x}*h_{1?GK`eid07uCX_a={#ab7&mOoIB0(s$DwJ~$o>2A7b2|FC~e
z3V&`uc;wx?ci)-0Va*$6Zokt%I_>wyz0r8TcQtb_L@)al84MIf{FCtr-AoZ}I7wh-
zi{CRmF{QFt&<%Uk;wPrugqZ{ugxE`p`W#d!a<>fW4#`6El+iH9$FxNBC>k5u03U2Z
z@f*V=CGf%>@6cLJ8WABR1V?nH+!+!JxY9E8-;%Qwt=l5M4b_@toV6w>aeD+rl}9#E
zd50VeFl1?`q4bcUX}QRUK@(MxvVI&qp_%8=SolhmxE=r?G+=&Dq-f$2tJc_w?=aBq
z=7X%^{?Ty%QfGH~O=vxm{?x4YoOmQt@x4Zq`tG?FuYHpkJMQ%MsXFwJ#|Ovb;o;R7
z^Cp$(B#@-*dR`FJ2X=uLz)El=VGTJfq%*Qp`7KkMkX<ZwUsEQr1YmI%kQhSyL<HXi
zXG}7PNY7E7-xm{@Ls=f%f<8?JSCB+~EO_e++~jib46lUFL#P4tLG7<g-0ncLDRnjX
zCE%xyg(rE)fn2|#n`wF?z6mWM^N`q21yp1>B|Dt4TM&TZNyQB={I@VcJ8nsm%uuLN
z;K^!{)sWacON<q@mReH3CFPVvtctvlV08vSV+1ovE^#{zg|=jh*!6@9dle}*UtY<S
zdpBYNW{&OZ+D;e~w5<Dj5`*jlZ0AOk691L5%g|#nZ3tpWQRqa8g({S#T&-uARP?A^
zt|;|Wwg&ex4%>cBEmj<qa7kzyBpr)>Fds09Bmn2*ibR}`%kECCo0HzV1(rHL>arHf
zH!hpcx8T#z8Ez@3(bm*imQal28_LEekRK1!h5QS38>pbxs%c7P?o5~$_^Q-tGf!XF
zvqVDRZ4i>919DS8=OVywe-A%p%w98<ml1g?|FH;?HANHcI%+opf%<1I2&7HEiJXd`
z^I@PIzEJUuwUZQeR0PUumg}TZh<dr59**X2lE>MEgm5#A);x4!)WEa<K&n^4J+<m*
zt%M`}#_iYsXum(YRFwPu>rMdhaBhx|d+%($!jd-|FZYI>!SJ+yI3660dxNWZ`79Kq
z{#bzI1yyI7rXXKXm?n}zivu|rF4L=E^d`NiKv7KA#rT9`GA=v7vVWmu)~?~tz|`kd
z3E`vXxHdtiGL|uE<z?u2fH$ls9`q;&P-^Pbn1|6Z7I~tY<c?bq7XXA)WHKG(80Od`
z*%5j%@qO5Zm!`B}B7vW~;$e+Kb8-;_Q;pt6sMSoOJdo5JF?^&IHc9NJyQ4hWbn*nb
z1LT`VePix1`(Qgq=-RQ@!!T_N<eVMCqhy}QR=zgWiqn!kf*n>=RdiGaL{`aVZA|Og
z5+U`&qO=|nn_VPGc}=n_L0(YzqHLtj3z|ehqFm8DB~zSX_+pz;i+0_2_<xTfd0|Y-
zjrtYtbkM)H-GMf7K04VMknR-0_QesIt7fRxzVZQ+UsdUXr`qu>PnM-M=aQ;NT|{Fe
z1T2C)Vct~#6oEvhD^2}CM5;D%2RhEMafZ(<4Qs9>O%T@1%9@RK3Lmg?N!I<$m5OFr
z6cI&e4V&{15T+^&?=Mf?=;`gU&4`Od4Y56!I;R*?uR%q0ut-pA#|}K)1gu9Epqeg;
zJ*Qo874+h^sA&^vnwnD&D~VEGmJPZf90Q`Ft}j6CA-_x!ZC*Pb8)KcY6Z{C&Ua3?|
zKDV_B6fEK4ArCOOLYopX!6zjJ&&~>j4HlpQb2WRV67*)BPN*m9T&JX-rinQEHhv<F
z!!xiKRCp)uh2nxHH+9o+3?<LQ=-n<AWiyPMR<thfL2mNmN6-YCvC?qUZ*oO5Ns3TD
z2*|n5oH4d>{R)%#5CgmNPa<kFOY_*C3pOCdc#bT16P3XxYRg*UR6QKv7z#wIaxG`v
zs#-deC-rrx!y(b<h8=NnFSdQE8SQAq3r1^=3n%FYUe+9Uym_0~TCwM8LSJ*jIDO_N
zBv11p#6q8|x^IiB21IHU2&ZQ&wZb-U>S<Mm)pOdx#bkpfkhiY8DiF8GFj;x9E}gnq
ziLS<Un+Zr@f6Rd?4<dh%$&VFv*EH!tgiHTsTFd%z&06CjE7FUH5i!Fc+~l-LT|#aw
zVM<zFt2~VzTCr&c3XH*lT~U`8>B<Fkp(7AFs3gr_G^ezYTr*oPjj@zoI?(7CSVVvf
zPm*@c(vamHVC1N$l0_6*yKH;lL4iR>CsY@{i`174TF?4}TOqil`82`F)~aP@X^0WD
z+vCkqOwv6HtUa2#toewF-pARCXB?q4Hm4==SktL+W|C0xpb`W^OGc-mKBC9bTR}IT
zdmN6AhDVnu*68TE=JYdU8}Q(vU2Vi8n#@0e8QwVq3G3f*1~TmQj!t_A;COHCPvw2_
zsSdQ5inFK(*C(j8tw)w(Lx+qk=v<2Ia@IN#B96bqOgj?)*?qBnk)x#3m&l6{_(igz
z1MdR83}FnNL!Yw;)?u3cQB%cf^aY#y%zeZ`!{fT8W`aX&v9GCzZRV%RePTUmMJQUp
zKTrt9f@k<*LI$F;OvQz?cqS7)hpE3cksg4_s3ofB33xsp+WQvBf<ox&yzyI&4&Cj6
zohvk3(oWj|L>1~TH%;B}&=c8a!|n08Sbeq%URJzi-akAzx;m2yv;2BstW(YL5W51;
zHlyQN<r1rDhi!V--5|Y`(Cvzf4%>XSQw=veZB~Fx>BEsfpUZ9g88M-^B#<t&=`=nY
z@`p<4_WsbC?3C(FvpC=Z&ICfYBe;NGt5AR#%%}lWK!sw#1&T*nueo~XTs`=8x?FK*
z9uNEDp(<*}Od~x>$uLWbkh60d+en<q*e`L>`|>y6yx4Y4e8W!1i1qj~%g2y3$z)FF
zkjz%u@bscf8a3j!n)o}9A!1lbI!RfDp%|4--WP&r0A{zdcTJcASXw&tV`VB^GzOc~
z!8#$uO#x@v+dnuQ^e+O=@c7!6&L$>R{C?c>T{sh$z2O|}u+#7JksAJg%dB-W=W+$o
z&c;{*9CqGype*Lu2?#p6BzggllD?p`G^Tqe#1j~$xclcdo+3z=DvgI>mJX+5AT!{z
zVew@_E)5gcmExNzhfkU<A=28cDGb&-m_|=FgyP9(Up@QmQ!E&WBDIWsgo?jUc17Qy
zwV;q~^J_7*Bz)ec(4=Mq+osC$J5kF*Dep45KDjcnJ^pF>Q+WUJz5k7`JboD8One`n
ztY2m%fU4X}@?yO7f!~z%=MSlC1!~mqO0G-_)Kh8miX&Ceo!2C(QJ^;-{}0eh(jd|+
F000&1!iWF>

diff --git a/tests/testthat/_fixtures/1e01504bf366a3d1d8a30a1bbfe42923.rds b/tests/testthat/_fixtures/1e01504bf366a3d1d8a30a1bbfe42923.rds
index 9ad48ebd673dacf1a1f5e9e70f058ccd1d41918e..c1bd727c471987c14d345aad281b965c1aa81a46 100644
GIT binary patch
literal 989
zcmV<310wt%iwFP!000001Kn0lj~hi0_1fM@v4jHRl4Eltl06%O6rtP}3!+5<BJUz`
zv)VH?p2j`hqyDgWa>@_ox3Iiwd%TWiEgu37SQ>k#ySnPVdarx@^QhPB^?Sp?S+769
zZSPZDxEb*8BU~TjI_nL4k9j=T>Ud~+V(87)9}j(kAyLa#I4a4BU|#{pVZdiq2#tSr
zaX}{AsFiA{P%^V_dBIN?DdVtzu;ARtn*8a?zingB?sn6UcGJT^uHM~`jCHlt>Kzr`
zh(k?BdDxGf2Ng8kFTM?3o#^y2o?J`c;Th}(pEj%IoPo~sit^Qb&#cQ67P_lm$RM-Q
zA^0fsV`n#6$Mz!@@IAin@Yzy5Dc%zw9qD#rY?y>f9XIO9^}jL=uv=XHqvsFgcp%Mx
zs9e9R@lS{~xcdv*oWK6zCo%gogHLDT^TydF3f0Oig_dR+<&vKLy}048GoieY;#90C
ztrI@TpnOod)FQWa69b1xQwYR2mCC*Fv1zPBtHq)fp&~I8Q|n0FkgQYWcI;al4Z5VP
zNr|ry5>LCtnV33~yHxwqN*XU_)_ZYP$(2kwXLdm@h}UEwYc0)KBqq^gt*k9DvLXV6
z$oa8YD634#HtF(lk`F5|s<cQNsavnMF$Jwj+lE;m_QKmTY^0-1+<;xqd}sHa<F#>F
z1KgI1#FWFhi8WvgTM8JEjOS)FGGAehM-mgHGF-_~^m3s&aY0)cHjkVyH82}p<|tWk
zXs}EgLPfWxw&N8Gg^Z}<^U9*OZiQCZGBRL?C6){6$?v*m4RI{%R9hcdXtWS(Qaew1
z!wY5h9ZtesrgE2!Q(C-u{^Cnc?W9?G@x{wfaX6>Hx%%<zZ}3pi?HFCDN%FD8D^EJG
zu}uVe71}Xp*uZa9%5xt<as`Z-{0dbXEpy_B%eagn0wB*b7RZ(*tE>U4Q%;asD`yRN
zH3?>fZOBZ#jSfjlM|3(CM-*VQ&pgC~33sjI{rc9~UvTUs735kfom7PJ`5m{5foCCv
z7H{K1t6aQMIh+6^T_qSBu!S|y4^@LXL;#)X7~97M$39Q)7b<wtB{n$#fEU8}c~U_>
zbnsaQB*gnwX#k~L%41+Cpb0kU^;#8}V9T#j#YWHMVUOhV)(5J6hBB4p(}DfKWi@sa
z;J`;E`kaaHqYkP8K^)eum@t;MI~PDO`Enn=EiJXT_njHTwonvBX4mXl%k<I`WZ}KD
z+kL6;2O4a<@Lg<LBxfVxjX?`*R|n`uqoaQmFCYF#F`FNrnDc`Z^W?kgp%eE1_0sws
LWM+JbBnkikEmq}j

literal 838
zcmV-M1G)SkiwFP!000002HjOnYaB-qU27$Q1;Gxv_*l8gpj{as40cYAu!Vz3%*uw`
zmfo3~oo0KwhyK{r_>`aJUuWf2YiG4Ao5Td{g9Rf^S9iU7_3BOQ&y&Gma4<L=3<n28
zybgZCgO{QFJ;w78&pqtlmv~|HZs=l9=<S>T4*iG_HL4@e6?=;A#m<4B>loYc;{2TL
zc%>J*<x;D$^Ye3AooB?ugRO)ks~Qe#l;d^qFtTsf?<dyzMj8E)%Rb@(>bZ!U$WheM
z@LlqC>|03Q>=eB3-D=zy{Xum63%_pgv&*b7D)h__*TF~aVm_7ZX;E{rm~MJp?;ppR
znU+;w9;=>osiGQJ9;sM;{)bsT2+6bQM%KkqtaaGkzWOTL5aqW2-L>d(uaAGl;T+uT
zpT)4R{f*>5y8QhEO}-@fXhNs0cXI$X+Rn)+J5OrPkN@Af;in1dK#KOAC1p#hJTnDX
z#g+0*Y?s<Q+pvvPIZq*~s6*6+GE}&xO;G?O4`^+zi$Ec@t@9WQ%{q!T(}Z5TWTA_8
zHiKMkfn4+;V|t&@ZpeV<N|*2vr2sJ1I8@ry*UE-mSM(;d!9Ha0l9y~;tG5rM&ZeVH
zj<U*hL5DHDbH;?T4N^``e#sqzay-OTY7XQo3PtUV@*rh2?5QH0o)c#(;6$k13b`{>
zwo#+3wuR@sr7g9tO-R<U`-N17yW%!-Gs6w{^vTmFXK3Fmy9o3=){-FVy?^t^udlEu
z`5J7f0h-iA@*P}W?HOnoza%kLtBM7dXBp5{mB?pMZ10#wcYsC)VXqq$K(`=safUhi
z2!gk&z(_H$spvG;2}<dl+A1%NBSrQ`wF@%b$2kMr;x6o|rP4;t3=@nY_d9qA(M!f0
zLG4|d8C}p@U9b&|33(og-L!!d_?n9pB^wR^d33&nQOZ32CHT4oaa);A9%UDxF~<DT
z#M-5K4d%6yZvcpm@G@`@I>bCHRotp1M!^$cCgFoy%$FnSt?P}BD17Pf@*qJ-MJ<z^
zT!~|x=#=-7BHzQ>npx#7#c$>OEwvqxWX8BRdFI^W4tsoZvh%$^`}hBUlj-(tFx|Qh
QzT2zzZ<|kJ9IOZc0PtY482|tP

diff --git a/tests/testthat/_fixtures/4e90ad0d1fde0217f9683ea1f804af97.rds b/tests/testthat/_fixtures/4e90ad0d1fde0217f9683ea1f804af97.rds
index 8a72100796abb97abe5bb2f313cde1b614fa0aab..e7f5194aea28ea315a58cc7a73cb9414ca03a51c 100644
GIT binary patch
literal 34400
zcmV(#K;*w4iwFP!000001MK}}RAfuH1qwo81r%DiYvJzh?(XjHZiTyRp@lmX?pC;K
z;_mLQkNV_(w-4vuH(tLUulq+c$dP-`84-K!6)RTEl?j=uP(VOHpMXF?fPp@NydMI6
zeSf?keERbY@&15+e*go40ztk%Q<^$D+B&e)(3qGxQtO-97}!`FIvF_H*i+lso6wk9
z8{6>M>KRz*nHV|H=)Jdx`A1(Mpn<=P1LbJs>PTa2sb^;Weunl=(26Q5%F@tL)8Wz6
z(&EWT;8EedU&F@I%+Ux2N>I<yh#gNs&yf<3o)J&n$@;w!Jp&#sGdmL<I~_Bgh?F7>
zl!B4HvynYJ9^bnKrbaaM)Qr@0tazkK`cBr4PGm4pLaw%E_C^luc*6E(lz6msc;b52
zcyw&6w0N|%?Em=v=Qy(VdL~wS?0D8TR0e-Wf`JnF^F$?JW9?{fWBDI~63<G{mFoRo
zxoF=Hog5sg?2VlDEX@q{{@ARnXYclIjDdlXts|9?wSkSHnYGFLSns14S^o!N$1`y^
zv;7Y)X=H8UXv&Vq#LDs?P|?ly{r>;sGZ-kC_gMq^hj+jKnKK~JPyfxkU<Q_Y4i5iv
z`KNz@5VA4~VyXs?|2hT#$EoA{(d&B~*gpu+zkYahlUh>xH~o0p7S+7O=9+nC>*ZNM
z-M;Xg+))UTl5+8!JXkyzX_o%=s@8f|M*qGl_`kr<_C|*9UjMJlLj7rEX=7vIWczQs
z-ebu6KMkO5?TsAm^{gF?jqLvg!8kbT**pFP1aq`;)U*7j`F{fFvxBLTrKQdL<mlTN
zx>4denwmM_z5o6RSVLYjTPivhdMXB5Dq1QA20VKwYwLI4|5t=D;5jo;GgC8DF;kha
z7_b`C>gnUzSpT8%=&2bPsA-{~@Z|CEApaBFj2{4gJqM!?punGrFf;y$+t`0>ENgFM
zYj0!l0hc$jwXt`6xA(7%fQaZ{A$<oUJNdtY28JIlW?*A){a4IT!S>x5A5cA8M<a)i
z@Sk=6zAp9tmawrhGjRA|hvEDBR1na!H`BBHD`jl#YO81OU}XQ1aQhqR&%)5N`Wr$_
zQtEF|*}q5i>_1rl4$BGr)8T(Z8Q56a{txiqx#AzxdpO(JSUUU-XZZJB%xwM!w6qdY
z68jt6*3kOHJeru;8=1W4AbvBO_ayXzHM9J14`%l7&i`=3X7(<6ADnNgr?2PW_;H^8
zjZ^FY%{urG>11X5KMqN4Y-VZn!BPLkTIv1I<67xC+MBulkMw)$F!^6bb};y#M|OBm
z^j3QROW*&ctF4~n--P;q_;;H>F6#fHoee(Z4ND_uGiy1453r??wXO4q#9?V`X8qB+
zKj7a5tEGe9-?+iiz|h#p+WF)CzguYietXVFf0Bm5`+W#GzwcBI)TSnMZ2uP;GqC=(
zvDJGMIVU5B53Ar0VW9UR+TS-6vk#fZ+RRGN(!l9&!pYkD?^24jwUyq7Rbg%YzQs6x
z@X0@6Gn<c={F_kxy9NJG_QSgQgZ>>x|DMP{;Erap_BMaJO8y)5cav)?@SdV9jXtap
zTO$+84{6l)eG4`)WBuS%dp!edBWi0SM;9A=iw_pq+gRyQTbh}ee#j&C_Ihqo&Nfbe
zOUOCBD<;Pe6Y}3Esdqi_zMK4Ai;tkAl)_&zM+Irw515hl2Os@W7zQ6~baJ$@{>N_i
zSHk6ePyD9>`t<fM(F5@>Z35zCZ~1RI^R8VSog8%D#h%f>AW+A5HTQ4vV``*lXk_p3
zZ?$Cgt_h9Jj12!v<e2@DRR0l5f7IZ=B-{U8dCvF$m*@XC<T*17<NsB84*c&h`F}%^
z>l7L>vhdLHw87~+#AVL#%(BY_f18lzIl0$zl+j}1Ie8M8Pv0*3OFaHRFT!{KpA_MI
z{Ct0t>)ufz>-U6VYV|%fA2<bt4{4Q;{~x*Juc&~~2Sn-vB*^zyVfhC#aWeaWidoq@
zeb`Ih?SI$s^nXP~1cg-piirxiIoj~+SsVT}5%Gx%Svv^oe}pCF|CA(u$4I>wCGSI7
zd?bt%ME|aXte&H({(FbN<(%}Tj12#dQ8BYHdzV0_?<(@|3>5p2s`(@Zg<L;)LsIf1
zBK0?*?1$l`_~eBY6=goaGD^~ld}7jn#ia#gr1<|TuK1*d|BA@+S=#(nw*3L!+&{=-
zKG_d;%FA2*UDUqA(l++*s>RIx@5BY40-x}Q=u;37QWX1Ou!0c(2S`LgfbRn+Ch);y
zf3UwPOZXHNgcLtwVj>@WsGuaz_pznzd;ZZA{%ifh_eTx>6;tFB5U>&9`#72J#JeQ=
zAb$UaD+&vJxIra>_hj@}P(|3x!Sv%i85^6aeiWB{|0p%B{^)pp%MXk9oqXT4-uJ8z
zq5aOtOY;dDnb^OV&wn?Y?+r{%oah)B_~`!(@jueCmQD`;dkek)fwlUhnq2=xn&Nx)
zF8nu|@gJ>hj2Ibc|Mm(dW>RJb_BQe#gc6^n1)sH<<$D?NH@Wn^6nR(aVpjU^b&U0g
zdV<f=)>Mz*=wp0Y+B!%}{Z(-CSvsoNzpK%Yvt?!bPv`%s2|irIT3PJFqWgpKn^{_Z
zthfF_z2`8?_ptaoO66Va8e7`9eBksf-5ksuWZ%#Jscb$ruyZo|F!9z#PQqr^hJVxi
z-^AY~hySW91ob~GnE&G5=lEk?{@>_#3HZ@h|HV34e~`HUVMU$v|2OXMO#ZW_{tv6;
zzfq!!AJ+LFR#EwH(Z4CH_#8|v-nG2DnU#W#wScKTJ>7=}4)52Ik^hjz|Be5h@s5^y
z4)TH@y1dr{j!xF^KK}nT-7o!b-Ty)J|CjL$?`oUoPip^fbt;X6y#dXi(e2IjX=M2X
zB=|&x6sS$y|Ch=D@qIo1DZ~HK-IeN(IR00KaQ>GH;ji-eW5<uGnt_gmmiZs>A2Isg
zk{!>&$jFxJeOGig`adrrB=z1!zSO^5$&RODWcXf?(EX<%p`&MKpkrtHS3&YG?Jxh2
z*M`{f^xYhd9R5#g8QOn!{Y%C1?>d8l_PvZz)O#-)2w3zD^{AMPjr8b^8R_VZSy^Za
zV4zf~{?U;gPxM{W8ow9Jcm|d>PKNJC){gHLiP?Kq^T&T|toqD`26~JPtV~7*bjB>k
zwDfdrOnS6>hOBgS@6Xi#>Gh`?$0HT^b1wYnob1m<_^jNi1dOR<ZEV@`r1%7xn5kqL
z{~Ip$?iwXa6(<%pJ!5k#D@7_R2Vpf9I%5k)2`eRgeik-WK@l}EW)(pRHG5HYC1W-j
zW@$SaJ9l>%F0Oa4nY`Q2_TMWU!?=^y{|{6+rXF9@6YhB8>pZ1tSe|)u8{`oLhc|i3
zG+$SfCoFl&t+wdR)>8hzUEz2v;)Z|zr^z5EFBT5zB2m;~-e)=+(S-&cXpnf76r1Uv
zHSCwP4Hj183h$0zj3DU0iUH_t6ex#gpC3Vx&J5+wBtnUs)P_%zh{I5c5Ft6?5Fww3
zPFz-#-!72v1bpYCp0q1{o(d^tQ2RyRwkQ^_JWg$Bb_Amy58mz%Z&cp0-qzmkD3&EW
zPS13FoJdO>`d_Y(D%;uE*|jgkJ2s89%6PzTKi}fLy&QFTIbDoj*!!H_OlBS*-Rby1
zoowJdzu55LWMa{%Jhrj;G<3AFEv+RhJb`k*HF~}Pj^0?+%U*A%a|S1i!(K=2>sYm@
z7CW+s9uJLJxi}OD!@GfE+qTw2u!ckf){6;{b%xixQ4R`eqTpmuAdYZvdD_|8UzgUr
z+ot+ov4w!V^1k_1Tt^YKtDTg)R<$YzdR_JJZ|*ekc)y4SB7KR|I-M66(gix;o$&f5
z=4+9zEPAx1j^FI|P{2Q?9PU4TguIOMEMA?}{&rJH5z2qIZV`^f@r{yDv?K<raY7y?
ztB{yo4M)XIwO|gF1OBbu%>?LHR?4=<kvbZQ)@hAC{-|klV6s>U3`3fUnRtbTr`5HC
z{WVD`&H{2po6N&jg`We;)k;_)X~hFp3x-{+aB{x1Uc7>@2=qX{5bWu6|JtYxKha#j
zav61Kt=97E{x2L&Rm!qCyJ^G9o2PCyuR)6T+E=b?pANmIHR`CPG{6%`-QpU+G+Afu
zb*R(;ERV;_ZD4rq=>k_of!wUiA&Q^L0GAsDjyrKx@J(!Nt5)3G{e>!P2)n%Jsc&0J
z36A=S-&OD_0glS;w7Jt@2+2(p7R!9Vnn+SCE>k~w=?kVOv5ohAX*oFz85Qv^9aP>#
zO~3MsY@sAC(#my-_YPobNTg#;ec{nEFj^ghtFcyKRfk%+zS-OUT>Gs?eddwQVirv?
zfS5&Ol;pZexKo^NX3RSR-GaNcGVcv=Tg@BP8P)Wi_aH{swh#(_R6s0Cd+x37-pelM
z=>ejHr>!IFm8Ln%z}AlNmXz&lwII`)tVjj?PbVI1DLCb7&Z!PJ5*uk)6f3*hw-pXH
z^^DWDm0<fNrWOcg4}(B0?9)}%%WO@mV-GfVZq3>`&%CUw8x@;pp8WEtWR{%aQe2;>
z!?$~LO4#kvEN{<?m2sQ)7IkefYf7?S<?FH_ZGzejhucUGXtya%o?6bKXr0xslw>YC
zh^(=Tgs>|lw}*Tb;8^~Ki^-Rh7lRsXF$zLfrzo_NxR77A7UOs<O|S{ScWb&kS3SUz
zx3Nxf4Tg3~J&J4FYh7=}PxtO6au5%#dW@8#CMT#G;$!s^>P5wny!f$$0tKwE|LC&i
zkW9cxMzJUbD8S~*>)-sy<Op~Ob2DeHKnRr|6pw`$mx96QLjzPX(7N+jnXANEeNCds
zF@QuAuq|l|NF20S7n8M+@siA08yW_2d)ppT(Ec9D0Fy|;D~*3kpF%4qSrX5vP-bOL
z-6D%*DTeu@B#b<ri$rimQ(5Yf41p=EeRJpVNoNLT7*lN}mkIM{NQ+bEtb5x=!<p+f
zCPXQ96x_p&IL`(uR|aYp2@g)>R`LzGa^<yyip>JIgmOPgX;xJ9ZO7~3j!n&PzMgr1
z`b}943?y~z?1%lHD_i{j!OtquYgAF&W*O6qWL_=oGI5%2CF8rP?iN4`V#Y5tkBs8f
zM&Dhi4X(wEOSi8A(cvT1un$A_b28a)fP2KFRJ}l9(z%^2VzU;}KL^mNAL<#>Y);<f
zuy)(!{q|qZi{?o-Piy}fK~O}$o5U()P3S7hT{P!HOvdu#8qDT)j>P^96U;b>>uv9j
z=d{f~t#fQ;#6i>hHNR<3qtEl9;cFVUm-GT^WV)c1z9p2H#`>b@0<8=QcSRs~g1>)n
z4Dp#4g?^7uw9MQ=<lXBoqV*2<8Kti&4W~CG*#n~BmWt9f8<DQvytsvT!ccKtwA$}+
zn)VmFmp$Bex5ECD-A}*2x$n=4oQXLLx@p^~byt8^Zsa4+nV03V#zZil&@of(@o2ZY
zRrQmEtJr^ETKOVV<x=;I<zOc#5Al<?%CYjhNrX(2_gRdLj|!Bh0YaYd<%UwHc6${A
z9Qn>FyNTy$FcbbESl@sZ<Dg&ODpX?E9=vA=h#6wJ&fEPKUBt<S?`342-s@GAf~)IS
zF6oq??7w_+kJ8r$azVu8Q7K~WA+ZcWN5&p7RtQ^t^+Wu@a4%ME)}HU($I(S5V_ZCz
z63n^k9(q%M%uLbVm1K^TB7fuYW85cxVnuJkQUCrTUr+62P1p3BZ#+8sr)tTUHKuku
zXtGka(WKWU<SeRj>G9DzoUGSAlk4KWR}641pb?+Xm19ZtiR!reSR97EuwWQBCA;|+
z(=T$|n3qIgkLx+y0BlRenPAVZKAQVqpZqY39b|`AOBzq<4G*Q9fYLF82Ww}8y>Cf^
zXQNk?Lgv}Qr<{=RD>ukV`w;S@sp*jJ^MtJQR9*~R05aK81-#wyG*oOWVn&0CNZWPr
z{-35qfC^!FIJ}Fs0BAyBJ-rDcx!c7IPpNUW1^XP{am9U9$L5~L6@8Fkw0T9ejr>$G
z{%1oI^7WXsI?dG!gGbYFFUOu9Di<4p!CcE|bv(`*0PfOP8l|$Z-gE-QVrp2GU=`I(
zZZjpL(-QthrPTAmaPq_fh2IknvOz-mNN_XIKQB)dcehHV!WVT*UtilG(a{^DpK^UG
zj>`6f>+VEBs1=GQ5G`o3<)pyeKN-T78^4^BmQQ$ozVJ(iR-=j<gB_>a(;|2@Oi?go
z9XQk@a{i5_s6Vh=RLe(J_rSduh&8~Ct5sAA*+{b^EKxs@nF!UZ9oy5N;`tdZ5h9=7
z%jxwzPPZN|G>v5=mr%gj564q)E@xj@&ZXQ|(L1;gp4(k4Yea;HdlnEYh@qUEkW?q<
ze$;JnTfs9#wyHJxRrqY})l==v=Z#A%aVNY`lW$ZG(lj8G$+0C!^Tq`RDdhI}0Rh6|
ze1m^*!rqPy1oy=su48#D(K5YO6fWaSu<_?M6eu+DD8>xOEcN+9f<y@9TYQtZbyTUI
zTRHeoa^-3Z959up`Gf_B=~{hb{n>EO&oq6QMzyP-e6Li6sG5+Zw>6^kn^LZxYgYxJ
zm!_zFQh2!Ug}(j(=DW57MZ*|Wup!ktNO~+YZ8GLjb8~ySdP8lvy*)k*#(kE7sjI<H
ze@Y1`fMA;JIc{#wEr}qor<sA0J+Bxbe4YSbco8(e6@Wi6kgvfeV6pVCnIak|bmQ9#
zH?@_yQb4DP+IGdFfdiDj#V4=Pj34S>obe>v$GUi5K_Te>hSRN}Dw9?n1Qw8e7A>Nn
z@Gkn|Ji6%#!jm=Cp*pm=Pet=&Ud7tc^V#EK>-JzveqWVC5ppJ*)NadI3CJu4+|?<p
zdsK$MgEIkyn|*a}I+1dGw8E#Uk)&>CS>$uC_3spqfu>zPLZ=I|@o0~<<eTExb6_K{
z0Zi_5;;&d*@&@+4c|;E6b-ATbTjF`TjGNOl=K&Yik*myaF+bodzU3Yg0`TMXzYJ~W
zbj!^O?NN`pJi&=pMPk3%K6|W7e4{Vwg{nz|JM^YgKF%X)?lX3(pquvWXt^j{>pFs4
z`z7C~mHBc|d@+^lifS<wh$io#=6(m9tvBnH*-?>CiQ10}y_q{#-74YDL!xk8r{=|D
z<otOES>Q{vS#exNIhTITDUCVvi`Su{f`SevM{rRscWJa-Eq3)4lz3HjU%!m1;=Mj2
z)J&=C3dLM_`DcrhDN2nz+UceT$XXbSN5k=IJ}F#B3QTUFPjYamvF4?p1{I)InORIN
zshDKZt|3d`^bekRi;p@~n}vn#B7c(ff|vIy(#^=Qxo4%ft>qQ;pX@81a`RCD0t+&Q
z(SJ3@Ai<HcT&6?hv8zQq`{HJ_&qSF|=&Tiy-3bJ;2X@8VI;n*!fZd5%xIbb`MK4b>
z8jW)q<LtMoS2@VBlf&Xg8x(o5q>N+fv};hJDsx|~JcO6FRp6R(p7wloXU)8iCa=)<
z2%ft>U*L}mP7>%`_gpW+_jz@DuE55n92?9|l-qy%ePXr5Psbk~^b5cP1(Sp!0!NmR
zdOhd6y%!vO)|7#r(xe0LBBZlc%Wy9*GPINt!VVGcj^BfoU7!vfTtf7_>4Aj^uIxx5
z8X$1^I5FwIZ}F{yEMW;%%=&(VP+f`Gpzbk#s!jjoVfW#M8y8FS?b!e9VLdz_2A~ud
zFk1%8;B1LNwMJCo@C8b8kFZWE{BgT&C9eq1`nZ55<-1crb8?;rWHxlZQ?nug<AFdQ
z;nXXp_bn;~i`i{zRg`cq;!86D3E5qlBdx0?Ee}hbnViNv04_Pr^4SlLqLVM;r)9}u
zj#lI`$0JU>-`qsdwv0S)%5cfE$c_)RQZ!Pli}r%mZPOt;B@n;CPg<VX4!-OA;s9HM
zSTw`Nk*;{mL?m?;kB-%Zr2<OHD+Q@F+{>)Ji>Ie<msfC>wF#)r?7RvtoV8zmrHw%o
zNNO`VkA2LPguC{`>!hV|xN^p~-DFvmiewhDcCS^_Z4HIZkC;LBcatwGgqtR<3?bTh
zD8~t-bZQ9f^&?afK`BF?;LgP7O@2BZt`bX?j8cLb6DmUdk2Z(tY3!s!t6|K@v|f4F
z9UC?tG~TXY*JIxECap`n+wuue&_yz0F}+GW_K|k*uwYQpI^&Ni?JL38pdJ^KcDaXi
zPO7QaNqtab7?4cvs@UXqC%9D-Dy5GzMOAz<xMAp+++K%FPDqflW%J9Kj(7@IZ5%f`
zhM|4YI*$ri6&z}pPdo-^cez_UQO4T?ATwd+bt@by_KpDdDq0q%rR*RMo>t44jp7DY
z9_#R{nLt^?Pua$2OlhEY!qait+N5kvGOF$i)N~bz!cm#XrH||G)c68r+!3Fti=LiA
zyKv_jQV%%ijuvEF8u$dF7l(?Qxz3Pl1x_^89jG0N7xWrs7aVM<MoscveCSumI94V`
z474g-kJ$E|kZ3SBC6>F3=PO9)OMuPM?uIBl#B;?r<OPa0wX$@moqgCm+S(r;R6YyW
zzRg`+ej}ojm1kyLS!kWUkQN9J_Syd8(MUYExqsiMuxO#w=6V5Wc)RO(dEQ*}_HF|A
zo;#Zx4w3uhtV54N;i|`I>^~!LitB@QDt4nXlXS9aP#ai|K!L9BIC+T@${(%y>w9S&
zPHfW}9-yFljf9=9W`-V&oyrQp7yARGWQKsnjLUqcCTEYGr^#-QBx`lB&uSmuA2WLw
z#3lGE0tW~=zL+(rZvM9);g4K)tJZENj6#j-y`|R6f*mit-L2hQxyk*(H3!H2i42i)
zt(b#P11bEWtoj?Qo}~-!@S||emEc+RLL3~bsQ%@XKJ!o87E7Uf`%W1!HS%bY4TR39
z<zO(bvU6BC7o9f#=NDIqNh!2sCZWWvTKxM^<_h*`Otwi$xUtHvOk+u?bBMtvg>S4H
zt88Czb(`{B&n`lps!?qRMFK6Mw9|6z6{F#Zk?U2GufTW|Zz`2h`#L-+DjP>T?%oC>
z26%B$ehb(T-eFDBK>#CtLc2jwU&DJwEiEIjaGMe$lDp<~H~-!1MD~d@?9(q94M5>k
z$Y{wU{PXfNvVuw^tP_ugVrRB><Bl{^u;a?{ChJ(RWt#UrY76YXKc704mYd$DE{q|8
zu}YbSQZ6lzzO^QR+4;5`^;24h{_p0O0Z7j%{2<*rg(1e7yJ(cuxF|**hQ@>7ac{ux
zO8-5k5e#+^e<0d1H3=w97`Cb!_0DdA2FFUmi()sx=<)viyrM9D7=BA6C&*f9DT-f~
zW}2@Y5!?1k{EnRSQ?0dXzwpds(T-(jLE1HwUdkP}kKd&^{AA1qoda4Dj}x#W@r*}h
zlVpR7`@P6?_dz(7B^3x8I-hS-CN*_#JVa=DV;CA4*C&M)Es<AwZ3jUM?gjU+5z=Id
z2K2w?wW7(c98E^yC=VbtceRMQhA0b3l_%C|%PMOy<5DX_OQ@UX4On1;y}TE?+p;t>
zty$*Srk{9py~h#;mHH07lw}f#Bowd7m{2y@r=A;ZFb!P~UtVl;thx(j(v`V#Gbmia
z*2<S6?XQL8q&JTlZXSSlk`*j^2R$lRpMzg`R+=!MfX-iwSYQ@}EFcWE&e0OR$q$XM
ztKylmprb!;c4VGU@;f<a)4fbrdNOvvALg2p7#d|TAw{%%fTbuOa?Y@r)1pRtXOVJR
ztK4r(5QxVrt<M<L^S91U{}S%@)$>Mptt{QSc<r+D>4>v<@X^5Wp<9fv7BDf&!6&=3
zB#U6yJduY!YUkVxUGb-QQnWe$HN?G*g!5Wb{DkD8C<jL7%ib>upg<7U<w^^)x$0gO
z_~c24v27sU+@T~q_x;pv!gPQSl_e)U+VuEheW<=}8n-|I&Ib^{LM5-CuQ=m7OUZ_u
zFGQDsq=|%amD?%s$+D^7+f2HEe32%`;6Q=_nbM9*N>bC1C;LUra}Bh`vxpGGem5EV
zc$fb7pf&KeLSZk^?~;tT-&?uawcF!gdX+>~ak%ti7coq%9uXMUY!Ki=A;Z}d5)xgG
z;=&n+LexO-r;{FvNvv}ZxgF=3y}JYhCV|FhvB>u@C`h{%bTa|~x(?76@kr+Za3(m5
zd%qeI=nS&H#>L)$TiFdHtsXpzvq2reA=-X8b;|uB(=m?gEm?B`{VnbyR+dg)zFiSZ
zw{$*Lf#GhMHt--84EJ#%+C3{+W|3vk2?H5BMB#S~f7R3l0t1qyv_OAh8M)UOl2Eue
z5ey2ybwqj^Yr-td4r%*E^nhQxS#^R-_%zt?1HW`rTTBbfHyJI9{uLHV7=k5Cox*lQ
zpq)JUNGJT4_}(>pnHgYMftwW==_Xzq?l=Y61736?S3%?hkWC-@l5`9zf3CTq$&&rl
znGL#I`E1*=!}DF8s8%+s;VrvZE^aOkuW6i%oU1Kc;Ytj1NCdz&AE9;6RF@hr|FOZy
zo;9Z7TJ>TET(KSR*u>DIc*#<@PhGky5w~B2CE^RAK2+!E&uTebTqttP4&BXV$7^cv
z{brTs{YgGrx>?ic0%V%8*-o3Mei5&#`KOcn@vY=F^{nfKz>)aD)TPl8Vads-iiwIm
zeAXZca`W$podNxXsTr^JKK1GsJ4(Z0J5M!$q_(m++(RKgHI=k*xpDEZP*z@Jp*^=(
zjqb>5pXy$#*@0k5>njz>0MD=mhw^MhwwLHRSGAx#PFY8jz2H<S9;`j~mS~DoAfc?;
zrkcg8lzlTIvQdc|{J<34i_6!nGZYcjmkJ%9x2@IaHJ>+%b)WVYCv$F~?t-Y1a8wqw
zsbAcIh%Jb!zdMPWj#KFcjvi*NJRx4bk2He)kT{1VCc?bPZe(F1oyC-K!&Z#od@Jzu
zA9>(uz&kgU(kqRhC=*ks0)G(Rq?FoV+sf0MnXYNBzN?Ypn!$HE@|*;)=2nB7M2K}U
zg@4r{@48<9A<<ROz7;q_0(-OeIRuKQoJ?Ynw0MSyN^(~n1J}x=WH9_9zaZ6Cx=MLR
zNGn&+F>{c->YDMhTL^2DjSBfggh0pq)%QbMb4_V7QU}{*kGcB@>%2h-$323rnnhtn
zo`QYugDP<R>uzKVk~xbYZVbuGCFl&!CY6Cfi!T!bv+^-T+Fc~5IVNi&msY#J-BynQ
zGrcf0Sor4YVWxH1BY_q}*a_)lUoVQ0Q3bFTf@gE2)@+%hWWLV`u?YZA6Kn3tTRBas
zp3?!0Ga2S{iFV>=*MEc8?XOCYo0ulI$u`)2*^$5&F!v9amp>w7{bWQ8C+%*XO@TAS
z>Gg#s;d1+GPP0nRKR*g3-N7jVtGcMhB=D<u^WIs$rUq9Cl##iSt-((%eAW_yXyXI!
zM&RkI3Z2%(ZULsp<l&kZ4F%m5DOYbZIa}_%y~}XzH6Y#aE#uJ5otzBsm&eh!hiQE$
zhBH?#D!^`8UGD>i%$$$9w3}H$Q7jWL0a@O;D=Ei?_{_8Hdm3<2IyuRCp%&3#rC&Sq
zDJJ|1BvOwrCP@7A)OoCD*(`?3w={mqyF7k8nD=mfmLjsK_KWA0R)f+)-J?+<t$p*_
zY~YBD*H9BX%oAWv(Mne0f*GH;q)K<k(CjfGE4*%0phA-~VUwN_I1(wWFOdla>3jz3
zTI@B404LLPw$1rVf)wwLid2ZiQ6xJYG3VyW7teENH_!Xq^NFB#9!*t8rnZOO;j&V*
zVN?ce+|w4DN+Q`nxe`Flrhei2yhcM#1ho{3PtjM6OfI((xtL6Zc_!VeVsaddLn=l&
zk*sb<h3^i<^=1)h;$Y{wJr$kgOlRe6iKW=c9OG!rOUHvF7kWM(&I5aeyNb#U=?<$)
zcqay4S8#<oLo6JofK?}^KzD93o%&#EVv2+iQ~wd%{GWiS@1yp1)#eZ;M->_4q6!Pd
z<ms9+gDC>MpQw=(vX4n6lOZ%s4;{;k8%j;eO9%L>J4p{;4K9=zfr=JgYj;_b29K|)
zw74v!VyDPz_Y%Zk;T86Z&OZy3d$C4d#`k_sPG#rh=13gZSE_{VNT`@`ZtPL^fEW7&
z1}JrbWd8l*S2rVWTk-qY#Yin*1@~IaN=?$-v5P#!*DZNBG^MEAZqzIfZzhwc67rJp
z@JVCrWP|zrege@p$OW??U453~vfwH|+Ei8AN@#`?l0nKQA9S)}EQ~Rim#J)jxcO!f
zY<tzdebYp5eV5$~w(X9s25fxChu{VT)5=ylY?)1ASv-w;eBxTi?rqPmEFp3W_$qHY
z^azQBUfVbO#`wf8)jun5^%aOi9!<qlnr>GYaNY}1d;9a2x2R7{=6tgO^{vt44HnaZ
z_^xq8%FKtg)Wvv3r$e8k3UcuX&dZ6s@YWwiWb59Y3pYg%H&2ZwDJHj29|kG>D{(qj
z&OMszBKd08{dy)RafL{}+BlEFL6>+a{{e70q4j_~Nu`+1tNpOU`f6J{Zq2jsg2c46
z-l1PxC4$(o>Dhn=Z+$6aMAUTAw87Kk<^A<@#n<|nN%x1|&C*m%sOq43=7fWs{sguF
z{iYw>rig2+6T=FaS-%J3%<%4)I|sjaVJ#2*EYvb=o_`K9UAmT_?G#Rj!PF|(^fmbG
z4NCm8c#rjvk}g_i^-#xpE9q=lZI)eVHXGb`rbvD}6FJ3o4S9E#eh|WXf2Wx0eYX~q
zp92>((2b0-no>$+7qx9}dw`j&PxUbjhJwd};(+aTLPpXoTB&x|YyKo(=5_ZK6Of4g
z!_I5&75jX-ojXgb7^=B1M?PC)uAUnlc#hMvi2BY9%eEqsq+cf635`02UH*a@5v4z*
zecq`$e0oc8Jb#hgJB&8fj~$6j>w*TtmdzxDtV*SoMS`E(>u$T`h>ZAX5VKsU@}>ee
zJ1P}vt8RYkx^$hQtKI_@PkRMi_y(CfFQk}J-v-Q`?Up$-V3wcTZB||XdUTNu$fSa9
zm>27Z19cs5`bd6dU^U@0+ZkzNIU$=qD$PPcrlRs%QY&G-*iB8q>LDMQ9@pI@*{70G
zg&n-(w8k0Tyo0Dd3*fc$v)21E_uh^0d;FqT<L|g+M>1y^v+Tsu^gk3HPxnweTAxqH
z<NdetDOoguR*pnO3RW%rwXkt<i|*f!uJ8ACtDJXf#*!d(d;sMbPQ8E-Krev}=y#4D
zb8MjYcCT`;!LG%}B{dY2%LOqS0P1J%C1R^OM;E}Axe&~90d!*r2YcHB=B*Y~1F2+F
zQ>Z=nf`Gv>=$LhrVAiJ+!Kg5TpV_OUq1JLZj9i?znUXuxMt-USiV-LL4$Px9i!;_j
zR@)*L_%iIPE%ZD02lP$G0#qlNUOn2SnVm?-Q;Q(?@}^VcnZu4NnHyrv<3>dST7H;>
z#3HhU4<#Z}#qkbG#^i?uvNFFsOrs6V<=?j1Z{d+}V4drnesA|XK8!WVvSfvDg;unZ
zlgR=?dgStLwJyj5<kYba#hxU!R#1*0YZKYg?Ung|AHte9OzEJCh0?G}b6Tm8goj5>
zx}+{uco{VNu${ho(^xoOa53+tQ>QOS&P*FwOjUNc=W{#MX=0tM4KPuuNF<(oUmH%~
zK(gl)m;H$-Kc<OfU8Pl5^E*)RD*5&BT>7cxW@?K$nOiL?9@(OwamqHKoUkst>Su5c
z3s1pOBaO;!!HUmRJ=^X};;m9{dH|mozYP=nVDF85f?@P3hYU$|2gg&Qij9u9N6Yh<
z)8L2mJ14;kPjVN9tcKJ{4AVyK0V-lGlxnrTp-L8C&6o6><R!S~nL+i)%6rj#C78^u
zEemXy;d<=@7l+$h#0W_+eq7#3&q$cbyBu8`#TJZTQ1B7c<AvMf&bG5VoOd4m0he{$
zHpQp@vzO|956wDj>SM33_LFnwEJ%*s#sMwffI*E70DhLI*L29K>QR{?qqzT6qA2J-
zNSK49;&lv|5ENI$;PU{_wdBiIT9(h#PU4zEp0{hOeB$!anYYES>kQN>)JB#Q{MVNP
zDb2L83>sI~UfY}F9dCzgjxct^7kr=gNgMiw#u{5tFq?(dZC3o2aNS->a~2{e_xeUM
z(eaT@Q#<E-ak`7AtMO)r9iZ~3ivshB4xbl3FRg{%?FfGkCJ=^14-0{BNXV(SN|rf%
z^|3juX_RH_6(wVa!uHo7VdNSrif-~kS{iv&htFJxlc7=s?A)BKnp1*gCKa7^3%@21
z`OAz#HpvI~HF{OQg^ogapNpgq7jlQ&c)#APH)d$Rtu(7V;jsVmDRA6Uw<&8UOOUmo
z<aURs5~CuMPnpy>t+$@i5od|FiAY_EcTAfY70QMelU4tH7~MKPtz}h_)b9Rr#Zn0O
z+jn%B%0qFN#^qC9Av^nB1)Xbx{thjG4W8zZ1xmU<qe``nb(K>(z)^>p7qh{oTcp*j
zf9@!UtFftq=}{K*<}IO~UHj0+rxnbXnK0)GM!FEboGbA57Cu)EYTO7n*F;t!=$qoV
z_}Z=Ympv-h+eCJKXmtO&l7Q^(jJRm8q6;aKD@8JU`_97BHgBG-+F12vRyq|OPZqsv
z;CrsYYY&^YBq*zZc_v4)VYnuv7aGv?FUJjYH7=)5cdN)L>WhyD&w>la*MfwlPS<`Z
z8ZnuozY03>Wq)w)7G$xQ1eb)~Ihc;Y2(9hW;^vs+0wpb5Nc!@=VUx)<@SX5_6YYiB
zu>JsR8D_SABoDt!Ygv%I*jkKVp}k9)ptnyd$;DyfUDUla^Y--q^``1LIf0-}2?q;j
z^EBbwA1RqnqlBPKgMgnOV}W9lyHZw1^8-@ay-VY=2j()be-LEGLl=Ff29a3tDI5f1
zffT-&Os4u+;>=vd(*@erT6NVb_0pENX-CHf<lf!c_44*ubfK?qOG&-pT+XNM+`I_k
z@wB`X#>D&Uu9i<c^qCKjm)D!&@;Mia`S*(P&``S@FM#o!x9i)wB+r|;VlQ85B}?oU
zX6yN($1)_($^DArCSF1imxe1gf(BUGGBQ_`vQ?@|Rx9)4>l1ES>caUwG`Bf94enr9
z%Tgeni@Pxw!6{H#@B*jms3pKj?=tRT7xyiD?P#~AaTt1!tUo5$L_DU7ABs6t0nQJ1
z0XdGf0GGh~ZFr^SP6oQSp<=W!bzXPKU)^c;VGP>Ebf`mIxL{H*)%7F`)cx>CytdE*
zo4>G2)!g)uPjhB{F*g{2q-*pwPDbXuKDLW0GLz@~^CLaWOzDe@f4*k=o<i=U3)fJ_
zwzf{nm`zR;&wZ`h?dkK6X%`WjlP{Ly##XC2!TN-e%FCw3i3G(Ohxuf&gJxwlPt$Oo
z)Z2@;4labRnmT<es*_Iqmt%{#-qUppyYq?K$YHh)U#jS1;uLHxr}d^C)kZaJI~umU
z_a-dSlsJw?R7tWt3w3v<vNXSgv@&7nSF7&Cj*|0#4h>^E@6>lY$RP>)l~*9ASO6i|
z-n*9v6UGf=jm)$ka6AdO7M3h0TRm`XvDx5hKR}YOeCG0SP$y^w<7C~=(F*G}iTG{X
z*K0prJll{9IZ;(FF(AI}e6`*Ss3GvNmF7;nzkzr1aDXy-VOkch%vvO}rbzwp+VaXF
zk<$wsnNN~U2s9Eov5Y5LMwXorGWtNFCdoW)2Orqgv}bcWA>YA#=nG*}#UAG_J7NAq
zcSg>BOUAmjbh`(yi_Ti8A+BqX2d1mGA!mW;F9|G7UW^H__^T!hOYtKXXtw|{{%dC+
ztfk%)2X?AiM|n?ep5@D81&Nh{+9g>$C5g;iojrE9!!3FHZ;*;2H16t9ceKX<mN1z*
z=X7rBJ$<XX^e{05seU92>Kr2ZVsFJbt)q!}ZZ6KtlUH>3i<;_!IDIG>1*L$1_Qm6d
zeNV?WW~N%YAIvQigUnEU9qICdqm8vc?^PDQYgw8Q=gpLox(5(U(>?N&$$0hgN7NCs
zXqNZh|Fo7J1A(H2MV+>63VPginUc04DQ8~QSh<`eAAZnzeqnbm{cIJWtmd14qqK{N
zUyAUM1kf4hQdl}s5~^}H&y~{`Xe)1$u290fn-otm2HB(McB`Wc<svPgFLpgdg9$3w
z?VLJc<m$NMFOy1Z(!1VIA06q6-8-B>t$Px$N{9+8vusoWPp8~&jxjCuK-ZYdJt*B8
zAunPtG1p|;MikFFJ$J(247<y6=fK|Aa}?4{#xO776YyEeGs2`}(z14@T426WK@5+)
zR@9gtjmn1+nRTc(mII<&8NSdQdMsORW15!p`KdV41P*KGXeU<^u*=r)1EPxCje$dF
zUU*ozwuwoOPe-KkXMPpe;5It14b`l&Mi;AiR{@GRP#p>I4C!{Y7AEg^=IN&_tn>_S
z8lVjU^wC{$3sxj!MV-_lu$H&vih(NxcelrxLfjz~B!RpHclo3v5YVBvJ6^9xsx6qw
zOxnx&CuG@}{I~BRh^LeIIpzrJ^7BkrpDXeg&9C*Y$<3w)zJ~MDNd}Y+(8gnK7n%^3
zq<r3qD&BfoK)pgV^N!}WJjn8maCgovg~el&&fbF(yU+m*RMrA8%HYeaHqa5>ng&-&
zgjN(uL`P9<BPdXN3omx&Ef(O{$x=iq$}JE0Cq@aUiIR1L|9m=lBukX_J*v6<!Cb_j
zs_-^nT%Aen|82(h3qUsY)YP>ij>HC*6$v#VGXW2R|8tTXInXlSq<m(J+!AAcO7msV
zEarAu<Jh5*T3aE(T}pbIb)Pr&#whm%91`8*fu|M~n!TyDYuu+gkh!Ss#PYt*SQGQ3
zm8(x6Q5+PQrfBI*R*FWB$0NlO6=pMoK^V#6ZuY<Zs;Y}ntIacIP4gyL>+?h^i}upD
zTITGnrW+FpqcJu`bFx_;F+#yv!aIGH;vHyhA;-hZfe;^pVi)&~@>b~=DAo@RK+_0W
zWr$@~2?)hQnCKewV$0$DTg@-hvw?PKA<&BzHE!Z78Zf5zSJfKqD{WPT<;abMl&$)_
zqQvGi6Ul_q80j&@W~d0P{iZz4N5<5UGRx>VRR-hNh)Dgu;4N#K21Mnf9~Z>2&c>`r
zz8BcyjCnDAK9+;N&?}&zaD&uwxo}slQ!7u`K2{3V>>GSPa$E@Qr9i!D6_rJ%L0Sf<
zTHo`In@1ukkO3<MatUMP?{@p@OQ9Vrt}*B~uTm}#eN#lNq>W+Ip&knaJN;3TUqv0M
z#2d`UrJh|t5OT4(4Sgu!2L6Z=wb$waL7%Oq<;9dPX9^h66cnftW674Ji}UXc+lmQ{
zojzUVEt;FF__>6ZvO5_i1HSb?9G5n#E4oZ0Kat~C!rmk8-|Z!27a4u2`qJuJIg%#}
z&SfPlisaeP_E14iAw4ciEbE}Og?6|&u_JGfmi<LhG4GUJX0E+dT>JHj=M}ek$>&r@
zjl{pWS_O}^&f&_mNp?(tA8sM|z*o8?-V1K1AuCq8jL?NLr5qt^Crl5CLet^5H=fj;
zT>AthCrL(#im880LQ>Qu@>A@MR1(UZ%UTU$X31Au7q)|rYU%mixw}P0nq47JmAw3O
z)mYm>sP^3i;uPu3#0*=s`GGz{l+R%SP0a;FeELqxPV95i=WGW=-*!GX?W8A|D*J9`
zlf_hPR|qgMk#x6IhU`kOE}b+*&p_sJN#d3W)}LL<B@QUe`6Gn5mz4KeC+Cmq)gl-<
zLqafsZxj){T4Z-{xQmPra6*ZeGb__iy0=OtPFhfZPOMHqw>AX6ct|LAIHAht7c2Lh
zT3@$11~Hvi3PChkex+H>pj6Rl;s=*$W2_xw9U;>|VLKSR+2w#s_vX6lzSy`}?VY|%
zbLn^NxW5NcB+ZBxX_tSZ8TR5<Psd4JW|49kO)Xls={&!As3{88UX*gycg-o>rIU@E
zy=<$&;8fjv{seESDp{;2%yl;SSjhE^bnvKjR#wm3&`-R<#9vYF>MRX{rlwN9=yx-R
zAx@hc&JZ#~7PO|s(f{NkT(z;A<I4u?`NH_>56j6pW;N=#F1gTjib%d6PrLb<%Ye++
zo+`g?Fzh$3^p=ljrN&D{YlBqIpfZl0o)=LAPPzG2(pRvS$qeN|mUsQdrrwq?-TN9V
z+=F(y3i3*EB!WO+zwLnCTflhu2&4{YwT{MU!2AGLNHSHhYOd*+`j9frd&<wht}xu)
zge9~^Lk=)YT1z&2wb)#NVw9oMqb6M9t^HJS4@wQ1uQ_QAF=T2c>0f}H>k+lpXKw*-
zuH-HaqY!pG!3^4$*=!G=E^VKtpLxSuG=;3jOe%fQM=D^|Mg(KRy$*k)IF0XogO%l-
zSJb*fhN%#4H|wtbSQOd{Xsq2YgchN$yS)CYE9+N?bwc*jLfY#aDoo`kQLbjQOjok`
zf=|7X8q8WhRRe=w&wG0B`V_UCVXASJLSI7|N?K@)7R{B^Y+?co>>+1H{70{$l+ao?
z2ayWCwv_Ivu4edyoPGbggO_3zMoSX7T((r?!M-$>)oT3vG^Q7xv8OD6Ty04b#&X~A
zUf7Pk!<}rN*-D%)BWB}i1U)GKmYh{NlDSY@-~D_nKc-JGEBWo3tWKPCqK5u*tjRUY
zs{V81VXW~|qS>xnMk8MlZ?&$GXcB0}Vc2o@(|J|+>m6Mx8=I$cNpVGmM>bKVZ&~p6
z3|LQ+*52;*Pbn4r75UL=9@=C0PCmF^4C!JC`MBR@=W(7J=otjoVht-*caWm=1R_pp
z(q1IaBw<+YC)_<|?bYndcaCSxr(_XF!;wV+pqm2Z-1cSM!C~?qU7B*fA{o}7ZHp5~
zXmXNbQ!p0pZ6fxCHcclV1=W*yja`Qvn(EDD5fiZQ<!e4|Vi*}BeAj&muA=y!(*BDr
z*$y-68G4M<Np0LKkCYfcnS9di8~<Fn9oGm@!ruF~z#}x|)}~;%XN9Fyf=|9>ROw2D
z@|oe&NR#FgW6?%H-XfU$zF3oF5A`O-ZBo@($`2>}E#=L%<eH+`@J-uNM&iQ>0%7Ch
zq|?3;_h(~^orA11Vc7P^o;Kx!;<=n0ayDg?!)vq=6w6`eodnw2U5qCTVQb$Z)2JH*
zz-ZBcDwSKH27L()i|Cw)9In;$sGn1Nmuiq}i&_D9(MVB$oBXhXhEh0PX@<z)NRk+F
zM7J@XSb6cxfpqa)oE6ipo0F8(xZag?hSz3+_9{vCHf_NHU#A6G1Hf!=_=nOM;55Sn
zOgRU_Ki|cUsV_{7?&1racX1Mli}GQSIB%drlduW6(u!y?V<8T{)ZJ)nl4WUSH^3oD
zl&eNc`1%+foVl(v=Q!rdaV?Sosv|2CV3Nda>Yhnx!gBngREmJ~$;3vX$uI$ZW$ZoR
zx7*3*ESJ9eDVCazMOwwhNA^R{>YLZ=F4d9+e#Q<n%Fc1Y;iD2SBbp?^z%sc`Yl6RY
zBi1alEC?N!Yg57{q|lMG$sf_Gu90Y6P<Ok;VPQLvuKSKBG@4Pi<V*&5#I8n7G0sc&
zvudDGC2FV;*y8&kfED9DK*tE?mp{fGJAP!RDmrv)ekvW^9>0v#z*vU#38<DX7kwgM
zIdi!{kjsej)>R6@_Hwqc-k(1)fU6FjtoF})Ci%$ea74!hiYha`0$qy;<PLUj!Vodg
z_*rulRTD(YU`LxlQ@j`}E;lftOpD)1(sxgi-|f@pAap0H9N}y7589K{f=iN?;A?uk
zUM{ETs>gU5uq#%BONg7wOuRT?Go4Vdg<7)<VgN8)wW{~i`x6v_Q<M3JVheQvCmkkQ
z8%?D!$PjC|QYcS;^Zlx#%wQg?Y81|wtJjY%g*+#3)f5Y3G`vAPXYK%XhvBy(PRb0C
z&Sy1?XblpGG8lG>6%sDj>d>{AtvcOcSV?4Z&Dxr9d=MX{n&JUZ6Ur~wS&@WF_mJ6B
z^H{YI$K@vIxE}=HzZiT+Z;tx;P`b2FRECiY`BuD|<gT>1XP)v95Jn_UhVj(JsV+@^
z6(M|Va#@&IbDB|cyJ}_0T9-ZRB+Vr<s7mT6fo*`*&7MaAATjwtXjI5BBKZpH((E1u
zW|Ui#I1}qanIR{Gr;)7cR0##)m4#q3=5$qNF?2i>tG7bGN}|I=q;Y`_MPXmGPm(<X
zXR`M4u#(j;(xHtuA=7X5V%A{kA)t5N4a;-F=YIZ!Z3dWWPdl$M&*xHl&|Zx2lOtCg
zF2xC4L!aQH0#-VWZM&1GP50iRrj$TNIe86xX%iIjJkef>Nz%9IJ&0|phMhJQx#zBs
zR9r>c_{T+M{^5CzPtLcZ{DeuHKHpL|_APbi5=;F_9G#k1u)=$~s$9eq5_|<ehwS6u
zqDRWi=5VQ)?9Dq!yL$pg$<}P}+Lh6SKK1u7s6T3%?WwhJe8XZQqBQ3l>VODP#P%P~
zhC8}t(vdn_AKYM$fTC(bYI0KvCxY3E5xT1t8DO|%nX9&{1BrDsXO{e(E#6#F4X5^^
zelhmMoa=JYlzz?$mva^p_FN@#R<*NV6pY}BMhQ^Kj9qA(8LQzAF%wmpDhSDC#q}pI
z`W1|k1Cy1N2ujPe!Em$dL>i%Te&}0XK)sI(r8hO8lHfN&`lV@VtcIDuDNfutR6^D}
zD2`2UraQ?(*^rdcf2aa*Ey)!-g#{)&r0C#+3^w2F-kY;cvLrOGN$7r>Swt3fjHs2Z
zzR(wBi;V$Tgg;F;L1JCl?;B?)RP{2FZx71#uau_GUq4yw3_Qi`j)+tW-T0M--I3d@
zmtO3%%&Nc=w23rWS0`$2Ntdr^Q8yW~Y1&tl=U|5<YZViSLn1*%C~pmQn5RKz=rl-X
zU^vLveHIb+DLydnsgmLJY#$Poz<fqMS5eem&Nh>CJJqu`z#M~tzGd%|)hsNxbP556
z98{F<iHOiIzq<t&J2X#cvsLN9^~@g22{lxNWQaLD=9Dx)7>x}a&EOG+YA<rhfU9yp
zsZU(?r88jrO*A-~;@XOMRo1g9Ct#KK#pug(p!6r_h0wVWEzrF;3CXdZWNnezW2y-V
zNahT@^^jj_YOg>)1x{9>j%$NZ?GFwyR|l(`R^&|>GcGXtYCoSp7V2m(ZxT0rbJ1xT
z9Ncx^_HQc|a2%`4+2CHXz%lK%m``&lTYLgs985y4b8z}LU@C$}E5u&MVv}neAv3_;
z2qm)hrQjE`?-I!<7HxIsf^q(k3Mar<grz4nv-|}<mZA|Y6e}Of31O@g60o871Lq)6
z78JZx7*SW|76aqBSjWs<bS3$KzD?o>H(s1aUb1rEioxtwfu+=By^_2s-ZYF-Fc8CH
zfmRriPbTHgwW5@Hu4*(RX+_&N`)=`a_sA;I0kyU|_X0zMv4ZK~j`bRI?g`|y-d$a!
zwV%;AP4Y#`e9`D8ikmN0ZxQTA_o@)I?jv14OEVpy+>?ItJ2QHb+-!AqEo^LtR0>CT
z@VqffHar<GE?+#`c}Zm&p5AXQr4pgqmt}<e*?WK_eJ%0hOcaJ^Eb#U-mh@}u?b<+C
zZ;l)rCGuRJsR$Ya)UslzsFQiX7i?;T;X~lbvm#jOmb!oQP@c0i-4&((G4|4lcnuP+
z_qEX`r2XPcC(J@2YeHXAg*3y>tT60sQUWJ){+25CB@wHusAlBFSMrXzAO5p#_T2nC
z%(7)*YbP5>x=GeepwhSUqTn)j2=@~h_1RZwUcm?{_FZwU<esz!l6-aAerW-`xN&#d
zkMk>jW-2bsaQV@Lnp*-iRc$!kSbB{4OUfz3`Cul*?#woHUbSXEcSq4Q)K*}cE2j?;
z>0rgAyI4YAR3y+mP&{^uz58x)ts|PCR!#`>O-9J|_hor(VVOWhOiaKx^qgGX9=in3
zNvPS3cu2pP19BC?@hzG+no&j5xfd6f2$->#V4RF=aj3Ya703WFK+eDSdQ)1Ul4o9n
zi#7yq#}15%e8ps%8p%#M8ow6X`5T)Anp1l0bAK_uj<1I>mPIGZiCitpiC9wSh$fZB
zPB%Rsj#h-`My+E-ZDBH&=nOQ#xz#6`RZSyJft;rKeOk1mvGKY!%rW#ZzkSjiu@3#S
z#hlRL7j&t(xKgu~_naHz4G{3OVf$^p^nO!{_@R)zEd08;<B>?qAW7W1Kj}kO#Y}rS
z%A4lQX4TS;K51F4oQ#45Z%p6%1~Tu)cK#z(-LuYG$Mf!}%y_@?XCb`^a}vf7LT3nW
zi{s<W8i>qHr3Nv!@qT-C5Mug6Gx{B0<xDLl9<j&)dO-a1qdZ$>)VQ=!OYGw%_Vb=B
zbPQK<ZV5zKse3wnI*n>6j1GpC`}YCtx^zy=-iU$BU~K$;yKUGcn#z3P%8Q}=LB%7h
zUQ6WPp2~HK!aKr{;KDrO)u^~_>`-Bs3H4)95|wUsD*}!WyiX3K#EwSM`yM64%!QA5
z9^|?-uVUC|*DG_IqQy(oB+fe4r-c{jr|T3X39G`t6R=}pq#c;qsq!=XQ)c?#-fypR
ztyS2iCTtE$ip4PaSt@cl=CQ%Y^J%wXYs-IH!WHv&^TclkQ!3BHcTy0&=BWHjlqB;)
z>tYehIvv-yb9rq?mg0P-)D>RpEfB=D6W5oUHYU82E`N)nT(Zxfio21an3l@OaWdrn
za(3B#U|daL4o(qU6Q5TZ1uT|cqI-Q?*Kd`nTlT$8^;jM~*R%-B;SND8dLlTl^Ynt^
z)RLJK=&zA9F4}?*oIBs*-_nelT!|^X2TS)Dd;HM+_O_ewS&I3&ecgAa#A!HlWj70L
zykB<uvwWUT(TjWHE72NBFjY5yns7}!pPhN;iM!FqUr%4)R<^rcjMfRdjP-(#et&v`
zIDV~HnvSH0oih`~*bcfMp%+(}&&&%NvXUfFfG)BacpdHPS_x^kGrUX>De=JNUhc+O
zX0Gf`CE_DxYLuJ_pkSA$))WDgb>V9AP!WH)*rDKNQ^Pu0gCe$8fID|+n^)29(7M2#
znMw2>i{EA}j;<VyBdHM-`@{hI8Hyxzm}^f{ZLoqUFt_GdFOt2%60Sjaul@udHjVap
zW{<%ojoNZ08Iw2*$uW`s$8x*;kihNvPwjehI0fq!u!{5y)knv9&mB!DHY94q<?FBF
z@mjIBNiZ8IGpo(`pux&i2nm*;_!u#z1~A@Ta5{x+$~r~cIzwL=zi*fp4QoX|Mu-`x
z6`C?&nu|`m`17>!aJqRs3%?%iG`RT9x4GCkLVH_DpO#XN87nEsrBM!&3v{Ekxqx5L
znk59Ud#_oq^kMV20-9m=7<hXq+vUx<oUb>@>GLv&BJ!5-xk;?PV1+&xi3@)3mAEJY
zF(RTX6g;dcti1^9A8v+tYqzNh-*!CPrpkgk_Ii8l)fi$yu01Hyo`ur<!tFjCm25vq
z5jNSe1W?!Ux#@dTSUhws?s&Oi!ab=hq{;BPDCZf97TLPri6oO;YiC0}56WD9em?55
z<7mqqohkMH?Ae6moudhy!GF6+;4yJ!mA$&7n5Qd3Jq`2<+}p;LKhxcjxB1+(Ii)C;
z$7CbcwdhwoNJdfHe^nkFLHrFZ9<G*|Jj%IqQ;`2KA7FYi;edZl?c`WD|9NsG9*iE2
z^z=aki^W`A@KabEVnlauPZ-y)UQ-o?c(N;pUaz}77Mj~6WueDsDJeS+g!)fm+H+KX
z$IdKFLbj9iEb$G_E=;%2R+3dz@}G}dz?o_gDKvnI5DF>jU)WzO`l6zuy*(~oSU7Yo
ztX#8%Ny~Sj$_x7xfByoNsCABrzX63aJAGKvG}$atY|cX}EhS45uk%fii_e<GJ=An~
zBA;QQxl6i5*?!PSv$u^#25b{Zj6!({R3q{mhW(z_+;1Pt?8qSdA!N$!m#7XUiWz1v
zaAEEx>z+ah+fvN%;GjYoi9IKKa-bSk^`(NTrlf)bLWWRErORe&@v5P2e%|Fq8{b!6
z7F<3EAYt}<{^<J;&+7&qZ!cmm8%m*9jo%rMb9;rgjP5YZT;jkQo77NC`qUYbhC=C?
zK)2tgG9Mm@dMyyl9J`8Qe^Tt8A3+qV_C>fOC@sQm&?C0i_ytC4TXi#<+rVuzo5S3h
zj@$5A==jumE{WVfmf~u^5_;BXUOp90=Z;d;G<YQPg`xx^5DP`Z4xxt8R}2cid2wxi
z<Fek@yT#`!(AXh-gK|%pvi~l~Rsx5Wzs=nF4ciH7WK?Q35%+SlV`tEVU;(I-fLqw&
z5rqQ|KDjyh%X@JzIa?OEcsLRoOa5ed!^y3#VHWWjEtJu?k#<xO?%{hf^lRA*p}F&9
z;dg(5{r&K50$pMR066_bt$aQW#u+Zpjd6DoaxY6V*1?bZSrt8AC8b4p0JoJds=bv{
z6cHefY9N~n-a?FN7lY)NUhj`fLqLQz&fJ!Nuei6To9i3DnLq@`9eo<(L$_L+-7}n<
zPm`(|aMx>`%qle{$eIl7>Jfx;xc6(8dU=5G+hZQh2=vQdX;wwXh<xLl+xd-3VQId2
z-Sgv=g;oM_`jGhBx%=5>?(M?x5sh`f$d>M;@{|b@?M!AFhjq@kUKs1nb@uxGG$+&)
z?;3|jpQPujR5z1!Hpb7lDAF;3cwwMpnqc#LgU_Q);+c<v;?Z%0iIl))#o`Ul{F!)(
zM6<STnTi@GKwJR^cia>S_CyHKp%!gllr&tXC$2PqySV5KzFA;?&4w<CIaL=&n<4M1
z_FpKCC#MGd=(~o^T1+P`GE+GUr)wUCa&AMY?!!m1*rfaMxg)_M4ZN4iRV72uKJ5l1
zrd1&4@K-$0$n?q;Mpn@*lKdtqj=OBs9ymdST(}DXTEW((I<X9Q<kuifVz{H7V$4AJ
z$tiO*cwQHC#JensIzX3PQBO}0rfSx??9BJ-95m%*oYb5{u^<=f4TdWz?Nm(WA2FOT
zs7Rl`09DDCpR%tTRxResXD+6DnsU3y4sD5Uc-WZlvKf~RlJgfXZR!lw0h&T%fknoC
z&v4R-jb#&)B?`MR2zOQ*E%&)*(U?eAJpikLbObeSn2U;ci6<bHWw>p-X|E5GpwCm*
z79sSgUsU2U3)WGi8_1%`7wi#dO4Lay_+d%#y|6TKrc2N^+pD01S;%E^(~Q)a?56R`
zv>t^?x4ImG`)QXv=KmfP14;dMg(~j$s7FAke}jBQN_G$xs6YBp4BwI$#G_JCE{&_e
zz9(Ucj_6O<%nP*oFauu53{7-?_+6&^%tPiiZyh-N@k=ht<YO4DSV&WoCc)yD!2vE*
zoRmG+LNAZy_P}Hk9Z8a6{;x+h10e|hiM-%Uo6CeD7?0@!1?*iO3}<hNPWoIK#40x(
z{1}5ZjE4PESin`uY>)`ke_rqI!APAF_yuh2%WuhiQ2bq3adM^7!O3r2j6|>2nyuzH
zOsYjWEb39nkh};MVgc~_r%i?u>~CY@6-Z4K*}vmXeA|UF_|r0^tTDPNlM-ciP9=h)
zz4pI5EM{nyoBqH21GIDuZyC(5(Cwf$)N5w$f&+DS!4&UW`$pH7@``<Zra~8GV}BLq
zt*FZJ$cvk_x2r;@)qC;#mqf0*)+zytm+?cY%J$WBaR+0NWcgN;d?ly}5#`;}&L)%`
z>vhudv4L0WB#|$$Z_9hVlkoynD&GM)vN9>J=54Wr#Kal^jIzY0-&}R7=$<BqNPsw?
zjbFp5=2T~;uYhafy+BosHuPfu+zJiBYb4<kZW9=>c4rF->S?<b!5)%1%@9JPWc?hv
zvSG$=NsN|#ny{1%mu}&6JU%s>@fs!vs~RW6<Eb9))I2Y~F2k$BxCYKl<dhh?R+r#P
zbpk8yLSWNkaRS#JG&|R>I#Je;Q68A5ReN<F^5Dwc&p&B6sb5DOQ8TAxp-W)sLO}P9
zVH*!7XTEMsJKC(O1g{;JR&xF81?|i|wBHQBLB$5~6BetAd4!N|{V|j+%_(UM)*7&J
z!lewolm&4tj-axN1Ap!+q~SbiO4v;<IbIyd&7-ornd>NG!*u45j+tOo6h<5qf>!mD
z@=kZ{XqKJ8A~b~7G&$}GkYQ1!t@_%r!cJTozAQC`j32+|nkeg70<LjR7X3A)`=sQD
zS%Wh&j<yHO$$)ij2pgDt!kuLIQjXgSuk0in&RXFuO4WqJECMPjTGSgzqXN~B3<W$m
zdk<KhTTd?XbjC^&N=c{2quNvme`6u_Rbi+}5Z50ToXtk_EV)k66cLr~OC+j`i=&tD
zXUiF2>E&62T}_XxNAc{r$|slER4BYr4>XZ6jL!0_BYs(#I0%&p?$=1mR09y_sbV>?
zAW<1cviT3j%Ag~m%M`{$H}G&>4gXLRm1Z0IIhooID{p>Y)R|qRQ*Lf~Rd-b;V*uGD
zPb~%RQZ@p~#dsv5kytrl5V3zyXp*!mJFd1riTZmJ$sm8j^1F7fTtT7iN`h7CG()jk
zyt!eEZXEpta9`e-9_g^d^r#2*_VVFKGmRUF3R~Q0G30CoXlon3ZN3IESS>o3iOQne
zECj-jL)#>NidFJx38@uiFpai@Gh@dY*45YR5t>5ms8#xJf;j<=Nuscxyo1y(HN`(f
zjv1uJpY6>N_lSB<6;5RFlG6P?fgXJ>!$K~|0%#Q-{BX~~L3WbojU*1sU@Rd0g;}L1
zPlMf@MZMbmkJoN&N2b)p_EhBJ;;x8i<q32P7`MtY%58MH*N!0YO1~;z>u)ngXwxB?
zHHT<_0?UlukPS^_<*A%Ptt4OP&9JpKfXi2u9+DZw6-_xU@ySml8Mh}zJCDuT97eQ9
zg`(O{nC<^Hc#YRX(Zw8F965MyMo$bg<0mR0R*qOkCR7V;PI#?NI+|=&ns}k><%>u{
zf&8hS4@m6c3z9*>ae+>W=I6oj;fcgo=Ryc<#AsUa96s?!sNJd5%}aF74S6aVZN|^*
zY4k}Gz!{}5d}>M1oAgcW2JA<5hG~*sTLn^S>;UDP8RP-g(iiG$c&$q{)yN_#oh&WL
zIw_4xl+rep%5^JehGG&5GP1fUAN$mcU!8fL)f;)tQ-vhtcnA&(@Y!;`cQ;mouvi6z
zBcazrx6M~<S_%N;X-`o8bEc^DHX9+nW`*DKZIV1?Z#T(LD!(w*rPj0uGc@KkZ1zrX
zvb8G@?N3yonwK&jg}b_iAbX6YdIG6ezI>tY)b@lZU5q-6sj333d=t$F7oSF{Zf+g%
zF)rfpa2grKnR4GDC?~O$5=JgjbkCF%)D3f+{oWD<tB5}fy8J6L$<CGKmqr)wk9Jrd
zPLTVT>oV?2=ruvE7E_f(jAW!LKSgo*G<7)|vp(YceC5p6XHb#RW&Ud<c_`SM@kwV%
z@aU*%*$eq!<w>VNbrqilw%GdVG!@XpZ}NW0S&~Vu5ov#Z7^(2Gs2$t*39R`em}F3T
zQtd)HPq`%PRw!BB?XlpqToo7zjqIbWv#~&|(_UWuYh+e?c_Wf#Y4n;s1SWEpP;Ug3
zcTUg)D6u0_sa0mgoeBKu7te<|a9(`_bqh2<QNV+$#+SB*FR_PYy=L6b;5!d&r@Q=z
zP?KVWs#NPuF&G2x6;yDd(?5<S$~oP7iK{-*e|s6D3&Ic(WfNDVI3+XU(fGBu^EKO?
zQ#L;!L@rju^e`lj38O*3m@}92R-Qt`RUL<MRb|awmSl@H7+haKC=oO1KszAWkE?Pn
z7GTU%pVNhnm7M@=(B}ISuUIMb^xD2Sk;H})K@|KOEkRL==-rtA&s15_Tznap4t9Z7
zhTsbw4tCdZN<gObK8;d?1e}WEuStGW!YK4#+~9ll8=r~sNyDt#tJ{o`hwud)H}U2e
zhrWP%;4j2yxxLg^KoO>qwhLE1Xk<`D3pdrH1D)_!ldzm6rAi4}4wB8_qsRubomR0y
zu5$5Lziw-NCAcpdkh}T15|d2=t96Ff3`cl(kXde0=n-sEcp~}Z=Hz;_joASgC`znq
zYgFN3*gh*7r7-y0-DrG6Uy9<ZH{ja|?(fo?oo2bze1B`)#iR658=v;F#|>z<yVtGW
zG*pk^;PqQ?9`@HQ(T-$Ii<4CsZ{A3_p6+EM(d%2yV9njKU&$K!YdsI_qa1JZKHO(j
zMIwASlhmTQjXkEQqM7a#THO<dwGR)j4-g$RZqP+<;V{U<zWM|nN{Z$?IhjLgAWF6J
z!sXKfy-{Pg(QBEXATX`>>rF{rgpaK6Hna=2f65nO$mmxoOLdVIDatGQOX_s3Di2Yi
zK75z&biAZHjbpm)jahJTR{l=Z7W7?{K79KCtJ6yC?ED07@DYB^8E!Vw4zq}K*@0XL
zNityuTjY$+`K3in&?v4XTvH--is3>u{|ggMpD}V+NlJ4?69qq)UIH!pi8X~$S`afM
z77IgMj8=m^=r<P41H@1Bx&HlP%~Aq2=&52Es#O@WY3_?m`@TwEc%PER#G>I)p89Fr
zdRaEQ`w}?QS?;uax?sMt9(dT?-HnN_yWHPA%9vd4DNSBK1XHV1fZsi>W+hIxSYT@U
zG;J2`!x}Y__+(Pf>G+QIawUJ!D}Qq*+fsbBkYRFjZH?PGspM(VD)iD&aH*74q6^z-
zsRX?p<6%7e^(#CeT~HU17Z<lY%0~;QVToO1%?BBV)Ww>#jZ3$kP07CdWTq|r*HQ)!
z%eBq2CczH!EHj#vzh))(B0Pb)*akeav-MQun>~TV*Y%j_*CsIPyIy_o>!zAdhd9N(
zNs!YaQGOv5%p%^G%!>hU#&7)hg%shBc}$Vwn*<b%*pV1JMZbb#!yXIi2V^j-%FXH;
zHhV8=YD?g2ti`dN5>g3KEhrHt<PQLa>EAY5$`6+SIu?cB$>nY9$ZPpY%f|Y1AU#Cf
zin20m3Q#ZS)D^}S_V(FOe$hpdxvNYD{%-0og3hcfxOitswGBKI@*L^%xcL(h34CAD
zzDj<o*8o|1Bd{Qd3hNhRjqOvI(CtLV6KFv3p<P+jYb)5%v5<;Fy7K5{_SW6hAH{n#
z#XtC@apshC@{d2gudFLe(Z42TGO7%b!(JaSg%d9)6B(R#Y2O=m@9wzTtgNH`**Pn~
zw&>ZT+tv@RD$X{$ng}B)&#W<j=To&G4pz!_GR{q&^Zgjam}~&xfS2BW(FPX$N?@UH
z3oq;f+1R(qKfqkqH5j5VLu%4ntl~rWmQ4QX5td%Q=8m<_-7HrLbFlc>;d1KSQ_94r
zT<AtN716j-LQHFh<ENuF$S-68sT$s?Ql1CXo7-b+5rT%`JMnw&Uz9uKsKb|&+<Q<9
zYh+h7&Fw6ucMvSqtqtNY)Mlsdr`OmkWlWbhDyWGDLoH=;)0dOWqMq4b+TCRD7JJ>3
z-Rdk^2ErJ1lcv01!tsa2XBCK2`X{a6@OmZSu<6<DF;@4=4(zY*bd040?CA7q>OhnE
zRY;TKYDLq<{SKtd>kC+{&K%#Y5#Pe8ha#hLoubz@H)SPGikY$SNyh1+)!QFR1EIl4
zkvu8P-E%al{I;a6i_m9zuSh$6aGvXCk<yT=zTM*s3(xd2cBU?)A%jT4dEFZoUt(jO
zb-Y<nm9hqsuJdo23P6M)Q$LjmcIvlfSxeggu7;EGj?PewifiT9MD5H}r(pjQQygQM
zWqaAQ)ugyY`C~eU4oz4>DO+oZ3gjNc|I%5OoGHWL;pWeucyF}K-RV;<4<M{YB{WQb
z-&5<9IBGOizHNke$Ke_`*ik}yb+?}Qf*@Q5?^TzeHb=Z?XcZ^ifCAz)W%DxRjwcwU
zJs3u%@fcwrHWBuCP2`?BAV8(rL`x0`70VcK%vcs%b3lh5c5{BBFK;tph?l-yeT8(P
zANCet$FVLw{LMS-b96h^(PdQe+6$bOnJL5HG8I3%m0N20dSmwM2!Fbtih(1G*O5&e
z#*}7WMLR;WWjUcuvmjGVm5}l5xGHT<A<tHbOfM0SUzDw9Fon*G%JvC%OB=EWfZYco
z&H(1AYVlJ8*kvZ@7wWgVAU(MA%vnV&nfSA0P32bcBHbe6V{tRhAx&}7?&JxQtH%a_
zv+F%@dAXHUck%OF4O6n0lRJig<}@P5OcIi`^P0XQk1|Om22ElCPNJ@jTb{HDM6EHQ
zxkVVWOgX8`H%LwWjh`XFf>VZawdRp`HXE5RCmv>A#J4wIO$VD1mh$s3ZH-431DIho
z{;IRSuLZyN4=q<8zl}lVoth4;qPjy<su<wYFq0qSOOwI!(dpM8#=&2qjZOSg!BQ~r
zlY3-LmFuN?=wsTYCbx@7pI5tZyJJG{)5kTpoVZ~zV%PGL2>q2SK9bT@xS5wD41w?D
zE!JdGTpsm_5pq#7w6vjwCtzI{m1*AUnNRWOX0vS#9VLqIf|^wuqOaI;B}Q2*XUrW(
zahth9ny~C$aNKWE&7bg!HVVKJX{WaaiyYn!TbZ=v!RN&kEfYm)bVNPyRca=nr;IO#
zFG+|lfUj{P*HvuFykC)iGe&+}Sfy1^x}@Ve+0hIQCtMKPQLEzY(`Hk}FM3TQ|03It
z*?h$~`Xc34XyR1Is+xY9^9oORt!X8zG^A9*@@ia}-4e8`yxZ7ioO4`@=_nbNL1qMl
z&rj&|DY9cdXeDW!RI)w4N6X2-SHnMLAE`|-@|$Tqw0ksVRou;0Mqv-OlYcfjYy!cm
z6Xpwl)mNhnUabqe9kzsRO*fCm@Wayb@0(qSA?5c)#34<>g?zm&okmF~gTBXClhWX^
zB~^Zj-b9~|f@^M-M-c>uizXMOlq*snS1&KmIaSDgE;j~!pPd+nOAcVjrt}@szggc+
z`d&tUiI|z#_*}e5!GmcVStUJNQFc>n+A%yyt&Se8Xns6olc7}PH;socDfXaVrLufg
z+pr}oL|S*)Dj&(&s5}7MnRsgC7(zCB>8K*UtW+eQFBA+2M&#og{ya2~n2_LpzNwqp
z!C|u)&0!HbDd0yLCW~l16a%91#&10<H8bAr@u!<aLKMD1Obpw1n>Go1rSfWKGQgc$
zqfM21<_VEym55j3ukF;fyj6cD%JUyoAgcHyo9z&-npn7}3tJTe?bt~#FX1bDMZHsG
zq@p;!>JsG%aVwoup9(g>N1MZ2W;PE_&FK<*1n5P^#{5|bHq#sd#WCY<D2%P;y=@Jp
zT8f5t0@-@VK~R)Tp#6+LZ?!G)exx~cyOj?(`Oj(1<ir#`EF1wd|786XWbGxIS~`G(
z>rynHR(Dp!R*xYfZk2#W$N>_9x12!tG%1i;258M6AU?~3Exq5TfP^+FZn`zMf==v-
z_|`sbuz9T>%wZlj`wc1&W$*_hy+qLz1Snh+T6iW{W3)=?R)!>Z-g4`(kXjZK%Gf9l
zJ?U0BSxo9~>z9outqu~g1vu-fI=|zf%)>GMd2uOc7rz?V%RkIU$WV&G6#NOj0NP;P
zzNYVTS@a9#_bczFtt2!^I+kR1rw}Mh0`aPBVkqQti0!g3V~Ov<kJ!SbTG?g1EWEp_
z0Zr_5F_a6vaa|Nshp2Ld6y<$1-F9>A_wJo~?MZ`xfk1(QjJTt6Qq(Uv_`~T0>+PJY
zH-uJN#7*-pOcWe&RWX}stB|Ga!)geR>Y**}c>)UKqH>Ku$a7u?%-??yR*iRGq^I&L
zZ635Ui6mr{QG8M66lLZit1g^8R?CbWC>6NSPr*^O&+giaZ+N_Gal>5m82!x8he!~;
zykxtOUtl|VzGX-Ou9Qux#HM;&@CcR1stQTp5(La9P&6>;f)(qY6)%o7y-IyJMht^2
zOV`sAK*nLO*C=NI7GdCyH;{jNdw;zmjiDpcbj|(AA50H+tU!erVKb~(rU8}(3}+xp
z;0Fe<qFqxkqL=*)B5xcXb>DKC%bGz#W2r27Lgx2Goj4WA0kMe|ZRnsVYJoHdCh|9@
z`mH2UZ9ClFY=owSjTtmKF&zy5Qk&P<KS5oVLqw$enOBPT%lS(DD>H`>E7w>P2wF93
zN%b;MWei6Gj7()#Z}%96P}vy8H`z@D5z@z}bxlb4v;ekS=X`PxzGqLS#1Qyv#y)y=
z1Ut6K?-}Ygpc5<U>0L4Y*e*6qb`DtTCy3yWBg_0QVTlM9<8IR6NAJ!*Tt##<GO<+J
zqmG_$?F*a__T#o|Ph?ARqjY{T&s&VyiCtJ6a4tazM5^R1*S8@sO(Ld#XF$U*>!30-
zwzHYV*xb^@_SrNJeq%{+j%&VD?c2LMR--y!WHxdrmQC4%4zgm1+yrymn#}3P()J_S
zSkRs3pyYyvfelh@D%2yGx!y#MEjj^|SFk1;eCm$?hpIvF_wrDD1w{k!9%mK#r<S(8
z>Cjsi#HS@HhTrTGB%q1udktN()?4{;PDS;k;fflpY;ZeIa&Gx+pnjm(Cq=2*{u*w|
z&+%Q{V_!kNH{^2G$7)z9tJ<~ndgYS9=oY4OKrwQ3<Ne${$GpehQ{W6Vxf(jUy*QX>
zzMGyx$h1f75m6<$L*o7&fhli998Z%p)<w>XS`ims_{*Ny{(9?5q#y*bOHY514a-Ti
z!o~Vmz(#eS9@_HDInD(B4S@r@q9&PbU0P&A4;jng_RMC^Jcw|eAPkX_qBGq!8<+?x
zd09(QJ4%3t@adolDxxB0=vLcnR?Ujjm?AF!g3yUmg?JDL-}(j<e7u9WSd0NgWM2)t
zkXFRlqR@$*T+NZ3oen$+5tmTjrmQ@8VVP_Dt@D+5iYhSU?Du@;<UHiggvJ0U?wshF
z`+jvFj)MnQm|rAP@)M9qrp}o3Gw95bLoj=qMOhY=?>@5+!B;#w{Z>v9w2Kwr7!zKt
z=ds18;o*f^r{XCIYl$RgR<49=HSa2V?17b&#H!)Ju@GPQlNw7T_^`Bxj{lYn5&~A4
zkn1bcS}JQ(xH{5c2K|Jnw)<C`1OFUB{sUVwBlq9MW_C^-!M65|;bAkbOGPgIiNY11
z;XMcEf93%V)MyiEQ`nRE>N=;}x!V5-!m)xG6o6~gHF+T(H=ilO;9ORLT$U!MB@e&y
z2P@}j^)puyuaNv5<!NJu5~p27wi|V8i&~p3)b`UJ-pMat?lgVC+=x8KzM0n8?2OX5
zA>QoycV5tJi(oG`Xq{*kBzut^(H`TG{MBvizE<lrR{Miw71$;B&ZapO0C=cK3w*RB
zs+|SI0|JnuA+$yc6i&*<7ZQ_kUy?m<kOIirJQ+<L!d5cS7bWl}I`U0`QU->hP?C3<
zF`C_vfM(i!fxg9_%)URKM6NF+NEh1*yURv3?G$6Xq!e|ym4&Oop2Qc7HdRYaogNqr
zB+#alu1+cgHk0-~ia~vAi^uwbzl(_1V2N#91V=5V7~Jg#UC4HP8Y3gEh<?cGv&O;B
zwID>LKUBq0_)0@wK|Lz4E-QXBD<5`gQ0LmbIH)pTp`wJb`;*crAyovFcnF4=NQh;6
zI<B(LRNS+L^>E(>(SkxSU_ztLnjt~2><C;7YRp7M^GCd6TlN4C#aR&!a(6@yiG9eC
znAJ2Bb>JoZpxe(8h5@a!YdU@Vurj%eIylDf=2DShma2lu2L~w)?-`FcfZn~@+C3kv
zLL5jg)X}0lHBIR01dCXF%}zql`4Cv+$hT7rdNf$w02q@6-9FPH&Az-xtFA{IiT05>
zz@H)%X@hhdSmb91Yl=(yKi+IR%Xv(nu%*s7oUVwAmTkOFn)Hz6VLPIJwe>lpe8?El
z(J(1WVxK+k0n#r9q<Te2S~grbT<V}ME{%%ALr{gC4avr|V4C~&n)DodzyY?>)ejwB
zP7H}dWa^C9hos0w@`o_OdK1&Z$qh1<z&x|tR%+WTCYAkd0#!XsIS)g+NX`;B53;&F
z|8$D<&n^ng-;Y%i7r}O4ADFjg6|Gsk(J{4QDX$bZYF7*|B__?r4$EY+WxUqAPCrVQ
zJlfEA>jD4iBInZtSB#Ea@k?uiIF8o*Q(dQJo4YYF^6X=ak4Nj*$7xf9A^?irOeP{Z
zr1Q3@81{7^?a_0^jYvx|PbV5uRnHW`wm1`zpP+QHy{Pr<(x$}AN^|+}9gUdc*m<@y
z(yY3^zqd6h{7_~vN7!!)AurQfKri^p4=ZFzn|K>0gZ!8_(U=^^-x$b7P%~n(iOdwO
z70BBz)18!Ly)kJ5#=`v=Dj@SnVsTT$trmF(3xKH{Io3K1gx0Uo&Obt9<j;R(6Q?SD
zbFFC0$U}h<7vX4helUjVXKcUJC4lwE8z~l*J<(F>KQ`pz7sZJeESYcXkHOTHA%=3{
znl)P0+P!$Ih%!si&%tsfRX66HlNVnu&EdumtNFhAhsnm#*jMej8>wLbOu8-}>1L>i
zJ+88Ks@zY6r&v?U6-*7=Mu1_2MI7Zfqm>f)12<i^fsnl?Nf>(4V;Gwhhq4@Hrxirs
z1=7SRL3<o-YN9nQx^nub;Os1?5-JC%EgoTi7XtGB$YGItaVNG{`zgk5_O}6AG_xW|
zlrXKt!U18B>-5F7Zot?#?R5Pv#h35EL%WEv0i^RHd5rw$HM*ndooDajo#cmDh!TGV
zW9yw%hK}fbnoU9ty|Io7TPO6($v2jZZ1&<D(qHOgCFWzvadh?IfN^t3cgK34*1KCI
z)}Q{KM@UaAvif7`$Q&eC(m&``di|Kg#^$aHPaGD{%Mx8(T`PJLoMl6^Z}uG^hxXaw
zY#`Hi9aK2KS|v@SBduSwXxSVjIbco&+sCew<?#k;+5)pCNq0J&ey>bytWlyx;J038
z&)z}#l}GD-*3_WMG&K@RMndWF^eY~r$znN@G|_TViZ~f@QBX{dIgYh~&GlSx&fawy
z)g;)%)6w%%8P<?xsYUD;Hx6*>REzefh!lh}IrK@{C{B^Y{*sXl&qZwvIVs>8&|5O_
z@!wX0MUa{k-?=2*hU-}u2MY<a;m(jcNdt-}65+zNpmJ%b1UA&9A{9M2a3UvTjZBbq
zbESxOw+WcW1G?0MqSz+y-xUW&WGJNNZ-FRTTGhMzh*>NeCS2snkx&we3J&W~v+t%O
zvOFpCrJJ9Wz!pF(<f~PTofevvH!IY0+<791dp>WMu?a;K35U`_;ARY@BVOfi{?uv{
zFdm<fbqj$LGY}tD?OGrzh&|>VpIw#SHRCl1AyPq}lm-7qZ8MbI9fBm1&Atb#R@boQ
zGT;ZV1=C)%*!PQXA%r=E$l%UvHRXc%?To{a*ODn|UzCa-Z~OEo35zF+hY$-5!8@@n
z2-~Q>Nc+T3T&rB;5Gn2~CY~OD-YmOyx{9yxsildcdy#qQXG$rtw!$Y<P{zH-ZSmk1
z_h77$r}dwvzlbmBoX7H#QrxYIH_Oz6h%0SXY+{f>l-Cmsk`SyMeHDwV?nbhM{c3(X
zE!_Z1<>#Xq-k&0?-1)VU_MOfSC=ZII-?(4ByKqQGd}!8r;%O$l3yWxQzYh&VouEMN
z+}P(V!uk3^k1(n{J9n&3eeEh$fNCh6t!g42>d4{bgosBBKM~C$;t+^q;R|XAvA{8C
zFVq(k3mcLwAAqttK=;UAY(P8?8!xaVXudpjfztZfd2Wwg1Q+@a2iiC^_ES;?uu%f1
z`k9&X@3%iQDbOl!5S?kkJJLf;<cFkSlXQ}!*5FdoGrfY<kHjmC`6+>`0de!!%!sXT
zdgKC(Ll|W8BZ#w{Q~rZ4aIU<I5}!`!GLn>k%*@PXx|-wgn^W}`&O|ROf8}y2)A6rl
z_M8xQqBJ*kQ{|)KKk^Tv2hA@x!7~ug+EuJmijBTtU}3c6RTT$4?!Elx`@QU^G9js^
zwYDz4JuA=$!uta-WZG1P=1Sr&i<<n&o_b)tC?CK5X5K#GGgkKaka0%FY4g{ze0CNj
z78CT(cw->QOuR&AUYWgql?jbC((n!iGrz)3oC2tgQ4_Pj2r=V7s^#j*+}&G}wLpSG
z5b1|*Lguuwpwxd`1@jo7b4bZ=-?~$}H$|;O^*|0O7C%^J+85fWX&?z_HnrEL@CK|#
zwRDBa4OS}jisepZG?1xC3!_8`OXK{b%+G`dN`wC5?8!v1WXldYMwi6z0QDp@e(TmW
z=gKnt*+NF%0W3(lF<&rSRu)c_n~XLcz^d!yIZ&EmNit8ggCLYEDnkk@@2FNKdDc#m
zKIrhg?oK(KRU7Zs5(w^w$S;XxfWh|tu|3m#w?_{p)w^Nhth57%Du~kMQW-RTZzM8A
zLJ99{LU05kX+fNLh>^7TMs&k(4s<S27#RAx<>KA#rC;m7nt8mGbz@}b_YP;@cUJU8
zNNT>i0~AI1%UNK04(|_5+r9_W=_;#~^V}&9Z^a93`S(iG$12WKI94@nZkEe{xnWiW
z)zzBTyzLgrMn%btNz+i;p(dhvn9he8W^3Z94Lbm|56VsQc6T+yT2Z;RPIk$p7b1b6
z((-G^xJwAgK=gku&mitKcHKRB6cV51Tw+jo#d9WD^WsqNgtg@-ZJwvMjtmOFH5@-4
z1?$4_DadZ`<p{4$Bqpx^q>D4L(}Rs^f6pcM8=3LlWs`H+mACcMpSDG_VX(NP*^0fC
zHsks?uTQ8C;jq4#z-&OXt!3}YX-Jf?^B(Cizo1FF@9e~_b$~R?*&w4AYoEF_Nm^iQ
zk{zby=57HVpW4g9hx4DfG)Dh?`9SbA*FuAhN7L(-72eCYIT$JypPD~kJD>uyKvIO*
z@ftS%ChzF*x@B6GI>ZQJ9eD`PN8tfEmCA&COlQLM3!Uq#az;KgR+&*+87rSHO8AAz
zP#n(!OslEtv7D^@`7zo?dqoZ+?`h96iJM^F-iFGAeAD29*g5zR&t7R)AwLopzqtrE
zgKqG$+%F%sU!-t-8TZ-y?9V58>rFQgkKW`-x%lltym<(f1&7}jVAE7ex0C-|p0BL|
zY_4DT@wKz>tLS(gMPF`BvU;m^w9^OJtQ}YKaI?iHp8!aLQ-Y?@M%t8}D+1)g+{X?C
zI@G=<*jVTbWIXCfeP!Dzz;{JbyqCn$gfJp<ZZo7=G>LF&p8@46`}{NQo43UYi_}wa
zjeB>x&)jt5^JD1_K8?>=zYmra3j1P&(IB_HRr@^(7Wi4J6yw*iY0Y(W><x45;9$q$
zT72#<_SwmrHnldMlw}MI7<4-D$RiwcMQEqliDB`j8-tqUgx5N$+H8HSGXtj(7=6o$
z<6>sQ;m@pF`4>xf5d9smPPfQTEJ8xK`vGaJG`UOAy5?Tr!>5<^^s2_W^x%JdcGq@_
zG-Hg!$!_?Pt-KkP@RdS0Ym7;|4yNf4BZs05MQ1~!o$Ph7tfKtb`Mw?Trtr+?<p4b1
zlrNGXDerS2zqR{i6U-ERFvgEUC3l^k_#L~%;6P8W;?52mWlGhviw+(<YGWZ;<#Fwp
zYZn-$=G2m5D$@PDL5WTsAGeD~FrAkf6R=-DpDHF8BIqnH)f=)^@E_$9kS=SDqu^HG
z9+jgU!91%caPz`ludXV2Su*J{;F^5pUI&N4aLX%DtFo`2M~!%NqtkNbiH0j&akQF1
zg}^ZB5)eEm1aS2pbL>~X?GDOFgv14b_r>NEqWQ6_?kN!{BFQdZ!;GkxSmD6mP|C>&
zj62u$NslvCAx6uCL?{k9X7{-Tr?kkXaZgErb19;dY>n>5126GlWHKGc3ksc^Ca#I|
z6}h*(Mjc)m(^flVaMsZw94Z6&(GyXG>OBktCpEF3RN?o+>ZB~>$&VNSqN?-2&TB|J
z9@*9mLIywj8i#wcTQvr7Wy(29bE&b8bv!gQYd!&n@Lj@kM(o*voyq2%$8+4bisGtp
z#W7+j0(8kXrB@#1q#>I??>sn8UB)(pPD8K!62#Nqyd&{XB-^>!dE!;r$X!R|JdepF
zBlJQ9qnYEXz)#ER`i(&b3ovQ595ELBOqyqY@7+m;_0()-Pqaqtk~++&(jR_KqPmza
z52A6roGGM$b>acq2P?B3y`yy}6=K^ASuT8-4pd#@)F9WF5sQ{LJA_h2kV%NOCw5dV
zO^fJ3%}~iqWO~@}yqrP+_~qU5&wCiIolGixj&J$_{q7hh08TdFB`oqJTO~@qrRG5q
zYxS%^yxl2(nU%UiiB{+jVMMesr$GZyTPz7B-f~d0OZf%%$?qIm<wl%|0IHfH4@}UP
zxhnDktQv|WDE-SZ@Yc`yoT_}j<W^A(sz=6k+qu*An(1YWT?+@|N#kN-=A2YOw2gvP
z-$YH54<mc#j;o}rE9ah9vesVQJg<)efnOY#XS1B+Jr)uwA8s>m@wg06x$g7&)5{Qi
zX@=6pUUqE>Ma-xY(Z{AMV6#fQ;sLe6!V5~`u<_NTIujJhB|<$i`ok6{oEGtL21vPE
z?eHX#tWc*&Rffmr;!2AVrVhmgF6T4&g>b|k^38pGM>gr3>=0#!z>Lq0w1nH5!}X($
z3Z8N!IRp94Nb{H06Y4f<AbA*z*QE*2Y#VMkJy^l+a+OGoKiySy#JI=_BJ!RaFC&UP
zi!)5T;6<jcgkw$;^?{3kGlDyNt@EEFh6f$~@qbF9$7IRBL!{-xZFm9AOpichh@AW!
z<BK6BD(R)i6?#G*Ij4a5meWhoptt93i8p8_E(IARfVzD>$LY6(uQ$4hEqyH#BQYj@
z?4GBYq_9WG`0!zSt4yovYOL(Tc!xBMZfkYh0F$<?;VPuVvg>bz)zH$8(R^Uiy#9+{
zQgpR8&((+#$X!hsfbe0>CXE}SaTtO$6=nF0dE@G&GchKs2*tOB$-nHjmfCQMnPVIa
zJL?JG+EUG`;#_i=v4pj+Xp=!ro$BoNYn1HLt@^wqdOg70Xs>Aay!hroYxOokKEJTb
zZM87DTCye>3c^TJ38S(r_T_OJjImYqT7LcEybqRm08y572VMS<scwfx8g}F$=y}n7
zl;!PaC(+*KD$si5KzE>=7rDXkX=xiIdy$MGDwaNlCKG@7@P7PaPhrUr_!w%6>+y3}
zrXA@4$w7=K9Q|X&@kx`WMjNflCyk%P36?OP=7Y+oxwk58-}(j{U)7B`IaWCS@qwp8
zEf0@gT7b*Xbn)Wu(_pXF%X_)K2iauz1!)?UAwy2YqdWmBCP#5`XFhUSu1f;iI;PLJ
zd&4ET?Qz$whDL5kw@LKZ8iO~dt51E=O{uU$+``F+<_euBVD9;}nqrYHOpia7oj2;)
zxm&&Zp*$XPX`FG;k*H7iD^(sgdsWt6*K{5<;Ft(8+OxM)(sdoV!spO{0>#r$DcU$`
zG#;&raasR-na!5X8P!asL_Dqv-E~;>b?`xdOREMp?$JTpp2NWzi}e>sEW3(!_X{`M
zFw*YdsfBchj%8~N+;QXNGZJLX>J!BhE&xn{%lw6I+rsCfr@^I_KcA0qT5zx`YO$Fv
zoJAkjHxS1kn@I*ZaPM&_u1~GA8z4YaG-xVfVQQTB#0E34w0?vfR{y={bc3X7?##t&
z=k(KhLpPFXw#s*gL;4PxRb@~iEv{cPRIDoL)8eYf;cdIW_^6cJ+ZW1~B=gdZ1z}KQ
z`+TyQOVh6>)jxk{{ER4;?#Nb^`15fPkO{tBWGq`b{iXF&8Lz7<IEt>#Rwqs3^|BAW
z?jspPI|;aEf|Pt_)+T-^T#`CaW%-NL`g`-7v5^lB0P;|I<jDEeK7RmXM%Mz*763Tw
zaV@Kz{1VvW@e4ZS>^w@me3ImB1=T%Tsti@&m-WMR-RjB~%v11JAEOLe3x7YA$X~Lx
z+7omnLcB%V0}?6iFB(VN-ehAP)zaT{=HfvrXyGO%PFZJ26T)z=*||z@_({&o96!;y
z=x8b~$?~tOTMaqq{$?mqTXcldU17ef`F4#*9z_Kf_xM{}4w0EO5j^0K=~CvYvu;2p
zlY}-7jU#v!(p&(O;Edg)KO**-kyTxyZggHxiwvVS2TS>Zw*odkP6Jb0k_c#8QWyB*
zL6N-v^rt&z5#LN^LpHr9Bwbj}qO!@h({&3E+p8@4=4V<?islNl`%NtuvP1N8H*hb&
zS+f!zM;T^PbYyELgA?L5(e2N37|@k#rlq6qUJDP-?6-%9v?UtYDPux+QJ=XMZzB|&
zxm9%AlZ?U=#e54aS;<U0E|;9fJX5$hCaw|sgX`HNSC65FWO(j9MDWD~lR*D%j`ab7
zCNhPF&Vma|$<(u>T$@`|2>V)hvcm8e!eF(xyNJzHa4;M|BvPlt>{n#DXr^qHT`*2U
zAD2AYS2ei`LG24$3|3lwd$Po+RW+ryMXwa!I4MGzlZ*7~&V7;aW&4B8mM|t&9#N3u
zK}XoBfW?C0ng?!T<Wd@003f?UUvN;{-_vA{#DCWUS*p%=Ebu7nB|<wdGHf9o*1s_+
zJCeW3{5ouK4(ZwP)~I(q(}2l0pZVrzEWJZ)Z1|=HTsMF(P91%^Y8mOO3>tEV&Lum$
zFsq7!%zt(!g~(1^td7xZtHIrxT0K|siY)GNPY?Sp-C~8_fYTltq!8iJ9GW_nk#lAe
z<7*Kq9`Z9#;2@TV94>1{o2J!*kbrp8UJNTgc1*Uh%CKpPWHI)V<Ch16H}uKWW#s%)
z#7*0oR?%7&uP{e0-vBdBSNGM|=fN|N^lYn($mX0Az9AIZVgaM!DT=xuWV6hpqQ`Zl
zinds!<RC~iQfBsY^2T3(d>h@b)p{P7^9b(Of;~;lvTTKGtD2l!ThE!=R-aJedA$X^
zT>xY|UjZ^a?f0j9ENfcb%`-W?ir)-wEGF;veMx&zEHUKMu5)a>T_4^!2{{n~`&`I<
z0ayuJr94VJvPAHOi%W*kIV?P{TMZtSTNliePm+~en8Y^UyH>a4MXf~1oGmndvCU0i
zk6EjWH@6|(`Q~dLm#9}bVR%#<$ti#e3Y;X0Zy*GXb|?`HBTqb1Nl_o|>A*!T9jqj}
zb=<uiq1xC`+j<?J_aV}7lxUWXl%}m2MxjP(ls$KnizkKGH$@I7+N~X~**7!|D`6&U
z5F4SwY*xHIx^vBW<rXw2eBDtOC@`*xzvQ)zi|^Y`3Y!^>*a{%Ha*)fbFf^xcOq7Du
z+vJ|H3Bmd5(L{+)A(wfIa34c3TtP<P5bL>tb(74yT7j$&gOg)$W3*v_jK2KN<aLJr
zfY#l|=v@%HyoF`ho`;eVse(X4$2pIE<z{R$HFDD^rz4Yi94>L1GC;`^jp;KDB^C<Z
zW;NpX2*!Q9E*picTdf)2%bpdpFbcU{G)6kZAX6C0HE1wlHS9>^zC{)A&umS_s{T!!
z_G1D(hyRJXTs1RW1Go5q^6g!<ZDVaG)Gt!Z<dKrj%;(6A-j(R}gUB?5=|r1Vkx|K%
zw;&ia2sbG=ann163Hg`-0?Ba-AT+cg>jAg$RlXoX97JGbMa4$MulYT@bomFn5rt>b
z_uH+aciuPVtrSEjfj0|YMcy~B9KLh(W5X&sYvdMOi3(3_&|LWncZ$q$?1=ng=uNco
zvbO^04nPOq^k0@$b=!u8S!(gQbk?xTHGhnzMri%|UfFR-0&!MO-jMm`Qq{5j=bg?M
zL7#hUVy&k_2Z`3%1(<Tp{o{b>=ESFp>#xc-ZcbYFrP~hLl@ddT+W-<Z8ttE_S`cZt
z#JL(QY(IK>DYQ?A4;9PrQu|hAwOe)Ic*3zuH>MdM+SC`Rs(mgd-(1LcE0zwg-?(bV
z<*F*7yEP{mpt?9%t~F;68*@u|M+^H7Ji;);y`AnWt4#;C=>wFTVNN9#gQVs^&!7BI
z$sF@aiRF5zaoj=VZqoEJE6-Pl(7j|M6(=1m;2c9Z9Mn-hKsViYzwWx3oXHju^!R2|
zw*fU-I355cB%?#W)tc8umq4$tJiH^Xa9BYnkYa7nfMT8oEbN<8cYlkRI&SAEg6ss5
zJH9X4HJ11N2wzvGoY_%YSV8zF9kq)Nho0iR(X>1Ut;}ZX`yRV!27%3v8?K*f94!`B
zB5ft*8j(pX)mMH)m}N8bf=kKheQIXt)jJGW9R$WLmu7-0JD(LrbeU#bal3KY(vol9
z2;n}kf>%;j4o{;06<gkBPgZSRAHHvVou8(y-RM;4#DM+Oc{zl$p+F^5;!xZq7-KG`
zYrqjkgP4c<LLyb2cd)awv|yaBj#C1~&Ag&22+2rpZjVO|*Sk1Rk(a}<U;4Tmukv*r
zwzheV@?p&0^Zq{FR&W#H8duzDKL|8%uUp+mjmR-RK(8&;M#Zzf)stN%TE=Iq#`DJW
zv<n>-t_;i??7qJYtP7mo_a=6OJq-E#_nY1kExAh1XZ4}Jy2gV#S$UT`I}7wpE+^iS
zif`Q+IkC>Jp<{A0a3ku&&}=bY?L@0mGyR9rtqpOs1}ZZvUdQ#kH(dNK%5mLN#YF*m
zpHoGknG%^piE!12f}}23)Mi0E5Rdr|L{=H|Oh+L(vx#sS??J2FTCoQa<E;>NEH%ZJ
zYe_V2^@`9?^Iguc6>!n3zJ#Xp-{c|q6ga_fYZiUgpr)StE%LT5u;{9;+h<1RaX>hy
zAhI3n1v0+f7<{TbPsi7r12j#@&r^%jVaMg2q|z6y8C@E7{}p!jDqB(ELK;@C3b>kr
zSjHvdb;A8Os%o_Gpf%yNgaep`{4+&GeL*JGywMBM@8=2k&AywwgB#Gs#3>&n@J>af
z7(^8QPta^kdeznaioULygsyI+7+2AEZd$>0+H!N#R}XEzIB|?Ysx-ez4`I-LnD3K?
zA2qXG!H@O<EU&FJgn?&;sB5et3sMG2s<g+UxUwM#(hu@<sEwLf+f~7F+miD8p2l%)
zgCgXe_-<3wehPc!>m!iv0dq@_M|zu5=@7X(ujM~|8)9TINj?VVF9S_T1RmeET|2w#
z>LO;JUh^4;NPD?*wkm@l0rUr?SR!hQr?aB;BZeoA%OqiO)+UX%yR}%@d4Za*Xo%Mk
zp+1V@_xIo^B*X7@)xcOR949w~r+TT3`N>gM3+@2vYD<Nx2^*QMlUz|8)oE&}Xvx>~
zzK*(8Hi}H2s&2t?qx(n)#TV<Is+IvC{VK@G-rq2r2OnR`_Hapa`{%c~a66PCSk$*=
z?k1hQ@JgssG?9x9My)#r{~Wa-(=nt%C^2+0S`STN2?kaA5lI1DdOva{yBAc4MH#ht
zl-0rZa#EuDbj?r^mf^IjT!~W5ct-A|Vo}yczG?>Y?Mcy66PZibN~6y#>D6i$UB~@U
zNbzy1dT$YVIba$00Ip)Lda%aohmb{2l}S=gm%>~3Y=34knOumZ=F2vq$DOPacKn(~
z#dC6dzr3}2Zdm6#ykU{_n-mvGJ%QR9w86}q3J!uXc!pHz!U%Um1bE4!BEk+m0%;t9
zNu{C{(DepiK_M(xV+u{I;BaOftFvB2RM@M5xfpty0<|o1!>GSmbIP={GuUTXIKTii
ztuH!r(1vs7i=4zDm-#-Z&0U?`xM(dnClkcAd_uJMwLEi6wcEt5f!2@a3XCqmhTnYJ
z0#GQBc-aX4%s~}x8ma)C;271D(T$G$2uTBDkFjlnCO$M1ChTE1XH>lzoetgs7HyvV
zOv&|(={9Z(V<%`Lk15iND&Z6TcVRt-OIyVmHh)6maj_S*lk|L4+pF2jBXhS_AKT@%
z%58l%63^?U%X^9Q+ML+T5`tQId{7ok(c+rJ^BIt#5zbKo=to3DDj|e@G$g79$}SdJ
zycGeeHk6znDp+t-`{A_Az2i+p@;TptJDc%uC+G!l<u)BLFFj5$-^lZ%kOmTHbL1_8
z*W=EhmgSGv9gcFx!gDbn<sWHc@FETYdG+7tkJWsp2@R>VC-tPk3WJ#?0Tc%7`S0eR
zBkqHs=>p8>GD3;=OT;P2m~FWIxZQO&SLI5>=jc}le7yR0deAaL9IO?OW-vI3R({Sm
z!J%1w(_CsyAJ4)^ip<Kc(Gnn=jNl`G%;x?cbmr9K25-`>K83nr(R95VGzu%5l@aOp
z>6a>c#-{+r2W$Jb6c(wZOKZDkT{fK&vIf-Zp0??i*B@TI)^TD%h_&;=;YJCETwuy2
z>k66HfXnQg2~<_M=rHC^(jddgGopl`Zer#B35-$6)qj5fMAw4!xb#{rg#D4m?I+7h
zhAOw<<?yQrfk|mHelYg!1O3rplq=$S$I10G*&n{scv}K+vlPsMo1jduk{-1Tc>1$}
ztsa*-{h*U3hvESS*GzMan$Q?y2nlz?*SQ8?Ph{BLgewhv$*L7(3Li<e1)^7a8jx}v
z04)dBHmDeGhmqBY!=@ls<~8njUx=DuC_X2CWBsOg8K|m(eFfzQXo?dUF}_#;J1-7P
zO@PuQi7v~Snj?p-)V?@4t8V?eWPLxjlz-Kbd97)2!=v+($ML#p=|;Q2=kfAQZwTLs
z6f0ONJ|gGBS7gjz?k<<tI6VTz+`WT3TIG%U?2T3XwuNTxj4S{A_VPZcc+CsN)(3yC
zqs0@A_Q<aFcWFwl3^QY6lcK<ckrKF=Z-T7!xBfLMMYS^&k#PKBk~80o{KrrJeY!6l
z!|NiZLmu(OYJeUb;$>wWvYmNNIA-{%RE%$%K@~(KY$~bv`?xlM<E+-4jM9+Jn!E}M
z7edH%vIWNROfTnnwdFe5r5W|QUuc@PqK8Z~S^-W?Z9w`_i~<(@!`<VHDh#%DPpIb^
z5F#qAFyMm%@^#b!-j~0gi!%?m8SXw=)v<WY>>)cB(V$T0Z_DY+Qco>8_NPPtfScDn
zjqkA8uZW19c_WPvu|5}FM?zzZL<1=_kz7TzPAfPhFz8HKa1SEl;uDDFD@ST0XUrG-
zdA-*ZA_JH3dbJJ>oNsM|%!sH=<IIwtr}DXX2zjLJ*$`@npHK$YEZlXhqF<C)PfnU-
z(s;ZdG`lKmEJk~%4uG@67BxcsnUr_}$aj{imLX2K2}?Il{B6&CFxv9c?u{w8Vt-fQ
zsN;CcoOF&y*M3sLiKOZOnDrOk9qY98`xebwwdwJUvwq9+Gt*xDeaHR1K6Y>LytUs~
zK7XHk*CLG5(fd-{)9+kqL8tQ>wS2bA{3_mRV;5;+SMiIZrLiSyy2#9~gXXUCbrD~=
ztu!z5cjR|$yL#@*6~z^kS*M)4wBXu;j~kyo@m{yk=TiT7p@TawZ~pZ}Le^AD?Ss@d
z=QYk#^!umnZr~DMb1ZFJioe}Am$g2#!jC<3d>Hv@VG;k7YAr4G>nBg|*FHI~rt8>+
zd=1&D0n-dr0(w_SCp#<ezWUww*g5T!zb1db9_A)3^JU%cg?SfEU+p^BB`Ry7bGbR<
z9{2opcKZ85_sgpCtu$?uklMI6zIn}W8Rl)0-<Av6e|&Q)dN1#N6K}S7bMrquu|{uC
z8K$mRTo-vff!&lf@x5@_7WZqPOFn(6F=>3~l@{oqSo&a1hGCkkeV>tkzohN-tkouU
zEGcVVUCepZ`s;ez(Rq%M-?dx+T#hUIzvapER4>_uJMTH9+|`tcbT%)D@Mq&l-u3)(
zl&b%`o6(zis=oMU&e*ZYL`R4%)3Nr?jCq$gh`sv96EgeBj>Po`?tXHTW}E4CO8520
zAeYGtqt0IsyqKo+eBFwqU0TJu=fmc|tTq>@x}-5fadXhNCy~ra8xD%?^bzX&KW*2O
zjTW`LThk8dPmj-=v$f*5pbGQ$MKytvxuvS<(`!TQe@d*a+1C)xzU=~6dfMG%9aT)5
zj@hn@klA84vt`$$Unl?Wp1#g;hJjT&E60PZKDm{N=fmDuM{ijBZG)(^-kc(hoXz^4
z&Z*ukN3I(FYG>2<|DTabcs<)(H)aO3yT#d|SAa8@7UjTh4KFT9EGaFHPtH$Cg$l8h
wR2IP4>=~(vDXB%puuI8vp;ytv?-I|<O)W;ckGv!`4}2Lq0Dpl&F@u)?0Q8%rApigX

literal 34866
zcmV(#K;*w4iwFP!000001MIzJR2*H`HW)m(1a|@i3-0djjk~)y?!n#N-5r7l3l72E
z-Q69AJn}y8+_}GRbj{3<VRf&ry7tk1wp^#Hx=@Ar@ZkgK2k;MIA3(w04?lc*f4?7q
z{{Dn|e<QuWLEh!i@1I{y9UN@!IcRB3%p7R+&1?*8tPLFv9BhCzHb4_vGizfTURyl_
z3q2Dfds@Bs^6>wt`{BdDU)q6jFmiFAwYAhUvwlCrd>7D(DJsg*($mlrGSJZx%1RPa
z6TbIhV`=7K1P>#m=U~J^C;~M5N=QdfD4}QlUWkF7ke;4{j)CL-KvY^09!9|k=wt-s
zAmo1^fvFKK0}T@mJsTmplD?z0gChkzjIfKX8PLf7f87o}I~yG#9UaF%UjJ-I4yb2h
zrN=>NZ9{GFyCrxS!QUU$f;QF;KpV^d2)+_p>A6t9&y}0*{m{|gff{J!q-SYnsP}u!
z%6dT8_rVw#7}+{d3tJo57@Ap|ytnn<ijnny5Dr2UH#6J+;8I4`CJv??giOqA{{a<U
zZQtkrADzL&z`w5=*gv%U?f05}00;eV+J!K%)U&t$m&!r^1wzTmDu}BZIQ;7r@*k%T
z??<oiWe|QNAO7{nTi`@WDDgnd+b#3lrlcFdJ3BAU808wsd&pLfd5<5;dng(n7?!pC
z*Iupltc?EME9Aexk3b{Ccdh?dw=lm8S=!iGINJVuT<<ny{htD`wm>5Xpq{n8u@UfJ
z5WKyE9?;=0AcTXBgP!F-hyUAvATdmhEG=!`7f0X5(Df^!gQ=N4;rr{i!5Z?J*;3Q9
zGEg(pQPWW~G7<tEt*zg6|6dlyNa(~!!$QMC%|dO$YQSbpr>9S7WBpr9$UwuuMneY!
zLkJ)wg#M3hGyMSw=-C_n0Sf+J2s7h9aU0;Dh2?-owm=($KX8DNtqsuOeY}5_2#SjR
z71FmivIG1TG%)<5GeZU2_lf_3>e)IN+5ZXu_VITg)cae3jg^^!{U3cA8@t%*0qu=|
ze+pdx2KsI3dRBiU5SNnv8&vM^Q9a-vLwtwj1^=nRzY!VOSlRv$;J=&iKSb~LX=7t)
z|2Hzjzpr9u^EaTSm8g>V-{7`}*4BT8O-z7BChtK-z|7`7s{A1}v;1QYW<Y1XKh$h#
z<YZ<oFZc&+X=H8d^oQA5+L~GaVK)B&|4uWO_Id_?mUb{OG&Zt!`a@S%@5U$ZXk`C~
zVtxw@^!`x5d(bfZ!@{i1tn@4m94(FhXx`fT@2t$)+Dh*aMOj<FhY^QAM*dIO%;wLL
z{9B;-cQ)`(=^rcf8~r<s;oVvPz#YuwfHuZve>biFi2iN~Yz5z~*3!u358TMa@(<6l
zeGjt+W^8{b6{u%mZA4>j<lt-rwD@BLKpQJP8cQ=1(?5I(2-I_xcCvB&TY<dedscM#
zV?q9#NcuhIzekb3EAc1jAg%CM%t1j$?houeV;DHV{4+~|zWpmPLH#R#fH?v!|DAH)
z^NWL{z0P|=Hu@I??(m**|DB*rjr0tSfcF2+Xjboe+t|#=@V^p~+3&RXpJetsWB)6y
z{$Hg~{Qp0N`oBP-nAutWk5VX*f1Anw8P?=Qd?_6@%lngy2-C|0ig)JN#i0F|gZE&`
zA$2*biTB|6sI@=~_b>MN|2R>Ciu!+&DDeyM|4poVM}@859p2RHeQExXDJc9A7WoDK
z5exo`3JU*$NdEx|@&A=8{Dw>%&Hg~et!y3t$OZ4?f9F{Ye?>)wgjN5FiOK0XnCk0U
zTL|g@HEQvT{}HtKrG$iC{%BW9>Q6-aZ$P;}nv>=S2rDYe{sGG>$td!R%ls9W5tNk{
z_$wLUml63ZBFAs(>h=eX;|Bn&{%&F4VHq3Xdtx?o`@8(fufQ+z#{ww`3;Y3zDhTrb
z0g4O$G3npf-_S081qETnKQVF9Kh&UL`|fvoB7db~{J;6}Uok~~!S{^)2ZQ2Q5`6cl
zzk(_vX7;9k>dn~LO!ZHO!~YKoY-RhdGkwcHEbv|U9(msb?;lq6E&<5!3mKUJ-?{tW
z>HEEasfi;!BO^b<?<W3-VmV7k`~P_fz5jvK>UZjP`E3h|?^_3vzacLFC}m^B#7OtI
zJ(!qDn;8IY0M>sjqNN4DwVCBR<NTX|@XlJ_siL@*zMiF?^&ixe-_q7pPr&F;yRfvi
zmy!M}>*2R_PyxPEqCZ#5%J!ei|4mH)=)+oB{13nUjR}}pTK>6P`-e!*QQz|2EdCJb
zS-RSr*~`73{WAssS-{TG?2pB@HgXg(vo`#j;{O)>os0e#g%#5O!@~bd_P&k|f79-N
ziQl=(pZfSOsiXBDT<$+oF-QIXne6X|{5$sl4?N(%iNqBD2oJxdipqbB{tbWUw>Pyg
zvet7mvr@3J7BmGi(Em}u{=FYrz#l>K-}v7R-oaAO9w78b7036y>}dV2<NvP_RGEJh
z)IZ4Se+{0IhMtl3ci8=J8zNeJpaJdg)`4dFv~v7{lKi5=3N$8e{}T#}^6qoL_j~`S
z?n3>W#r=!Qp8bW&{*}l5S@BQ$$H?&S@6dj;ruUK@gce3dw$$&r$;s${o9jyHy|Yp2
zf2s0cjF*9qP{zjTH*=;Vq-W)zV}B>l|75)XBB=m9Ym?vnSl`vb$o_vP>HZ5f{x>0J
zq<iPvihA$t_A{%IfgUxpJ`<aP5sRKNo4$emXLuM@>VH(^AOsj0zgxel*gFR^e&3)G
z8d%ym8onP{JG?V!vv(H$Ta8A>#;i<+j0Q|BEbRJvOzf=e^ahOVEJjAmY{rbN^o%tB
zsr7sJM@TOC`&{JrImPe3_^sTi1&yiYY-~9QrNjU%4Ag>5{|y&^*AT0+l%cZ@la0NN
zGo7`Woq?K|fs36zzp8-~z`))KpsHjnqR%Al;w<A}CMjmgFGBCADC}m!&Hdk*xK86e
z&HoKd+y|0mg%*dmdc+~t_0v9YduTqRT$B;-%4QO~6*MOAD$<w+ZlKuz+f3YRh#>6a
zKZgu<@}gm%&RY8=e6>nvV|eAll`<Nd1mRPSvp;pS)!6;DxOUrIW*RLDpKmEWqPj4^
zs!FGWF)ZJO^3an)Da3qsex+9EB3g`uAq#4t+h+N79qi#u$Bq{z_#~g!?WNIs;LyPp
z_`KF}8CGrkb_-Y?vg3U@(`kD=e7kvj@b(S}`)=#~^jJpB?ruLR+wppswzU<<$TL;t
zqLy?d>k|+JvEAYMVxyz=YG2Et`h!Dzz{l(Drsy7mX5HrPc57lOZYIU+Y-H_ZO*@MK
zcc8=*RL4WJ{q=CBgMfDI^`yusZc72}C2eNm^4fCY6{obEw<CY*ia6m18%Z!OZrs&s
zPWU#mZ`HnJ@y?nT@<9=;OynvJ;vDaBhqt50<$D)P?w+{I^58Vj{S=?SKI3tF*f+3k
z?HsCq((V``X1cgsBIxkS=kSNQALT)WCL(j#*Rou88;$onnmRP~)GQNhq*-GMzpC5W
zIJkkahJDqp&1!!;DY`?EKSMGP!{z+))sI9;3<0-3o^;zRWVKSJl<VtM*)V*t_tFpg
z53q`0%U?5wiIEHO)s4^GD%pSz=Ca#Cl06EOo>$#r9iuYsMhV;M0*&N5?f%B<E>^;y
za8eXT5CY}C7Sw<XMIxhoqpV@?GwW*S<ndIq5rcqj{Ln(H)MU2sWkR0&$9L80fKKVO
zHsy1~y&KZ3i=Dj*(C#(s<kQCCxZB6$DnaHY-f43cowe7YyMCDGwJ)eK#qQV@ibZ8-
z2zgVyV7JpDp3&mM=Nl>IkvBH0gGY@)!wp<K_oo@SSs65|xO~ldnNa9%26|d^KQO6y
zCKGNNgS-!h+LN~8@{HVj`ybhLyl*(31s4|v5Bm__p100)UUYOKc5*y!rlM%upLTAX
z=UyfCp)<MMXj}46o1J<%D0k97J{Nr*+v}&bft93`mg}r18Wo4-U$F;*<_VsX^GMSi
z+;5-Yu*WMnrk@sCKt2x;3Lj<`;hhO(>s=5r7GIU3um#g0(!^^HbQ4Qgn)f;`$gXD6
zbd);=Ocx8^xD<%l8OlVti{&w$8C*<3y4;FnphWwbpo#U9lNR9C`h*mley))fZV93n
zv5Jx#ZU8f{lqVg8u|txOhR5zJUV?%PCu(|#Jz=O0%|s*$5vrVxt}d+$ocuIhTIoJb
zK|xi8uv1k*C3}L4W5TOQ1A0?klhlPD7bWh<aF9mRyI8PWn<v06iL;=Bro;v%gZ)Nd
zZO$MS>T+rA`c;EF{7CTrWC5bo+na%RPTpa(cU7S)UjxFi=V!7Q?hf1aN2#-g1c7$k
zB3OCfrf3OyLR^9V(zi(Tgs$;(F4sWX#P28FM0}y&Q3JxuH>k6Z3O=((wx6F{GxTVQ
z)eqOniy$jv*-NH>ZsZ365Z?G!=0}sY4K-FF!YvGJ;sme<Zol^5@zShzStUCN&X<jK
z#8!OW@0-<mIq5Mb=0o1$sQ3LDFcH!u5UHdW(**c3<3@cQgNsiSRPJ(7G0^Bi3Cp9k
zb<^>4gw!ALYu8hhnt()3bTMyLxvA*K1joinb<6^w`H4Z|`EZzxx8~bJkj?6W-H+xE
zEjDyrEF#joqd@XCATMK*f}^PBEFB5z^h(2~dW7S?UVJ#uVE@;>HJu+`HS3MTSvyG1
ztyo=UoQlI^^cWZk%pb^of(xJ^J{Wk^UWXC$ya+yy2)mH_B36N-KlF`q700_DrC%_A
zYQ#H)=o_$N8uZm}OUSHG4gobYJ&$X|o8x^ogxiwwDBkz5N`6Z|K?Rjb&gQ6o+pTi#
z85r`9KQ0MN*taM8g5|%^ESKl*56kJEw|PlV>-DzVuL6rPo@f7X+u#E^MxCZpp3<g{
zy{o<Sk-vg2fPXSO33t<w&C3+zR&t^Fx|srtTFTAKw>DG8$iMO;0;iySmr3K%X6)X>
z(aTM*@@D(mnddIc?X*g7k`&~v^?cz$qL3ymum_#P=rWJ*s;$)ZV9~)Fa2Zdw(F28X
zQ*x@Cm&>ya%i`4)gvMu`KdPu{uB7RVReL7w_#quf;TaXe18Dj(uN4qnLF}p}icG+y
z8KaLIfZRnI2%7c181LBJ<+w7CVtNAA6r4apQpOpemPZS7i7gD^qrB4E3CzOFGFM?1
zc>vwiAIf_`^)NwTCN-0uaDFCHh~S)`xu4gH_ynUXRulGfO`T9-pNN9(mf3*34I$M7
z>3)1{w9y%jK%0%))?oT|-b(4I{Lu#Rxk&XF#pjsAO<PCs0MgSqWu@K9(EVA3B{JGl
z#WO!yG442quR0RY>+T@_$AFZmD(!P~3X|cjt2|f-<}4sLidG05l-gKq&nf*U2EpB3
zNgSR6mN$pCXhHV%tzl17(9;rJkwNtCTHn`sDmQ3)${o`1(0c{wI7C83T4>{}#3t8I
zJd04qWSE4gPSl~+@n@B2kwb>#)#swL2XQHL{q8p$v0~kau_)0j5;mUT-&yBG@!ndg
z7WLB~U&fMdUhj1FOC2f{nwn>D6U>G8)%@Zu29&(#;zf%x!FV@y;d#_4k9DZ44A-|h
zt|q2VGza_IL+7{Bh$`WxEiU{Of!A?!6>+dn)5*`-KY37-2%d98$XQ@OU3Dy!GY>__
zo0gFk93us-uaM`!c;5ywW5Z{0T;&oqg{hlSWq7{hOWM=#Jz%IJQd^3)KI;`;uVYBt
z>hi<cA%!dJAHo+<)yQR`ohUO)?f%kydwv_KXk+(&>qdMF3S3;!?e+XMqxFG#qUX4!
zC9iaz9Z1`bc8;nUBYK~c@HJ}fyflkC31hDFd+?{E=vAJk3Q4hYywd11In+m>Une(w
zm5(6elI>O1g*N^m5kVI2`9VrKO+zkk25-V5P`Om1cNHa>b4T;)Tw<IwpKC44T6?xA
zvkof$CP(46GfAo%S3IJPn3go9W;U{tl8byIu4_tGp&R{W9~;f`m54EiUs}XTq*RbZ
zcxTs6C@4?NskxPHErW}&m&WP2+v~=MHl@jrl6+_rj2|i-t#$5`mVx9@rvB{}?FP&1
zH76SqPmiTunXXojW&FCnbh8WT*@)2rH<Cbi`4gA77L^*cEDc6af0dzQlA@;!<fKJi
zI&anj5jj+jSc_SSo0f)qkMWAmw558zRm<x1T;C{a0*&zveds26Yql;F)w|apwKbBv
zF}NTcD*2u!9Q7*u*E^ZzI|yxrrOBASjHmJ})LF_+L9Gl0j%D$gcMD(FEBT;$<m#qL
zVrxi}4x`@t&+sllkUvb{c&oOEh}ew?%7((Lhn0Muk!5$w@_1_&myTMRC|Mc<PaKkv
z=8iBD<d6u3LbZn)1p{PAvAuRi$;j5{VPDVLpbSyS<;duL)NX1i|MtW8DWBQOTXc%p
znMr!VJ}Lz&FkAUp6Ln`ecNwK$?#Y@iE9QqsqbBtU$YX05$+7SpA``yzW{5Xirhn81
zQ4BR}$H7KjK>i2nPejdpxXjyQyisfQaosz;FO}RvM;#9COHSwMOSwdrH&L5Vk`Z|d
zxq!G=j`5&}jSY9}y&&V$BtzwiIo1>0%tJ8<zMZD{uZPIJxH*ODunI~j8_UlohfuRO
zCH;p)j-LCb+}F&X=GNM#KMzLG2?z~K8kFDq>a-Ljj<JrNA>N;#KbjDDjRna%;T2R)
z!qyw7Sk@SXnciV;a)<(SIS5Lu)ThbLPQD0x+8VHWc7c~)6}uleQu(ype{T<r`zZYw
zeGz=L4bS^Dh<}XJfPHA%J`Yh_IUqj7O@){L4Stt*-bQ^I!Re+O@fN2;_p<_qKDd#B
z62^)7_Bj1@GU^WiPAsoD2vd?$Kvav$*LKKjRA1O3Yx@DEIXw_0Y`>xhj2;}Js4R((
zWHcz^fx}W=t@3RGN9N2{(#=*wKfPX+rVxvsol1C3@rr4AoLXG$OV=&}FXwu#2%5Z9
z4WdhW5($xDov0LWaU~|=;+iK+gG+vyFrPta`$fKUW|uAJthdA;XZV6j4mod<8TM0x
zXZF>K3=l+7NnTczHVA}P{I^lJT1wKrdS)$bH!A5fIAu_EmJC$lPw`5grF)CnMTid-
z@L4=cho6K$h8BbeiiDSkw>lS@3@jPV_0xLd^ttR6-oB2hKHGU*j%{JxeFv}4{dT>s
zIXH2U^(`e$rIZ2H#Oo(VV|(v|okn^QKIvz7q_uLG66g@d(r7qW{=q@dpOeGZgK8CC
z+nA~s0Kz%@95{&vGa=jj)7?+t-nwI_Gtk`E`$k92G*eH}f%x?aMxj^`5Rr16NwevB
zl|oU0c|$&f^-Nh<D=&jQW2+MC>!Rn!n{6oQVuPWH*@@FIC5<uIeWp`rD+EZ-3XPMq
zj0RMm?Y^pwl-b6|rCA)=y3F^@^4680eaC)tT4=*)QeXsnd%Vtq)Q=~$u+Wh*kvf^U
zBal%9cjVk6(AN1#xk`lz!OD5)qNdD2{(9~153c8C8kEx7ya!eC5!`~_o5X`b0cVaQ
z+$S4q+{3{uCEM(R-z1dV9zJf2sU)$Qi0&16^XhaRvr<)UtY0|uDl;Hb2;J;sFQr0S
z^-#Js!DyKEdUQo8ZkU)Pq1U+)^V+AqG2O&udlDi-S1Q;Dit7vYOM#N(>rRU%|AO4e
zI=<*=LjOVYIRtWULg5olr6lsY{4}rkVkr-rk)`rX(DVFmRdNfwbMcd!!6~u0X|p>)
zki*LHCfn%URhrj*+=}W=7hwhZ&J8oY+KfZbF-&ABuFvk8s+Hypjni$nvvOL8{?C@~
z0ce3p)R1FW9iL#1UlYX?U&OCyD_CC67fO!0Ji|L;e&UG$iDR``Q6TttIADC+`ZSYu
z{7Y-I%)hm?Y_M@G8XI4yZd%?$*RjiVF#u0OaUI$~a>>Oki}{cTn?FP`Ot}kqw8X4V
zE&GS8K0TMrA$=hbkD_di#Fk0D2_^h04;^)ORddlskdZZX7CxYvee(rV3wxEqPa%9#
zD~jUE1)T0jV}8ZiUXb`vplsIq(V?~|zfqYW0G9coRFWo<q6(y7%zLTjE^fF|)-uJL
zqH9&D4_g3I_$ii@(o4Zj+y6-H>eC+UK=sMX3timG`N5|szUgNBfb8>nM|YOs9C8^k
zODmH{kEG|Lk{j>M-m$8;mDem|o!L!M(#l2QB69lZc=16{s!2O+<P;49(<yGn)!~;V
z4Ib^%Q5xn#@5hL!y$&aD)Fq#C!y-Tzrkh-_@q?vcMt-1R3Egi0dBo2x>j2ptk~0NE
zG`5>$>ZRNprcw@1{p2jOhoyzX?e+8gH^(n?mv8MHt_+*ewSp$ieDU#Z^+I{@Dy`G{
z7$i{xW8St#S%>iW$_qj1Kf8699reso>XgRG<o1$1;U!2>R4x2a7N4u{qCd!rkO)YL
z-!%^HV~>L&@TLl&X)OoS@Z`SUbS0da7x7Aw<G+@MpmuyFRnC$)ZZ{q*A+HHmL}@1X
z`V|F=2wlAuq)^JPaM_l$Yh;*ZK%umwlAPE)^sJE_w4L?hhRs8n%1<D3VEH8s1ltSe
zIy3dm??dg~705u@R@@9HyJ|ZkblDcQ@#k{8*+K$(M)9?)=;Z2RL2<Q|GMZ+wD=hl3
z58jImyf-~oiYq|~OMSG-!F1T`3vT4wng$S}*_|BFWnH@>7jdZ7y~q1Ow<+jUSd6#q
zIVzZ2X%0GKs0-VU+F8UlYDKQ??knWow|5WSSX1xuc{7DnopvTZo)!&ip0Z(g`WG1M
z5jJZUv(^1V6y?wPd!g%z69~<_yj(Cl2}~5UVMJVd!LDs4hhN$=M_;I18@aS<HOmj<
zmtdRSl{!w+p-*%4%w~<4+<<Q2Q1|Jm3)O-LS5-#%NZ$Q;jgV~l*ey8eK%Z5CYnhs4
zuvTqXp}-NaO>YLwv~y@M_sWDkBWI=(V%_5cfeqCe*<T$A-kyufWLuYum)FnNj_yMB
z!~Fq!+ROs3LSHxe!IXL?yHW^5j}3kmap4%Q)huddPbWt+ey{a{Jy3=(N&FPnBdU8Z
zo$KvS1=(~E#(KCV*zU50A(fsM*(K~->0S_qj|cwAAVOJgmcWkS;i+rTPKO4gBkS4q
z@>1hy^1-(8rqvm@`l9AB2lBIPHY|IWnAbK!M7IA%#Tm+OI(`h?^;6fw0+!CoMOKZ6
zw^xG!ZCQHPU9M_j*+_4(32E<k3Sph^B3B23LEdqerCl2HB~jecGuo$^$$s1><<eEo
z7g<c=BqDKEW&Mv=f+K|lk@guY{oK8NzAQ(uO4N>Qki4<+==ntAeb2$AJ>EYw@O7LN
zJZ@g1!U#IvURgWeT%3=lJwCKaxgKKBS|f$UFnyLd9(v+JN!qTpkSH!66BxU~y9Q&}
zLNKI3MS&r;C@#09XC|MG5;;Ip4384)T_Ci7jl%oLrLORO&p(y<ONlwE`CLdHlW=|b
z)Qhj|*ip(1x>c)@?V&Q-@(f#^ua$|AAU#D`oLp(p0n3_-@5%SP29+!}rq|Del+WLN
zZ(`*ECF0o9+VV_1tKy<37+WD6=I-Z}B&}=N<NB5Dee!KL=p+(sD{h-@0`2LMi!jz`
zi5Rz`Fp^~<<yeLn6n#Wr8K9YI68*<a<4PX%N45(1U{@p^u{=uQgFcV5tQ=eeh&Apo
z*&!kj-9DsEUKHaKlZevW?h^+bbipL)pG@lH(^!LVe3Um(6*`LU)@=GB>~G-qWjG*s
zNm(<W4VXQfd*iA6ILO~w_5=(>D!dA%$zMG91qCAy|LX^(+UGW)G!<L}`bJCRREE!z
zl1=Rifq-kSARC<Sw~y!%lki$(H)3CB^*@^)XO;)I00w9GblJGQ+u}K}+4l~~Q)<C)
z%lU|<oYz}pEsFZ(_+={Ktl_?My6zo~`>DARvg*14=fhZm4*6f+fR0|aCJ5-OtmIAm
zwB9$uRn~lUJK}X|b2GIWUN46?Z!c4q$GgI-H^o$G4l{`u7F=3yX3Pl?Lp*`x;DeGE
zFzG>;iP@+$aEGX02)q~5jGhD|8@+Ygd0leBh%4_?^8&wG472djSD7Fx->1!}lEs|X
zi?rif=Gv*qhs1wdMu{wjiprtj^_?#sVp?udooev>pi)F$9hh2Lk4W3~I4i+?TdqkX
z{qzmC#_0ewzFUC;Ml<!B2(s|S5DP2}_!{mt`>gHtZCGsp!nUyMCE*K1(9g1OyW#dU
zhwGc$coC0DGY_-f{Od8u^US(6B1<3^hY_j8h@(teF|I^2G}Is^ir?rYjze7luw5-y
zO^fstEy<%gR>}Z7;PhHL!9~De=FkFlN6Oq>D8UZvuv>8M!w7*4>*I)RnXV~Wy!HKN
zX&5f(HpwBYpJ8NV|6_!HZ1CFT*uoHDzxl&$IbLQ}Ycw~3uw5`h#-6sK%5rlygr@bO
z;V&}Tw8wy4nYmCm``dIS=2UF?OY3Mg<x^MGb2*fNn3eF{a*a~A(NJK$Zb$%HC1hV^
zJZDZlUpPxqsqC7s7RBNI_Ol{SnDmRswNPm(u4q;EI9Z>5LKIq@WO*ks1{Ra6mWQO$
zn3{b0^*{mTHmI>&WfguY`{gwIho8sYjhl62`tmA*9lWi%0}lWZ714wlX`jO)a7>=Z
z;$w3W$Om{~ZWHE*aV<%C{>(8y$X#SAN5MCN5MxcK*XI!%R&l2Bk^Tr3jFzUA=PmSa
zM~;RNi4v=R)+ne|&om#I4k_|EUa(hXMn`2DMt#f=imf?auBYRJ-HRz2`(_8IgE&Tf
zW&tM-0?qw7=ot#(DPOl*!3B=&jfLr$Wx&=tRw02J9lg~1Y4vyXmtu)nf(4({uQ-PQ
zWGnZ>IyQLJn(<K_szxz93DLr9oc;LvqGkP7{+6_Y*d6Q<9Nb&^RWdTPnWqh$A6!qU
zwXGw0S~~)va~k$3W(zl<49e0qdiCIAXIUAe#)oc;;`Il;2>qAici}L9ZHqv1!+)Oo
z@ET~^%GF5MX>16Wb}1^-E2dZHrk<9hS7l}2!{z!U@&<&80>~Px&{WHk3oe-Bi__N$
zq>#6T&;CeV{@U6yJ=AbAWC0hQZw>#00L;SQ(hsF{dIO@UHF*`usz^ouSgyNBP_Lg!
zQ-!}v{-lCcc52W=UyGyB0?=q&?>+ZQwjSW<$x`M^L{rqGXnyVEK`=xEs7d|#m0squ
z3O2(MPebmA4z-q;GNxfrjZFluca=vgJyY0`Xhx<+*na}`JX`GGcqYnsSgkqb5HQ2`
zz)_zVExTr=<;Y!N7;%?-vrz|G?{`=%ejyu1Ep704=X-JsRQKh84?m;;EeI}Q8tY;h
z0UleSfK>!6KT20Fx|?=Ve=wmMiT7b+*wZxkVN(-pL?4nl$8a=TZS}p1x3J99r4oZL
zH}R&P>C2Yxo4m<&a*Kwk2!d%=tne(WlKPnwA_*^&n#tROe$M>XHB2jcb_nhpQGC&*
zybDLQlrJGcZFdki{CJv#(b4{VI@TCOMy1xa&Db7SFL{TfSn^mEz{APTt{C%ncQAOd
z0mOsTPOn1fcrDdX-^H2}bglBo0ois7;7y+!{&0D7qOx2y8&#*{Ju|yDdMf&blj<5E
z2m+H*y^l|-Q<`}f+iagUYWRA3e{Fo#?i^wrlcfRu3pnwrL3|BvZ`Rxs{m}}yl@|I)
z?rcB5B{L{1Q`1Sd@bZ9xzZ?}Ui_?5mL|lo<7Qvh^^xQO+bvc2eUp8s5{&Oiw_5PB@
z%%@Z_H7UdoIjFn`MYM)3G-qo=yUlQp#lyA+`P*EWwk3MOqIQ)-Qo<{!=CG|n%A|m}
zN7}iXPZUkK$L2@)3Yc7j0kr-tYHamrS`bPo52eTvc@i5fxmwxs>bQqyPf}Vd=oYYx
z5-T{TPI#&-{3nTEWi+u6T{VyW;x(%@v>I-!2Ru!;5eJnvns*vMj+SXU`uiN>smK~R
zHfIQ4wzK+myd4X(>~8~S@LtP#t}N@hc-Yzk&&ui&hMWex2je+W&s<Pjh4bSXF#;^o
zC)7kP#k^i8y?I)u_)Ocbn}!QyS;R*|XAH2-*s>~&igVZ}1t&Bxr)1exsN7dh=bS1q
zoTE%V`+AA;Hc^Y3s>y+lKjHl;4f?^wtT{5X-ug^zw7uLpQ(#U-?H-pn)|Gjb>}aX*
zbS`RWb}pkXw=URR)!;vAF0E1HX%-l%S#(yh>gm3u-y|&|wlM6}CwlD~Bq*affMiuE
z&9C9V*1J`;<G{4#3{sWTqwRtE_<BO*2j^h)y5-&a9OXlYyT%5*X-RLNtvz2pRq+M|
zfKKJbG0yC_dDS*T60cEUw)wl7`P?_AaWpB<WYD@K+jY>IG_8f-9Hq(dccC94K3vs%
z#SO}Q3m_&(A5^y3=vk^~rUIAab}gB*$Cl<dCm!C~d6*c3xp-~4FXz-su&Y7F_sb|o
zJUD6_l)hDLzpCX@Xl`UN6p)|xFAG$Uz#5?<uQ78ARVqD{GG6}V#V2pH7fPw2G+i&e
zm`igA7qzB-_Y#+vS4Jw$MY{*1nFc>VDO8h41oMf+z*GWlm_+8S6Y(|JzWJo?{xN9{
zL3Z)rX6>ewKs_7m$wY#+@}`d|8D<7sGPsN15+E6xY0MSBIxGE{>%b^%*t`(O-&hi_
z$yEE~2u7vsjVh37eR<(^U{dAvuzTHg-sswleKq{NBcnU2D7v@Gyc-S(PPk@=LJ@iq
z>7sWP=T0=Cm0@Y5y=$Sx5qJ<*zb+WBS{l4*c?Pwvw7|2P5$Wd5&&VjhZsc8sc}PR<
zd})|c_%I@&DM%xex?<Xls}BcfJ~ZBwG{`w@cRz>W*e`%@Whx3Dja<=XZmFprRnJd6
z8ka7a@Wlr4;o5TIOs9Hz*j|TsTqmozRSYOGJMpo?vl;oZxKjCo9=r&kQ8scQw7XPG
zL-YK)spUffT1^v_DOMW^V<xIRybnRo8k_ke8|eAv(&#dHEuerEk)7t}uJWP6#6T(x
zGel5GnF{3ap+^gvE*g#eq2XwEuh0EnZCHz@TMY*nN6U%(X2uq)W7rJcyqBX`2ykT6
z(lDe)nF~pVj9@L6%sQHkTL%BU?bGl%H&wRCN-Nv!j#;~ev}>%TmMf_{MT>y|>m{_c
zd?4cehKBV4%W1`)sLea0pc3o2RnbxoZE1PA!4tb$JzEhH($Qfbc*01$dsxP+b=Fe6
zoGD3Pq)ejRsV7&tK7*O5;GXN+X!d$=r$A#*_iXdwX?y!pWvEG4q~eTwJAD$~2#aJ%
z6pIL5+EN_}(Ps;<NfjsZ`f|ss>Q$^ahvBiT2;fQVc5bYrIQ_ol>K_FO-$^ipSf5Xt
z>afZBcJKV6%?kUia+R{^RO+(2-)2CSC`Q^Gu+=EFxJep$5L<TU-F9VKrgyZZ$Utkk
z;ue!p3lgE?2yQbK{dqQ(8C50ABNisK<%{^QE{)42FX%ciyf!dLUQEe?Lhat(WndJD
zNIEzS6cvwWSYrf|HAp}hpt`E+6wR&v&3gQ3r;C?)(PM68x%uuua_Rwoh2S|(Hce|@
zD?ZNC`MGa&pfD_YMB{qqtswbKuKn?#A7kz1^05`?2DGAS0zf6~F!#|-0T4Z<s`D%}
zr+`~76iJ<#<s0}j3sHM@Xcu?~lAz<Cmgp)e?SZU%y0OcErkfVV?OZyjcWv(LR8I0a
z5f`@LpdrVm^JPNjF~bjy2L(aBKhA>;Z*yo*^YDYsjdd26Ym^k$m)z|zW{yt%xkO>v
zg#K96{1_=j7dO8#aU7mNCRH=<pZx5)m^lfAdD(_B2a7|j&$q#AkK3<J!*`XW<`y3v
z>JrA8l_Q-%Ho$DNM@vw%%8k-c(8^<NQK&l1pgveXmFOU%ihBeO$y6Ro$i~*`gP-U5
zi3ml6GV6s-*&EZK*1nM7A=2-lA~UHg+Gt6k_QsFy2lQX3s7cljFN1>OW7n~<@BB!|
zrqI2sJfcv6WZCjPAL(MNVXfLT5I0lo#yp%ih4Vj+g?uPXCXR$dCNuk0AkttZL25!f
zbSa_&t_kamtzE(;Ay)5{&QkDBwo{9KYHxYYT`Aim7id-btL6p1<`iYi6vF*rXM;L>
zz*+!&lFax}=FzYLgZW8}ycjtiv~(%6BnEGLpC?7)8}=O_jbN6~iRp{Y*<xu%VWxXa
zz;S{^gJ(N=-(oC|Om`4{iK^%*7z`Z(#*~9lTf7DNgcsS#^)38Z-&~A_3K!*Yug>#H
z>Rs_iE4i|ATS>g=Efk_VRKejvY1Xt>6tf~LCR9wQHIb_jc-V&B7U$W|X5W=f0~<Am
zn{H5LX-6l^YMxL$`c2orGDA6)a2l*%7O1AN#PL`&GO`mialk=9DiKH?6bB1JHkUIw
z6$){#NFL!$kSq45D9O!PFr$k$%N<N{f1?pr{8@i;;*cFQfo7*gIddFD@VNAadPy_s
z05`*8(5a*&R@D+EV=>j*>8ll+4c?J?q6pUt^r^tmV|aSo9OE8T9BEET{aq(afS+BW
zubf>WRGEg26B^7CS5Ght<!4HrI{C{5W(c}a-=e{#09DQtu?>&UqO&<72lb!ijtOa&
z&^VF4r=+^OyLdgOcM4`Z8b(%T*J@k*R0$)g`k;CjQJBSLZEEy{;j1?wS1zX@!A)@m
z3%+fCmf?{_gWF29h@KaT2FF*1orn`m4y~k(8#DARu~Z5XwC$ZO5+fSOiN}d#6wk|1
zw2E2}5&pp8kwPR^phq5JWN<(@7E!_D1Dfx1tB8fZd?qhHEG=|}S#Z-~mB6K=LO20j
zBXN8en1yleiI+?kG*K+o!Up82+vSIDir|+sF)e;%!(yppl``2c_J>i=iXnn-o@^EU
zo@yX0;k43?%dbAfmM6OxAkeUiYxzC*p0%Kq2F0h`w&Q~>RIj+}Da*-ZwEp1`rn*gZ
z-RBl#XQx9>w7UN7Wrt6Du+TQQNnV8FG{0Q-X~j}fak?aZ7JV#43F3=HHrbpJ*SN_D
zJ7s3MmjZK%AZwkH)CTQp+(3`C=u}8G$S5(X!rTalF>*FVbNgyY;mw8Hc5yq}5-pMn
zE0$dpLy1EIS1`@5VJ6aqb@a=P5FV+o(^VxD2uM&xWNFHTl}x46Hw#Q(4zYhV#{vQ@
z+dlE5hBDKW4^+%U0dC+!7*Wqtc2n+U*d-j=lqB+?OtixNK((-hDHMl$EB%ed=QCr7
zC@c#E<d}5f@KLbY2TTKMdYKsZ7^Ki@Z<4@-Bf)=;$Y1TN3U>Uo(n0B$aBZR45_s2a
zECJw$h?nJ{Po6cXz&AtLQu=YOD2F?v2c3oJ>uu*zm@12rX8xm`XgYq>M9d<0e;sne
zBkr%c-;A``9b=SIRm=;C<|m)xD{k0=Jj)b0t-?@BC^mZ;1hAwZoT)#{l=l&YJ(jAW
zoa&-?Pqj5{s|PjChDOu*`u4`u3el$IIx{E`EwSWxB`;!jyA>NP6=7=1lFs1Mmw_dd
z&B#;%(GZ(@m^lsNXLh9ma7&xiQ-A&%yrxNr9z%FQeI^(iNNq}_@3CGc1>Yg=H5spi
z?3Kh0B{nfF7{V$t$ww(}F13SmwA=?$q(CP4ga$P=a2*9c?Yuody<Kvep4}L7U>#FI
zL2v;$8^1Zd4Z41G9P+W{z}Q=VCj3@=Y?2?BI=zMdE16;Gg)UtGKtqNN?%E9DBV$IV
z{bY#$HV6>~9$p^R>D6cP{N5XlyK+gH8R(|H9^r*Rp}WO$=rXsMaWoSOCS_F3T7fEd
zvyX*wCPrjZU}=qNWDurwwvN)!zCDLu?|_vV>-Ll4Qj;Rq>`U7Rlyaa<5P(_AsluPX
zT#<R@gzWb!m#CLT55Xrvr-Cl+PFg(_c}}O}vL}hw6s(w?-0`gv%TIjgyK$n^?4>WW
zBqfo(_p)MKQIUrA;^Uv)iiHy<EE+_evkHFM5=#b;k*TFw*bMI0mnhvcC0~E*0mXJg
z%k9BBdl`1NQ8D3kWeHq&H!CihHIP}bj*2_gw8^>ZJm82WkcpH*Pl6a`T?>18Im|$m
z%W<HWx@lYV*1|i#xV#?NZZ~VOnB5+JseP@Yg$X`IEf}dfTLXaDlj!7G<T)z)1?A_f
zq|h?&BoqKLSN9u_vRLxK27jzlG_LNx;jFrxLFQ+3!Ne<q;`oeXVsMDm4e)r{yM<l{
zneT0{kGgzWPA8}9_o;%d<lXN)u(P%(1T)FXIHJk%<;g*Yx(P3c9;=UM@icqvHhaE1
zb1ch>xs$Q1`i|)va1(<Y=s#Fk_eFL#*;bu&4fiYJ&i!#gIt^kZ^Jft^nJVwl=$eA)
zqw2vunK`I&j(Q)1d#t!{Z#GY=6B+TdK>dElx7a9G@NF7xF8}FETN=@c`!ET|)RmKA
zrZ?sbYlu`U$>iYymXMNfR75_+wU3bQSmb#H^zf;pm@ACw_S4AYDrB>9G(zDlm&MsQ
zr6iCar>Y09FVjsXz8j*aYt7^pYE$-iwb#`17|wYlBWRk8RSo1(A%Y28hAv)jM`0^5
z_O{NKX1XWGuy_{4okV3-n^<KTVAE;ZAJWdGN+L5~;;%4?{y?!*5XgON^6#Pa+DBA@
z4_H+lQ+F!;L01~<QJ?$3aKaQ;&MNkkz8T!8*cr7(NG~v3m0{w#;B?_ia%XowNMFIx
z-+Yl}j*C)80n&&Wl&9f<B%dn7^2K%O6YN8dC^c1rL~~Om5qw7YxJP=sS{sUGk>Dnl
z@Qtyf3|64lp_1*fE_Vs5j4V?#$|T$VQr^iNk0YV&cuBEoB5b}(C|2>KoQsIr9rb||
zXFaP=Qux3T{Y=Zkd`5BJQ9V@ZY46+a@jjtT<BPwDe9>82%TPYa=<Z<OMD7hZ<1r1R
zerJGYD_-`AI&8six<Uj)Z7|Rv9&&!L>zes6AY6mDb35(Eb!gi+B3&%uGqU}-0W$13
z+!&B(j>eHS{qv(aE!%V)<aDrB5A!j#K?Xg>7NGBhKnp5{B3VOO^egv`I<O}63Q4V`
zKU~g{Vm`8dZ(6W%7duEIG--fp!nT~C%(`zYN#KxiIpEQ9x$O*zlo5yX%5<MPWI9zM
z<MhapdO=3kTF%0vd=_2v8YWX+mmt>VNGi6lD6OJkSzM_FmSs(`nQx4lV@lJJxIljk
zoMNPDz>Ri6CamQ8Yy7^ua$)ZGbg=HuLYS{Z6YR2kI~neeTh~8$$Yww1+G^-i%7ntQ
z9FNo`B|@q6G5FPM9vB{pGR#?~<rTN8bI4g+W^BrH(>UgvA$XC_(@;xvn+ECA(LiD#
zO=tFKUkP6NZG}%BOA=*$5-d)%Pck=AR8EozqU;=L{&<M)5=h%NIXD~EWk2a@?oS9|
zaDzW9t3OK<<o9c!@ZGE$M;LRRkDxU1hfv57#4>>Sg?eq%2jO+^%_;EQoWuLH{4BSQ
zBW^JgfrH8?G9eGlXtUFhEor!94Ix!`%a%YXpHPE}=!14Q_u@F#f^L|C2CRd+>T!RY
zL8~4uRpk^gqLGmw(|m7DzrHqWBebr;N8D5CgB@Om=>CFz&jHlWcQb4w@$C7=lZ~x}
zwc0DMMJA?;A-i3q@!El5StKuuRcbC56*n1{iPm~VVLJYay|-v80&^|>D8yAps~<4b
z?h~7`4=YKva<`p#ui0(OmM6HbPQ)ozRXJdOpk0%WEw5lYC;!<D_n6IiK32Sb%grXs
zs#qFW!BRvgi`V9diW;+29_@;93hIeI7<!og7=TI2CaTPA=_wzZfcDE2%z<>_wo1I3
z&N-G)*$6cizXOv#Ad|$_hEa2_z)&M95Mc$$F{?fb$#9wmJC|EIBC6}@z)azcbg4x}
znzYXtxk~vOl*OGBZg&C*NGU3+Y-dm6t)M>IytcfsHqe1=^8T{R<rg2`tI#-16K<et
zAx)~knvlcv`4>Io!>8qg1x61)QcIQ&j08dQ9oS`4tB36UUV}{eZu^qdy=S;I5ozR%
z?ouZ|YDi{FZfEhA4f27w>#Lxvv)AX-vAC@@nvuPtxQ5s78i{R0ar=7CS?JOD<wL$4
z*}KbOs7cqdT@=DJW<uX8p)L&yUN&aG;}2`KvBs?H`CL^HyWy~@?3rU9n!78}SRf`S
z&kpWxXkNwzU4dODE?uq)@(_d<J@7-+smLzD)Q7i`>YAtpU{|3&)ZH;Ir{Ac1o$c#}
zMand$8N{%$-CA?ECb$a`3c=~phF%G|7go}+%9TddKpOACik+2~A*)ez^wYguUTCwA
zEi5=@Y3Q?3_I;>?a)_PYt9fh*X5(hPRF^!{J(9x_2}sloUG}XrR>b~k_0=UCpJ=S9
zzB$pVsNm6DZp00VQ&D_Q+$?^kEMZ;1)ZW^C4*0W<D-d5y{1{Va0R?hSpYeWC%ZBBn
z+vv<v0x<K6-eE<wH44Leo-zm~FM^UtA!I1h7!u1PGZQy<Uk`iMkuq*&8D=r~XTB3E
zZa@kTOja}5SU%I&=rgt0OopQ%%Yq!sEv*1u$Rjn216Mbq({-j)p`WR7%)w{T<Roc#
z&;_$tUmqpj=j9&@Uj)Ycg9HC1z=F_@$4v<%H>(>V>i&KhdqM<`-o%nmVy8*>EOcFi
ziUpE=q&apLtxKMl*LCkGutaUcPN8lYGgOykZZ;ROxj!CIp#;rdmTMB0CuiaJ_0_I+
znjzPx<1k<27T`EY5ob6^!u)H1hEB}`_~ttLlCkE?x5~PvepTXf5TGvx0+c3NWVXPb
zGV@3RwVFlXkxBkc&DX_0+aU=~<sU7G5rkSRdF2#3VAX4h8ZTNflE}lSZ~uu~EeUwK
z&0(0i(WaRE5kmta4cu*8S=i(yDU2a7-nW=fzk-lngF>o;4y-bnuMqFmK~KO@%R{qK
zlz<|BatZUWOt@L#!V2=4MQ^jfseuqFBC-t}0U6@j(CEnV42QW$uJYj^{OhOvUc@S|
z$D3a2KA=U@W<5@ZfNXYgC(1N(hJD2};X<rIPJ|reFHYr?s=7~UcwuMf)IS!oKf9!d
z=0_dNxoTD=yB5=y{-W=LW1pel0|*CjuybhtoV8SEAcuCseqn-Z81>S%=0=DAM0%Ni
z*C-hijh}cBqy14>x7wTp<krwgSl9KcpoHj#jywCTO^N_%kb6>+3ge7kG|fd?aW(}F
zd!UD0+Xw4Kv{ERRcdc^!T2b0OPc@2(yt3`fnTX(-TSU#ro$^(6?l?!`tja^qH?%Az
zG@U&TeT8ui--|PRt4OnYDcxUe#8hWlP-DeH+&vuM=ykv7P#v+~<(oiL8txV8lzMS-
zaq+6-Up<*6d24xK7cRjUTTUCjHi2$bgtvHjc-jKv4Nf#sziR{t$b?>5oENwfMwDb_
zW5wy#aB*=cgP!k>?s)vL5yJ=)nEB3ye^w7br(@@46CMIzrAiNG0g>YV6bd@1Dl8H^
zxa5QQm7lj7mu31Qa35#v!*aA|>42<(q)JhWn?-jeW9S`78bH1r!4(CUi=?veeyk7}
z&|A}kgky3_9bb+r@A>t+wR8PcToTXsK&^eQzHvRIC(Y{oY#4%Hn4d~!VVh-R?^b(j
zTY15rY7_5sMn53(aPMUI(}`kM02`UKXd=?fnwPS3uO|v$R&03Nn`+T)9UJ>l*kK=Y
zlkHJ&>eIhIlRx*!qvh?1UozMudo`l3H5;KdfY;wxW(Z)JOH1>$!O2GXr#A;zZwZsb
zXM@g;nZyqfu2QOMA%ccXiE_GY^b{Jj=7i3GzF5kZq+=MIQfdO82yz1v+1X6C#0^{Q
zuP+Om?g9Z@kRzioGpgwOJaESAcC3z3V2s6ZC=)FzD)N0++$f@`MF=uXx6)%Strh4V
zH0E|RPDi$}-(dU8M|;)j`WJ<|;G`Sb+w&4_0-mC1&&W-><2E!MlCnTol#bY=Za>O3
zDHbg4I%}Qh;(w!)HU?dt4e_QajCG3<f&tZxu-5WO7Pu7f5gL4RIK8#1_utD+)ZOa#
z1G*_M78jL}o=5ksBct+dY)hU{*FSrAct4CBWo1T<xZrSCkOdd><JNF~R5LI^Ob0u^
z2Alk{!$mM`1|L6ATr|joSYAU>hrnKfydZr;($NkW9V6Q-s$CL$xtiEhfOVm&zEVO&
zRk>jkqCqWJ%4OcoJniumrMAh6&==Y6?2e4yVgo|8(pDAp>F!vWU6$T7=sUsa@sz1k
z<^l7-!3;1-)zHMMM&ok13M%ThCaHLqPKewbpC94{v=)d1GtEOrN_c*tAr%LPs`PWd
z+}3j`A2z&%tt5%cGRqbL1rDr8q!wIlrbN?62*gYF=)c@t@V2|YEU{LNulzc#2cL$I
z!0eWeSdM<Y>+pVhyo-zLo}zM*40GX>zY$^W)7E8@?>ly*@*{S~fl;^8hB;5p{BBQ5
z+mbdt$<bg%m~;UWa@G*}{J4rePP^X4JUxL5?lZj+T2zWaC4|3H1TH*c?*{*@^R=u1
zVC*$$GFCFa!YH?n+C;=!vMC69qgs%l?IMEGCA;=~dlc32{JO#j5I@iPY$rR5wp0jO
z+P0L|1UsRUMP{Ss#qqE=w)W$GS3Q^0se_+!{q+{apu=kBRV38!$V&`+6&^apD84Y7
zWdYSRt%iwWzs%-A5q&Mat$F&oLUJ6wC~g+V<-(|N_ipL@A6L@>3&%Iuv!SnUD=#w~
z^OcEKmlJKyFwEkGJr#i;LZ{{VMZ|)=`sxRE%-d(S9w5s5xD3N%$^%5oyXQ3P^hK1F
z3$sJM*p$<%TnQj__|Gtvek8T{0mwpXtygqjC<4XOqODW8x)f{opV193*p{=vQocUO
zz8x5X$05P>Z0XpWF;~{<G2hHiv>+a<ab5Eq<uWwHDc2TA$5(Y}PCY|x54Kkj2l@`k
z$jUgtq-E&VVbAv{qLPnjjvyAjR|Le#0Z%B51KgX>$&dT@(QQ`3caxIJ9v=3eB~>Hv
z@A$M3rRZPN>grlq!Q}}p@Obtz)7F~2pv!zDq+b|Ibl$^zF6Iy8jqI+qvJz?F{P4^V
z4xR@T<tayuZ1oVAS~zT0Uxo@*)J_MX6q>{q&5@(2TheloJ0mvb*!=#Yo#IM$17j7s
z?3jN1HIvF+-ce<ppXN+*zyX$WCcQDDhW#|x6J6?NMrrj_Etv8uybgA*AMRA=HO&hW
zNzpvZ<M_)o3T~++H+TiHpwMgA$2nKsGaQuP0Hfl5o>lP#I<LQM)@Y&-ttU3%{h%wa
z^>tjel5lv6OYR<<UG}qNOx_kT`?n=kQ1tsi6muaPm+ePqvU5m2PL*gie7hN0h&<Vt
zomr?nAwu9g%K!j(S2b>DBby&k0i^};gHVrm60QUI_|wBOCwfE7Y@0)BFN?vmF&G9k
zy_~2t0@f|;{)4ZfV@{SI8!KU*tv_y$Gw@IZ$ZWoR)5KF4e~XYainY)z-PRd``+y`W
zsCDXgY9h5@o}LG9TO40_mFD$$w11KoH+Pvu+tFsfU|Y4jwxo3i&I?dWk0`$twyGs5
zvnCR*z;@*amBQXZZsK)Hb9dVVco#Jn(HP1VXOb#rrPk`eZBm-kong-v5g<gJvzv8)
z!MUd^XT_{0Uxq97%Lyke+MY3yHQO@5r#%9F-SdHGh@I+PVhwH5y?80Zu<>Xw$(9zq
zfhp3G;dfh+Q3g7`X&l2mIrTlv>9irdMLRjwPOiP)hejdJ<|Wg#-_H{4^l#Z+UiOI<
z+UV$fbP<%T@_slu&(F|CG(S}01<%oh=8gFoPD4^q7X!Bc&>&~yNm!sON;8E~fk=Kj
zQX-r2N{WU-gPK%0#F5&QI)I%~I%sq|i(c$Fq^j>rzc6ByxA_1*K*7I^ubTd`KwCZH
zuvCCX*&>6ZMcp#fba!w#2nzM?nL0AfMndSLusC$zhQ59;{=EM8>(oJ<de~miyFFG~
zbgD9c*Vn?rrWJQf2-LPp4FdH*b@R}5edsn>WBiqw`Kw0y-iG~<*#{JJV^ZaY&j@Gi
zMllDYyw1!{9>C|Pu(OT@FbxZ0f2QK^i50p;%(nr7-2TEAblk3j&(XV?9V3pnxCs(T
z@%oO;y#P-uLZfL^V~6%1<I6rUHzUKnLx*Zv9rYAYh^q3^G_}*^<4Lgz{De>BTq6Oe
zN5>CKDY0t)=$}=agTH;xAy1N!JMx<}yS%+^7=7OT*pjogh*46P;*@AEp6)Ajgh?X!
z;DnrHFjz?$nufzq>+r?<bojuqKcTc9PK-XWtKL}I{;0HzY0}|l>q`aq+Z7g0P$hmA
z3b~cZ`H+M=g*2u+9$j4b+v|}HucS_R!hkpQN{PFhmxN@V%8<T|`D~LQ>S3QI2M&D%
z8@JdANCEfN)dAX;$aNm9NJOTVow_P3b{B*3HgwsfS2ndM=*#nWumaDQnL}xU>l+o`
zAJ3egb?O&7OA2`r@_Jn{7I8V}b8|#Y<S;FmE7#pm$h2>g4Xeu&g&Szl^y+7e^RC~T
zru_^F@f|O<jj5+)_5>mn*;VV<>zhjhgONe<?hX%erGuu4dA4U_JBpoD(K7lP=QSH-
z!h1t*Rug6=!pB9^-}efWNfC%L4OVb;=EBe;q<ez<vs-bHic0nHswZ(PoR!;)2l3)M
zk}PWxlk^SS0*(=%K0q5~k;zVsT|Nf&vYu$`PwX0x@0RoRey?ir+<3hQ2bI?k)50^w
z9pZv?9&Ro9m8`MN^}^yt^Z-KZ^>li3mZjsdhBn=ovuGlRs0{PC%E>>Cc)M6c`+072
zZ47U@Z9C=ocEQEomM3A_@|&*W9;~*sr_>s_wwM=fko{dO*+7bgwG8e!lGAiGgpxC~
zpj#?eG)61|uTKr4MJ_$i#?)Sc4N?mNhxicl>y~BV_Hgf7hxg0oRag}WyBjld&|si$
zB3~k-b~V$Ht#T2?p!&0pj;D3SUO3DI_GU4v2F@zgk6<ry#(g@!PvyPsS>mr)>3JYh
z0f7ANDpzC7XlO^|^$H%NRjd~$u0brk3FLrpD>Xx7C1#qNiD~!?iF*gnOH)??lTBoF
z4j8E3KmZl=&^K&{gLLwFLV>;EAGR$-8gGm}#B*rah2T7WAQD^p$Pl3Zir?I`yyTe%
zb<Q_7Z(sq#?x1l5pYy)`Y<JY=K`U$B=CYKtJM>CbuE3BxBNaW>1{R^V<gbRR+#ed0
zWamT13oF!baL1L{V8pJ`hR(NbV`eXU7LH+O0*-UY#Hf4IYX^A|dwyWb>YmOJ`LC*f
z1m7no0SW?D+$k#W56sdrVripzJGSEo`Xo%sO9Wsk84?MNz*nHBt2tyZ-(J8uinbv!
zY_<@a(LNZh6)2|Ro=sGS?TWwNYMVcpoKqvEBrGYA!{}J5*ZicNj=E1w;FIN*swC~u
z!LD;3>=NPl0tl8IqAs^{E6ALs%4W$^_ojZ3^aACK`WmCuw_nTP`b+r)^f9P2+oW-H
z%Q;KMFo29b)C4DCP<%mH`Nnx|riiS>QTy6^!F3}{R`x@ifc$2<CSFV!$Bp&F0~S0q
z$^O(1O424R#@ciLr=GXWUQzH;2_cXaPb=hJ2*r<@S}9T(ZPD79gs+X+n=ESy+JscW
z2c)EBC+C5m`yKW&VFwX2`7Tj4^W+TV-9p)g$K+ZlwGB{=d-bnKyhA17B5M+J+mV4|
zAi^;=c83(b51E_S85;%LvPfYP4$N{xJPlI0xlR)EK16KtK-Q_e4o}bw;-KY(RlSD7
za+(lPh_C#1;eK=m;41;!vdF@p7QZV)?8wAF7G=&$U^LHb<q;U*16^Go!DCq!y=gK5
z2MnKW!T0pfQQc*zhkt!?Yw-ZJFze)Z#U<h0tWLd{E-lklnaUd#V^EWPJ%uJAD>FL!
zIV9#;ALGWR=~U@%KFWbK7WZ65#<y?nAT->yr5<#YJ9&qGqw{g3%R%L(etV6(*Mjex
zuFbbRwFIWTNn-*?HqzG_`aoB*>sF`Q`>bzaSsg)Q*Wh7t_$uiFzYWe}vUD;sIs@1?
zIrQVnOrxiY&+I}_{l_lvJv0K}H8+?~kR}xc<~Z|#&y49&#_NoOiT@1;%k-*upaqC*
zv}Yu$N6u(8h#zEmz7LE?iYwaH%fu(K%KIM>@YVF#<Z_4d#UzE5_t~vtQ_X-c4}l0E
zSsRI-V#+cn$?lh-{mJp3Vx1`JS9*^`@1`TmmB|NmlBfSB9RZyu{*8aATCLbP{>v5a
zi>$03b%B91c0Q6XT!1!rov04Bi&3@NF6rdh3-r28KRBs<zL1vYaf0M%`+>M4%bHnc
z)U%pQ)`!p<crKWjc-v|l8k5V+bg$_L%uT7mte;dZOcG@ysR2N&={}B__qkE-t(vG0
zUsjQQIK`GeauXUr>SZ3ee4I|Ouq_oA$P{Jw@(OJ<57;kAMJ(q>eiD;zB&5oh=UUFI
zjY)}JJBqnv*Nz3f-5);`*jg|ARl-EUBX|8+lrjtKknA;SLLJzrZp7p##UBAkhI7LM
z2z6XUUP8oQhc`Zrb7hrX795A$l2rX_5kyWiQp~%IOi2Rm;2C75MOo5(+-I7O)AyMM
zAH?>P7iC?!+Yq?C1$Uz9PC9%VFxBb@a~3hgRLg-y3%-)suj-fmHWqgyQ?(FPc|l%7
zzI`c}6Mm&c|9CC*3wAIIluBLa&{toJuBFbbna+~0QCf!2k?l(EG*DYIi+?X%ld#tx
z#zKCpP0S%OH=a)9@`?u6+d%F4cBJYYysy%P;eMc5{ZtWpR<TAMYT{e-6Vq79+wG>k
z$+=>2azYFJf(v|YENM_?IguS{vb<v*y8HRh4i8@_tgq1IqJ?@D1nhFbdE45;ny_r#
zKh6Xm>&W;InDq&w-3Jv1lx~%!p-ep^Y`;jnolwy6$w?hC->S%slT$COkD%fL3n}$>
z>$U=4O|mwEYtOO4@=>VCz$~!?87yX=t7qfuNW51JFR<;~=Pr&JT?X*cn#oOTfX}PK
z>g3`e#N_dCn!DV*?bc*rHe5Vi1+?gr{&?dPP);+iUAQ6n6*_=D@eU8r!U>O$65-@!
z?#|1Aucc3^e)SCDMlE-@0oyiNAAE?|0o%!1r|SWoj<Cg*lz|6?j0&Bs4tGy*CiOdT
zABo6=?Fz`9_&M8KKqBx)gmkOk+(3U+u8uE|>srjAgEptjYlRzp$bv0!MZURfQAg#T
zk+tozU=_*fDV`o673(fQ))+Wklf+|`-o5jS>m6GQxI~TW5Ec)Lok|9Zcbgo|<MZ)j
z2ErNOf4+ZNHyb_V<Ibz0ShyNYLS0%%?`w%za6nwD-+prm-Qy~X7i5nOqW~VuTu6bq
zf5+DXj(Xwm-A8p7=}P`2gl}^Z{(z6=Hx(skmDekwhrc&JPJ7LmO$Wn*ZD3pczE{kD
zbj->Q-=G+{_6T@y@`%EEHsL-g8-#*w>Kqdbb>JJA*aFo~8dr`eu<vHu*7XZ-J6Fq6
zxy?%3>FU>2-4l(sh7y*Oper{6dQp#R^-ML47eBNP&${oo#xExuI*&eeMjiLE6+z1N
zCA>|v6{lCcUato&<@Th@Z(PrhWm9ztp#@pqYGf^^BX4qoUW()r+=>P*^I?32nmz1k
zpytAMaWL#`D))^q@-V!-Gv#rq0$)`F`#eTJ&<Nm+a&o6d_`f))t*a9)(J05`lZxup
zKJF)$9%(guo=1o3UoL)mxe8Eh{i-A-2m(M<W(gXV?Ac6!y35@TY)zwK>4-jGLD<dV
zO`)j2889+KsU_H)j}Ri)s|K@h<8_5_Er_+ki6i50kO##kF*xnLG2Sq#hIE@NTsqSk
zte3Rk6gkYxm{}KG&qh#JYj5<=IE5&*$CzW7H8GSb;3P+rSjUXd`VK0DbZyYwvwcaz
z)GjyBARVIDB!AgCnV<sYAM6ws<Uhm)ZY)tRDF|?NbCBOOWtW$~8Wb0YRLPlraUi>b
zh0aRQIm{#d8W8NE=cF7YEO8eMjS3?bh1>)fY>1$ct3y@Pg>Ra8s_eAfcBF`qW--5d
z2CP)*V8?)nj>15wpC2a}%1HuB3058sexBEdb0)*z8TR!+q)FS1NZZQEAy)7ZE{+3x
zr_CPwHUx+?Y)+%)h{UEpY_7ODXelnm>VX@HQC#U-Efo;)D^uncA<eiV?xBRsgd&J^
zse_wof3p}HqJ5Chr}W2Vu`A8B8AZd_3=W!R%Sg5Ttv-bq<eE|;*ZBC@75Z!QiazdE
z63<K>^VS<lC$moymTrfb*mTiQ0Z>HsT_qE^i$6_*JS4oii2a5zwQB6_gVnedLk12(
zK0D)B_}9@*`M}e9%RJ8x0gTvsV}g+fC%=hBu-%zDUmCRZj;oXHXU55xE1_+NDx+k}
zb4d!iTOjXs*+&mHR!IK7nl4^G9gi+RCbmt%VlxuVw^g!#D$5GdJPpl5mN9PHCO%O-
zo!vZpXj>CmeC(halwo$>=zkx+OX)HyQHEMimGCpx>O-ptc9f&;wKaCvSCttN?UfYJ
ztC&ST&2eJ&g#YyeBR+uZTYZxzVLfisl@lb8o|`24d3`lC0pyN20x}mlpEWodrP=k*
zVf4AMHy!l}AdXsUo=4zuOuePIZPZn<hGVoZwv~kWqkvKsz)*yjr?2?fN90;(7a$iM
z__b-`X~f)RLH*!b<(LNcGMHJ`((YGjrKbV_xk_z~7u$>hOAV@60xGHDx#}qAYywp>
zTLCv^zF1~tN%|+>l{E2i9alc*7STOo)2voosK~4ta#W@TH#v^T<5IMu#u0#NA|$I$
z2G>VPePukoNc??^W%$}Ehvc2HosQ@1@|EMwK_k9!rHM^Yc@St_nY`Y_x7D(reWgyt
z8db%*3`aNnAG-;t*tyxGw>a~jS$^1z0Bu<6N<3WVvAAhoM;tJ^iu4eL;A4aa*ey~Q
zu1ya^K0+7S_eQp}%jvj#+yZ2hp!(f1D_qVVbbSp2S__;k4`q=9y3gUMSeVf<r|LQ)
zWk~K#0tzd7KV|df$obkRe<=*g1W@uLK0Blw7Kk*Qgp^)^Rg(wS?P1O-h#(+~SxO<^
zAB+QuW@W^=>~EtboqZ%WOdI#{FsWg|j2%>3kuKQV+~&(<QSjT`jwZ?$YYrfng<Vt5
z3@Sw$tR<m8xZ^a}6Y*<OMi|txyU_IbOu4KJlxM8cJ~oN$9X3#@h~tK3_MV10Lf+VM
z1ZE6mt;>wfGW`DeMc$AxFM)}o5i*aZVprkI$#gMc&$vSVu6qE-fE{WXhXHBhVQ&%r
zV1fClvWLf_@^GWc$@%lOl=7IEC_T{wax<Vz843&L9xx4S=S2U@G|}O5C2Q@)75KbV
z@bK&~Ih)0jaC}u=Uj&g4g=c~ye_q<I6>YB|lR7vggA#s-J92&!I^Bc0`1>j!Lf~Yn
z^Q6q#WTSg4^wDx=8r|h4?W@xX<unlq)#`yYxy%5z4WxS!J-wg)=E3k*z3JFB2?7ot
zLo8&oV}m^M>G)5i9U>aB<o0^6s`Nb%^eYZxmUvwE9%Jk<-3RgMSZ0;1jiIXV*9Z+V
z^J$Q#a)C&K7pm#GWlWkMxC6XUJ^Woe{ImkQ_ce^<&erq8;(ZY4zBs}QE@a@?JANFy
z#7rzzCsYcz#x*9%t@O$yCW{p^gVgT;jN0=A&en}es=VCGg$&MVr^HK=Sk$ln^UBz=
z`RxZ3^s}BAeg9ee0Nm1kRkN1(GxgusxKeHGRJq}9CM{oez9i)xCE{Y*iR_L9BxV+2
zT;}M(XEIfbA696*J!m6=y85$mTi^eq7OJpY@kBwiCW$bJgc0Ru3sao&$#6cWb}#z}
zAY@MuN-otlQAFye`%3LR`|xCDgaA6?$NkWF8QvnrWO>vbJ7*dqgZxv_J*jLDr3p#d
zskqQehuWL8s8Jpvf`nGoAuTTEAqrAva`VZ;EWRr6C7~J??MPXLuVzTTT1a*k0xX@Z
zi+;>ZorF9iNoGY47rKnopU5QfKnt^FDudBzDRhijxsi?lVqP-Fl{~+cl<%RzlVk6E
zf+joUaXA99#yrmwYHz>=stZH;!I-m$=8>B6i0u|y4=3TY?MWBD2;LEx?8EStWj2Fi
zS=6t|lZAn+sY(}*1V^g~oJ>wy+$eu9=OKbC%aG641OR>(ylpe({pig1xacm+^76Ek
z{3-l{XuUo~ws$x+hfIf$Df|0w$aK%N4RdZeq1PkiLk0P-#toOT{pEs14mf1OBSdZ>
zLe2q&;*|0os-ZfCiAvSN7_6@`)%h*=F1ALEs}4&h_{0N1{^1u>6GI!9#Wj}t&0*!$
z`b5dlIrTp8iUC3M?E%Mk`)|B5V@LLGXF><P37T<m7NA>N1I<US*v*I$s8^1)H_Nb!
zd?OL%c@6-6OF88p<n;N|4JMiv6w4x4s&x%k=K4N6xH-i>eLod?Q8BYeiW9)V-t}RL
zsWP#mSo}1GMhuE14KbfR%dVw}bZ>%811}%5IbnUyn%pCjgrm?B>w)&0u^VKsdzX{?
zMFOV~>Oii(NW`_gfx52%UhkwESytt!&uSMV0~v)Xpnxd2y#>iaL1ZD9G7mCqlj(*n
z=yEyTDZCji9!A;9zyKk{;DDNHiU#IW5%J4=XPM^v&0_jhYwRMWG2}bs@>Wen@kN|y
zTF|%Y&pGwxx)+<pNfXoyzE6abbTET+44zhQ1#x(afH-mr1x3S6w$bTM$Q5$lD<ik_
zy#(E{62kHN!zSh6RWd&U$b8Ry{@|geO(yZ*H(<DvM<@9}ho6z7PiDXp&bt*dVP85p
zXWI8Tzha#ze*6Wf$mI7fLC_QlmGcE`v1}%LdGbbWFVm!FlYk3XQ7aA)if=L+1+!qP
z>fMqvMjsUzYVck>T4|w)u*jENN!U+wEIG!EIkxm3xDPg1uTs~m_Xhe?4aoO=ET!w`
zW+6jeCMG%3ut7m066y^v&DszAyePHrCVJ=-Pa@5l#KEhDn~~LEUoh2ZGqH{wO;2I|
z!<F(scYnEF&hAfQyiA|%+;5vMywZ3$wWGYmo_Wt0xIK+)n;5>m?hTt$x6y8EK0k%c
z(V~lruA_V7W<6icKYr4(I9YY}`sEHiKe85$SuWDs`b&b<M`LrmCxGKc`*O^0Pr-lN
z{d-cCDjJTET?le@^LlF_Ue@Ba;2<qonfIj*>Dh;~H`_-cFYY){b(;dF0%e-R5?^+?
zUP`0sR5G>2i-)ekGzDGmg6I_l_#FwstO9lFr|r%_cvG&B-WHS?$0=nFMRAwQp{oXf
zb@KpJJZNEDlwDGJ4J}}|bAeysZG{RMIQTWTJD<3N`T(!+g-DG+fAO>{pVAsEK^{t`
zAlNq~w*1WbBWCOC3P~=5_>6ERsq{gLOFkel6(dh%>sXQAF~e55=gwcgunNqE$|xz2
zg$b9H5oM@S(m?MlkV>n(4oPOKV=4A@a(r?<b~*&@v=~#=d@dVGVkW^1L^f)bgIyCp
z{l_+AJ2U~yGTR0R*}`+9XBYe@mn94v1oXXtdpxhU*Qw^`2OgdKO~Is>4}&i?_jT&5
z{T4Wy-p!lE`;nIZ2U#{MM^)8bFtAB*dKGVOq+5!w_Bp9s9PDv3Csn*18Mz)B3eGw(
zO7x){?#1}!O&RL8s`J88=|Z|Fd~c7+%Cp($!BKBDU_)1iIrM?cYIY`3?Y)WIg~%DT
zE_Oz`5pgzgU!GZ^oS&3WxqNn~Vn@FfGx;QTvP$~hum>lpyHRiza^_dgdHmxMX*#Ae
zHR{Sogm92>Slsh)(aA*icy!zXv&t_g3mvmEetgHv<*mAtey7w$5N^72D5VTvx~eN4
zdfOh@bZ%22xPtw1t*K3Lw@Ek(TDy{P0U2LD95Jt@$=n%Lsbw@z@>sSvoZ6w9(AIvI
zt_{a7YMoz9)xm$Us8EZkx{0unj{@$mPzc~Jt5-^M^&iOiz1KZTcs8m^!B#1HI`AyU
z^~BTn3=0Bq2AB-Q*?=_co~4dRy(Fo#xUU!{iAEa_c4|w=%vUtB3gJ!(XJHJlvT5B6
zYrCl2p9mkglhgRcXG-Q`g0Za^Ql`|MpS|^thfJuGikgo)HHq4*aqaR|P~P<(tV%Yn
zZ+8r&hMihPl62q6m`{vbuF4-3@2&ze3mI8;;9rGjHA%q-JV~%6=(H}FgIZ4c3=}+z
zV5@0nJ#3hMCbjLa&gA-#Y$s2Bi0T0gw4sR1G<y7E-L}vBaDP1VuwpG>?Q?)U{JQZ&
zn}$>9DgEx((X2VG+d&7<)6sdKQN8E>*|4B%*GYtCjibe&w+d_0$vth|s+UHFYFxq0
zi?Xmn3=e7+(RbaGh*s6L8oFFIZtC`)gIDCj?`wUVCq!BJ8PBj-VI21x`sUcX1`)d-
zC9Zw!?F(3vM<3Oyo^--%6c0e;eU__lq1#<{iimrDDs??2XVRKkcsbgPjwZDkClRWL
zZK39#mFy;J1#yfk$#F&1%|5qK%OIY%Z+HxbDZ8P7Xv&mt;DHv%i;f5)YZFn0q}A_x
z*U<5%HoGcYZZUm?qva}>jiy<f_;#>>-LU)C#0oqf*0#@+;}B2*Q1(6^vMF~Y<{qJ<
z43d0z9R_~T7$XzQ6cq>gkbx%O98>P@rR<&eona&2qAl7yNjwbu3bNa@1bsW72ZV51
zOoo`~9{mfgrT5cr(wg`E>FEbq=Q7E~6FF~K91l-=s@<W_G@J$82w<B2Z(+J`_#z(M
ztcOq*g$lZ=7i;_7GaDfGis|IBTMk-VHa|GriGj~`=`}0Yym^uqrbZ4@pqZZEO1olU
z^T?E|360!Zj+WZxI6_ouw6Q8PG0;UPlWZ_-Ui~>UZhi)uAU9Q%N`k4qRcPeDL8{n%
zp+$Af7%F+`b?5HN{rdc*l5jMoJLXUrrD5zu-?o2!xc3OLpz@CkV>In292dk%B`pL;
zKhe{bW+AwR0p%D@XejW!JPPSfLUCh^jcc)|1-U=GCEfVU3cn#*z&lW_M=r{>-RI9n
zGl?uurG|cbHf)X`hH2uy6=KeF13IosjE6xU%N5J6wk<0!O-w+2Z)m88FS^tjn@#7S
zE-H$-PERb>tt=2~3qsFpIpuJ*u`gh{DaJ=HGjQZ^&t|Svv;fSl)+l~Q&e24Dm@)<b
zY{o#XRo@4t&@{l+5#lUs?d>YULUA0Zy?kST4&S@L|MiH^TS4#jW#Pw-bUJD2%0zSm
zBP8tCs(=1OOoo;<6g^lWR1g!b&genzmjRpYvR|814|v|S8B<=U#zn;5wx{AI=8&)^
zV17ohK53%U$K3K(8-2(DXIn$UpIb@4?-w`4bXD;L{|}B1CUsgRH4hNp2P7j2F891g
zK|-jf;x6ktj9gH(xqvk3Z#5r(ReqcQbV_on0<Wx%H>BfU(q_Ju3t93cD9(g}L5^=;
z&F^2(MPf#GlJR57UKTS!(0@8X%XE6=7Sac`rXC%}nOBR*TQcP75ZaRuu7+KiPY^~g
zRU~fNO+e@51$gQDC=fDiupqjlHUYZ0Z&T~PY(5pB_w7>4!XpnRJ@3cVm0JUsX69+$
zD-!XwW(Jd3vjlwKTIb>y3sY;ONF2*AL)xwU{n|BkvTB0C_c1L{5gqFyQuL!@NF4<|
zo{oOALsSQEXl;rSUrY@?xkY`gQNQb9CsRvkDzc6)-Q=S{(QIsH<Z(Ky13%Zgu-jpe
z-xhF%T^7BWQRchQB^qldwT3Q_3Y*GC!M$)us4kI3*!dQ9#}KR-fmVJ^3{o+iRAD^s
z8ki`bSC=Lg!E)2KF*DJtRq{M2YJ<2l+@_{1ZPWCbnnlR`GdBnx`Px9|J`M+Ne5sPg
zqM}u}Bg2M6MbYn{{@+auy(dxw6)y{T*&7vjl%G5lI#djMp0*Wj+(DF^3S~6pGXvcc
zCv{-91sZjj!4xBx4rd8XRdNLqVF(u4DE$1xghrOo5)v7{Y{`3PG`o=NtLpl2(S%{2
z<NX&*26|>`V$#m=ySaYcX@@+ShfKyW#L5}_j=Lpom#Q0C0nGR7Y}YO=9ov(tdqb(p
z`eQ8+V#`ekHa@1DKvsi}Y_<peP|w7rE+04zwh7v?ebc*RH?MJ!g^7iFm<3Q37_wF~
z{bX7`uUp-${O;1yp)N&wfrOJDtySH=b1WEF$$>@y%!Giqv9P<?wIo1OTb46b4afnN
zBn2KrO|OQH2-@3gvsIxrpOUpksiV@Gdzr3mz>^~g9L^#ZHizP#+XX%5+B|2b8kE`P
zPm6@m*A_6qd}KBHrRN|KM_pk}0qk`z>82zKJPZh^o7Qx%?~9Sp7l|7$3c_5O*~m=I
ztv>=S5eD93rv#K<gP;;(7);cCxEowp7}VD0$zS#z7FN@VleZ5G;KS09Vwvb4YbAQN
zSX&bZAoyumRuH!46t!qbcvCSiEDbt5{G=v5rP|pF9!fT-Elf=D5dl(js1UMRr18S8
zKi4nXONQgqvnI8iA)(C+#ZRUi287Or*w4a`x|5!kk=|0aD-StsbuPPGC<2nQxmsM(
zGbL-4Hy0jZL_2N{^tmbZ2+&f}iWne;X{6#?Wh)zVHKRcV64}K&JsoS$L>F7!YbQ-h
z6P;vgTzXmC+{+KYnh5V(ke(jJ6c%Pqi0Y*+9J!INeBrad#=W%VA}f+haB<U>rZl3x
zf*Fj3YJ;~3#eFs%RBNH@<v^vKy!MEfgwOopndjY+Rdvxe7fzT-LUcLM2A`y54ub*D
zE8~;_Knn#VbnkeTR`G@UB@otGhz(#Be=Zug6Iv_MU{86Ja(^o3Okz^x6AlgGE<FB`
zw;>XNMu(7MNoZTp3X#>mB)N4&k+cd$uZm<0Wcf-J;!>#!I>yj0xL{ANP_f!Zfs~IT
zSPRniL0oLv?b<(W=ffJ6olXuMIX8%8$2C7a5n0!|8?_joR^UO(aAD6I*P6ZLHNRa}
zlpryXqPv7XH@2M#a&G)5@w+!9stSvLBtpLbA_gXasO_DWAx)KuZ;>N`Tgz2h%h5Ct
z%^3?{FgKQ4T_=J(d=&~E@6y9B>@7Qr<~#4dJHO<vqy}+uHKTZm&o686H4hCrX^QZ;
z{bm=WCC%Q1ZrgTjMMHWSSD{SHRCnN4M2kXsxT^c8y>)fvd)KGb5821z)JMxZ$Qt8K
zNKbO(WHjFypctce+Ib@s)AqR-KCzs(i=bAyK$xSIg`C%YwQD|;C032EQu=sIf><w}
zrBIy`eI#Q#GE&nMmR9CX)0&Rop*7Ca{>eEgR7pLO5KDBc_>~UH*@+rGhrQ56Bg~GV
z9y7q>>%QM-9wVHIsO)xmr6UomnGq0AsJ*Amib$j2AUTPPXir7M;5O$ufHMo9;i%t5
zJ<8n-6@$ASPm%~}ZPef@PZvZ0*Yd<vI=-CE;^v3Wlf2tvwLq!7^a2BP++(11iD@=M
zb0WJl{W}BS%0DrQWZq-&`1sY#R4B4jEq-DLM2L8rWskk5u;|-eSR)IL6)mk2<6aN0
zr#(Ng6H`*rD;Elreo=StLE=3xW#wUi)DvoH^8bQyY(>IB-b~CR;`wCeoi6bqEs0Ze
zmJQC&9h2w-$93C4Is)1mnoC1gL}L#H>)>ihuW${hNWBm|iIJjH%wxKLo+O&gt-WXD
zp#{k@15lQTQ$o&a7x3}Xd-QgeUBUCC5kdW2GbPq3ez0h@@xmwtDSsp$6ZY64sw4YP
zOM?1-;gL$wUQZI4AJ?c87(uZNY(~9T^^IAwKQqzz3`oD$H<MI+DC`NK^baN)-6XJh
zIVsrNV(OGg&CmWsK7Pz>Sj=dNoq#jyD%UZty(D^K6e={+(kgxwn#0~t5($)Nv1FF1
ztDn1*cPH)H=36u^s8<&Jo^uw@cFiV4ZP##nTT3R(uf-OLz^oWzAcsH!{V8roY)ojR
z@r(Cq9=b5_4(nNr-z`pe4oW!0e{usbbe*p@wYhM@>E9^&R4f+JIC6K|^cX`0Do2im
z6EF0Qs|@8rJ;ogxylyL;*d^&@Jg<Vtbsq%dxV&RqEdpD~PZWyMXGs!5#K=ysI@>Ww
zMeammFrlsbDyNYJRy?bQVmI>Emf(Ama9cJI$<epqVVQkFHCYikVQM0|pzSJoMO%9d
z<JR1?O;YiAGY6fbk~Ioj6ev@N&ulYxvf9r&f~-Ek!*WTKuc;}mh?gC{Xmqc(FmY!b
zbC!c`Uxt}Vri)BU_7S-@PL3HBDqoG7a&`Gv$+80Tmp~E}ky?DQ5?!?MY5=L@Uh6OH
z47(DMA8(!QWE}C)U@bqDDSs|lXhQqA`9P+}6OZ{a?IGT*FMh%kfD3k#RItZpXQxC#
z-6F9Vl-S=}w!yo&?6{33X6(`Y2ppc(>$~eB4LKZ#j3bk=pI<@l@GKjW>woCqyuUu-
zF-KO2Tw%ZQmbY^>0|_pP$1X33&%%fC5DhCbaaRjCaZ@VL`(i|qH_i2#T;7^I9(Bc^
zy?HN5or$zv4c{5gJ)|D(GpJ+QPwE*H%%dOtNdp1Lp;Y!XS~ldDV?*wxqP=u^`ysfS
zZh$3+2+0fA;B7ABU#vPuc59rT;mPTrEfhWQ1`yBd3;RG>zUB^JJN(j+Se`=_z~WY8
zZJP`(L*Y~Wys}umYdqn_DH<|)w~P{#;nq3J;c7cs3{lFAj&oQE{$<Qnx><R%U0t6R
z22&8{=eERUs4eQ{x2x<9wq)n@0$Ln`^y9q8^!p7>iNQjx0;C+<18Reh*<Qd|jpvE3
zO|F2p9~}*&a@3CH3n3sqfHLMM%!RtPzOm-Fmg!Y5V_!B?c>$F`-{lp#PhW|McgHzr
zzS#pyXs;WSQV5A=QhlgcOK=k?Ey&STfY`<1uFB}=1-G|Tk1Zk^@a<^&C(|y|$Q1cV
z@tX%(X6>)H3~_y3a??Kn*8`LVS9lzDhL&u&`D!PRwC|obtCGi{qZ3vZ5I>F}JciAN
z4T;UY$FWy<W7^DN3^x8$+_4-q9S);1pLrgOfz9lruG^r^T}Oj9``G&C_5<T_%9Ou-
z2HkEt6NM7mY1Ng~aU7?+{Hk>}YfbhAL<G=-A{iE4Rt5eMg}q=Xez|;clj>!~tz!6&
zKwMGgQH~SFg1UyEmlgG+5%PLu?s;1-57Xiy(C_qD!{@0b!wTc_Odt{wg#=l-y!`EU
zD~4jh2uzg)M8FFZU2DAlzz7jzo<T$zIE(P4<blyD<7CLOh4}<|x_ZRNE^$8hUqWIb
z0>-9;V-lZ!jIU|~!XOLs@HE{$>H-b0bzH0Oq`JXI2F2t~v`qSsjd(x{zKQ2n%?t7k
z!B-cd1hnEGF`Q9fZNC}zGiB*trnr!+8}rQpB$mr^c`kTHLEXsS$T<7%=8Fwt#u-}=
zzsYqbU|$Usb7WTay^KVPugi~A-b!iVLJBhtu}R=Ucset|GV-$JSj##DQ%8u<gST?Z
zajB|P54l41oT7{#lDB0N<mb5ZhE+|S4{B&!DQX?_t@DXQ`Vmu(r_9LTNcgy`x1VC~
z=6o5T!+d!+3mzw>%+EOR<Mu%BsL|Wo&0Y$0DP}m#Y)cwfT2zRqU>^8fI@sBCuxC3r
z?Yr0%xpIN#M`Quh!)J0mo1BOA1o|M3VG!*@8{TH|?8E%f+)i_flG0{5iN1O4X}U7f
z{omhgZH`dT<@k9Vp$5Ik>5rzPagyQ6q%f%T`m%)5OovV0vRk>#N^o(s$mvVC7Ymtl
z2WpC8Y3(5&|11nxMjI1KBW2oyIp1DsZ*&-LhCdK&7CXyCdDz5b2aPOnUuU=JoRe5y
z`kMSP9;fki;uO7_1iS5SS)&r$Y_})A@oN~^{BZCx^QlPuq1B@F4Grn{kl0*H5<6@A
z^K}ia;R$h_Oakire?D>j#q#Wnp(oeJ)X7%uk0QT5&KCcA%E5Jwq?A=maaUW^PQ7DB
zHYP%#0O)S8e4Yl6WYQf2td>$o-PJnyKYo+}2^UC)(R!$!&!Y>RWI)ZFnHH;W+?&A6
zXk5aAm^b|t!rr{Ep&MmLE!dxK>QT|-8PS)?J?|fcn?tB}cOO2BOIweGHt{QjjH=Sz
zI>hXo=`T6nWVYhX0TqY^FbhDfim~HD%kOxR>&6=%pbvgl&Mq8Y{LZKqf@KV4LLVgT
z#@pM8>~&3xxk%(DlL3s%wk#oLB%I@Q^^Hk)Oxg58v1OsA9+1^EHbY5fLIk20j-xoW
z<~Cz%(GWx}5;?_-ebxL6!7RZf28f=k$rosES*(V9mduI!Kh#NxwokLkSOw6_a?>zk
z-o|i%mk3RZ^?C@s80Hnmd#SVwq!f0e0dob|cX#j$WYtNn4CPjNa0K@CVRP{xQlWVF
z9=6*M?rz{yxbC|0O{+<v>77Qksp)SP0ljL?a8x|qo}T>5aH>8Ek!m8}Cm;X?eXEQL
zMZR^}j!SnS(gg(~3<8LuW$s<ts0Pj!hGp9%qou1q-j#6~7h7A82S;?HPY2az=wJW`
zPmMhF)y2M=?ap1@Yo4orcKl(qUVZH<wFKR0G+p&M9qtJB<b;%0JYFK4S;X<%$`Tw#
zFsa}%ekdvC=<KR?qW6rl`i$-oP<%il7B9P~G;qEmWZ|pzv+>#<M?Vtm9X_ma$i%0_
zN)V%XF7-3B*?_lqTE-j*UeE^urXuhw6P6T_qHy)NVR+1~O@TD?bdT)|D3;a7d)y|p
z(C$j(K;kpYUo<1)Uo;O8=S61{&<8+8ZdQ~aJV}8HOz@ipg^7E=ay4Gg8r@Gpw8H(|
zc4o`<f|L$}KbuRiTz$V+tDvoVr>yu$#4%SC0Wc)i;NqRq><oni3nN3Xs(3iD@4IpS
zpUdRrrnhQZYwL$?8i-hA-x$ggCd>^O&b6<zX=spvGz04%l7a$9H9O?UYyw%1X^vhk
zXEN1^hs$!y=|+U#nm)7_gXAI-ZL58~Z$r78h1MVCVLnDt#mfm>5H=zgjDhc^vtT+t
z@EudB&Em7=yZkEe8)SOZ_j9(VRksM2aq8<$#<NmD)H{Q!QSnJGjmOvY(?;ciqEh?L
zA9tmGQFeQ~46ht6;gvxtlUj7@E8PrasMTcxUXs7>vvA-vKg??qE?mq6TXrA#ryG3j
z9TPw1<>p<V$-VF@M4rve--Uszu$3HCxX8yJ56bVfRo?nm7e~yqH0<On4ZxRY3cdE<
zBot0U8@|SG`I*Aik678y@N#fhYtwkY;fE2G>=ABe2zukmJ@YHX3_aDWar&&R1D`gi
z{Pt1_Tyy=`h&zpv4;%#|R)B{TDO#w}Xu?n4wU1{;*XQP@(VoLAbLj#&=v?2zP=gC*
z*`e{hX%N&_sqY*ZTKlt8b4l873Vl@Zbnq%LKGH${IxM}}+q87NbXvH#ZBCLRK|_Gi
zvaD<ZKT_E6gIDQRSO31?ZLdh)Pi8YFOG|A>kbud_Y$;rOuSuvjY(JxYP+@XCGUAH*
zAbEdn$t!C&WQ{~_nK;Q2R2+JZg*3QVn8?--|LR!HM(s+FFsFKuww>buc4<qYa!g&1
zD!PtpIBIq6J=m_o8_f(Zoj))p9ML|Vkg$Gkkl(p!iV)rY?m@tf%((9Ii8;MuWeqZL
zb~ke{(E)?enRZIMUIW)hV}ctfguuGM^WN6+oIQCB$x;r!BOMkkxG!y&=Dpr+V2%5Y
zvEhoecdeR*^$4p}|M>qWbvJjOYDp@Rh_D(XgNM2o-3I~)$4lB3Z~8btyyA`m6Vo~t
zI@)-6<=#U@F-pg4DD5l2!T$Bd#g)ZzN@_W^N)Vj-Bp{#Jf^yzq)LfU*ZMQ>3(p5x#
zf=$gXewPjVW-gjyy8_K&r|+<_@cZS`TF1jfBnL}Io!TRz(jajXrz2`I7r@R9G`on7
zJPJ2&thm4P0ZTe*l|0$a4(I_h`V#l1{*UWCmZ{Fo&8y!JM$UiIdsGGAnl5NJ#?82o
zWy4UiD!Y0$aB;QSjjwU~-syNA{p&GZ9bPu%YwbL$-X1_>S`8&~1t~!@gk5baP8HMm
z+)T$s3d>plu}0<^qNo?iDIu9=vtWD(H0`Gkm3|E9?q0Q_cUW6lRZJTM%Kr7YZL>WU
z^=nLf1fxgr_OF7nM~6pM%A!9W^Rk|=Tn@K6=7f*~FQ30@>LZ=Yal5*I9Aeb&teTB^
zt-q_w0S!dbcMOKtw;V4&O^Go=8YN%SO5MshhHel>WO2lhABR%mM7xE~F<+J-oSB>@
zZ83ZDSex4Plnk5gzqv%!*iIYPu$ij=g&6!eb=UFY0Jh5lAnlK3@^BlXZtAnTAEz{*
zPu_*O6ZUB3D7mbTuA)J+Og4|(?7}v9I{~qyw{U4Rv`{L4t;~^7QE+UI`TUvpLEvVo
zidMUA{f_rWP1t)shl(bbJ}?5}h$SXOpIjIVR@P#7`@Cvxb)cs5+ZxRc)WK)%x63q+
zTnl(Cv36v_x2`f$f-EgseL;=uv|+Db6XFv%H;7y<pjrgXlfsmKpb$0m(Q!`Ar+T$F
zQv&jn1A@IFU80{IRcVTa+{P8mrpCZ5N}OEzfSbidIVSFRdIgn(b-9}WXc0;yj<EGy
z&%s;7zM~=zOiffI`@4d|i3P+nY`04Ma*NcU13*1&gym8^*P+Nv?gwRLcSHA0MezO^
zyI=^r)Nak-dP$8*Q?%MD`EE?kPW)8RUxe*TO~a~%-E-!yBxi}2V^&9_01w!>m$4yj
z3*+8Sspcng3Ae&C<4W+Q6LCcyTqOpCyf3|uXu-#~wNKU+C`JC7K2LcW*PLW_f(9L~
zWby?g-mM~rP9!>bI=F*(b7beqdG}2Um~8a147Zr$g%FgeheM0(ENKbMD>(bL(0#Wr
zlL;t1tvZv0E5w|ZvEtMaInB{1V4|cAbYFDDX_;$J>d=BX2tFtx=wm76Ov&A=lLX~x
zf0s!+2~ch2Qlr$D6-NY^9ez|r!!pX(<mM=!krvq)P9z)~NF0w!6%~az1p_$kyVbjh
zVoP9Nk=V6N4>VYn+<t@y*cPjfLe!HLNnzx&+2GlIF<358ZT()L=zdc!4<2Z*b%_Zc
ziXovyUNLQYSuus3|BaJdW7vh#q%oW_?ZqQqK0)}tT0Q{cbiNqXt8t*-t-ka#^TU1+
zd6F&ZqlhC4n^wuLWp96xRlSG%EW()VnBh&h!*)R~GU}G5qL{w0?6ydgsV2J_Pt|=Z
zZ^zTs_I;z|)x$x41@Fn1z1j(ds|s#vLT<z341r0((+UnARHI+op1Zc#Hu?36#%wa~
zV{V1JnLoxzxA8rM6<G^x15`_YHpvg2$C=*!zK>%)X1dd_Ow;Ux1nMLvTq4ja>B0*#
zvUPHjbKa@xfEZn}rr581$2wFFO_xIa13Y)6v45Jyf)kd#1bL`3YMo+I@JR!F>f>U0
zm%MKpO?*@Qr_3FClHP7DXa#xQxmagtP2BdN^zmJ3nRaVUsy%js?s6ug`Ce+a$?;F6
zGwiCf4t10qsXtCy$5D7>Wmny!({aNyQ7w!CD0!n?f@DmO+>F0A81J@AdNwPz8d^@6
zLdn_Zkdo&CLAg?E)!OC<u5LL$$qAW-q$oZEr9!WNv?TN)sT%u&c<gGEBek+j2Tm)P
zn6X@^<3f(EpnYTW<I3=qKXW7%A9I5XwS~@UJe`iYhH<<Pw?n}Co@jg@PJ<p!O=vgL
z9F~i|*J;dI)Q2+A6)ySf-Cb}FY7}I5R>T58+_JINWn-~(VzERS<@VLfYdAKYC#|>1
zT7@ZKR!?~o`ZY>->0ciosh%!z4qu#HC$+O)9E(dm?_YFO?DRmqTX}?YG-!VYni~!M
zk}#v^IFw5egv2n>1h2%Xlk8c{!2n13Y0m01t-fD^7POt$#3R~+!TaO!U=E{kTcZbO
zQ;Q(1<T{DSDm)r_KJ_}RYQ?0F9uT<w1h;SR<aD`rZ@<K%_Mz4H?i&%PTCYza0xce3
zpCoUr$*(oqqG)UnLBS_cuJ$Iigj7K;#=Qi41CuPSSi2;AuPE%Fj|gu_3s^i#j}Z+{
zQJhS}KcAZcA)u9wlImh@TXqv}*W4?4*1A9T$nd;+sX9cl;T$-Eid=j1P`l|qBW)84
zQ^T9mCl%~S&^$YBvw2QV)>A3ZlXR@72!#oxWyWvG<*C(>O&zqtur?tRZPd}!i{W|9
z*^A-dxa@s(OQ6;ExH)+{E3>_d9o`jivx@+A7jG7oVJ06qMJS#=sCLnP0m)KO{1rP5
zOR)u5hU;?EtO)|I2Mw*yODl-3(DDA>C9eKyZ(2S{o+&+ENSHoC*0GPcQ@u1p+k;K<
zI6Qx!1H+Mv-N$A~3$|~5*+K88`p>;<>!}#`VD>zVY(8~~&e#@g)J5`sjuFK<n1u!+
zh+i{xDsq#IcdH7G>7F{~%A8RQp1k#m=0$eD`r3`oBow4_4?zRJ7B_v%9d_&^jrqp|
zph|EeAEV|B@U!J8xQpEgMRsVyr_PWtU>5jWP>+zEX+-w~`uAbvp?AM(z|o}?*%8fH
z`%w3z|7h&8s#FJ+DUF2%$GKOWA|V7oKO9HPb`y*ZB!7O|*9RD8wK1>fB9#P8qZoZq
z*#nOSThVfpAzEu>Io=?4M<=LgwfSYHc(Yspk;9&;?s)lwLAA3#n+!@*4_~(zONu#E
zRv6JOBeUJL<dcgshfgt0Q&Vxn1WAi>TI|o_aVgKb?`DNRto<K_S3+Y%P<CcvZc<K&
zjCC)msm|;uM0(7obZE_v9G04tkEPn&i{Y&-n~rdC8AS*RtE%PzCkzd$1fT(q!X>(<
zFp}}^RHEPQ>Q}8}i_W5xkg{Y!brot=(N=RI)u>bjNQVUIhcK59!;fN&xY@bcH@ino
zG#{oJblw`jGp>L>KCJIhUmh<PUdpw!v9*(nH|xJ7nNu3cf5AbGDQlOsVR7p0<@tG@
zsqSPc)GVEr>2+5jNUdao3r<{p*_kRr-sQ-d(>$kHwAOypdWu?uXt9H;f5qQj{3v)v
z;sm$^^+ot%&|8+bLq%0N{`P!1auVwQ{eg=szrzB|%Vxu7*5{)wUU1>1YJtUo!exvd
zHxqwbHmHW!Yz^&jzPC=*)(FL#HmK()DcpDD-cS$E{cpsG1?z|N)PWZJ_;F+xGZ(B-
z!-DKQ?i5ACeg;8mZ=NDVno)F7ha#Uprr!t&D<baDllOvW+T}Tym+xR5_=QE}moR_W
z5^J{a%OR=LCv1rARePLo=&%Q?C@~FN1|Fce0j7*zvI+Lnq&{hXGEYJnGk*>>ssYb}
zoXv^U7aHWBkT97e%X_0jldks}owynE61g$Y(`QNQCag3v&AV4+cIrhn&!zJmbm&{p
z)Z69nIW<$wA*bh8m{aJ?<Z%Bro{`nQ$k4{Mmk-8$nc_>^Gl`POhI(=xI~Y`YVbe0w
zb$IOByeC4cVje1~&WB{nFGt>aJ``-*vaz5}piyP5z^5o`ahyYbo&=-!P2V%Jt@tfX
zub0zlESf3SNWzjeKRU-)W!Mz^xZsu@qwtN(MP&J_bMIcMKU=yDKZ$y8mj3cOzbQ6y
zrnbY$>Z4yGV>)%t!zwj|hASwgS+OM|vV^&DXuTw3EOtI0ME`c)q$>1e{1HZh0gIUF
zWVrU*`K32^Ubc1K;S4k57ehebnlFHdLLgJ&#A=eY<MraKV~vWhe@XLz5iOfF>!+=w
z>O@)5bYT4FN`bCjP1!iJFE~lD*0jBzx)dsR$gtHi3K|-THrlZSSb4MoQ1EHqrR14Z
zx;UPb^jS2BYxKI>ohI!LSc6A{m+a*5c9tXjnz`YhD{LhkFAGF&yj><`&MXH7JVU{3
zSzA6-D0H$cQ+&(l9I=vR!7UwBrfB@sPs5q$`O>a1lyDVt6sWI4(3bex;yKX+%eehT
za1c2$K8W%wJE@GgmU6>}W}K`oVi~-a!$aiasmZ9PoXuTgSiZH39}Df%n3QJ{bcXf#
zYQmXjV{6I~r@cIpfImQ@c%XoiTy_E4;@n}XBsz^58U%f<!|kGPOnJvI(Q(FcFVg9h
zd81hdm6BlmW;@FD&6C%W(aZJXBr1u+rN;?eB}71M#GQgWhk<lZf1#ClTaN7EMsUdo
zBR8LOsb(Y4+E0(S8e)#4Ib-3L+&=4hHHzi+sjy}v4qepaG3Z+KI9!F6S}z~76$8%C
z{3ouYV#f)U?A^YrsmagXj4mAcy~q%#fNg^DD$-;1FYD$DEI7|rpVnR>r4R(pdFCV*
zSaHS@p?u@g<9X{9^JUr@rN}QU`yY~&@+%ED<<Y5El(@c}3g(oMqtqdw)<y<RS&0z<
z3>R31->E%$dfux5&pfAdIVvHCa+4H6nHcb?P)wpHBn6gGO%1zsU+`v`Tomj(LD>LQ
zXU~;VJ{ta$(CW=MiEif2p43)-29<K9`TWncqQ+Kjd=Ry<!fBY3korE02}R^1->f4J
z3$vhUdlz?R0-WRLOW$IFe5EzQ5DGaeH^CA$g=g?{f}xfo6Ag~6sBEffrc{Ag3(f>#
zual*DlpuxuE$tYVMck(P3Y*0~suN^xhhl1j{1i11Qf4hT`&d;7+sBH%KiVsr?Toix
z)I-&h_*#DUZ$E|q_xt8m2wuG7la87#O^V*enmr>!J*B_k9T<Or*bAi0Mh9GevX8{K
zNcWm*soBqpdR0P)UucD!mS}v)A57Bo6Z*)>S=$~L7dCtL<3<@O)I<Q-95|^iS&z_(
z$^arS&hiTwDW_32WRHj4f)CcrlbX34Y+8XKVZ*QYlSG?2=lS-kCq2-oD<(Adt~{~q
z7k9xac3r{u5ft;JOv7;Fj9-3ou<VhQB+!mf1_S#ZwsFaa`m+lSGl8RnrlAtkDLeS_
zp}N<33v$Vjzv4iS1xhoVtObH-dUCtU_%B*oS4t|NqbBO|2M0Q6ke+sr;R$FSk}+UJ
zy>@37HcyBMvNG@wY%XTE(He8$uQM#9n)ci3GFljHsFgvnt!f6pw*e_?t^LCHjj!3#
zweeSm=-M6*&pR)Ner`1+lFc+vYhFg1i|bB_OOWehIX=p!{!&TP)^2|(_Ei`bRO;$q
zEya*WieiU@+PsvL3uqIdZ1KyPJ;2X9n(=V&+bb&*=yd}=a%Sz_^@bvT0khGTYRb5K
zO0FlI&nLrF!k&}=+6GxpWp>KWY8TgZo>LzmVPQ9Aad9w9y<jlQKmxu7;_0aLlKd^9
zB8qT=o!|znZuU|DVdq;FoA{?2iAQ4ItIFt1^s6pc@)>;4<^cX05hD(N#!5~C^}#@H
zXx5`zf_aqM!<8rxABh+~#8y#ppJ|P_`SjJuRqIcShJ33{u}x-@P9FR6{6rFGMEi-?
zF$sI{A?d}CRYbr-J9r-TQbY~vs@b3Y-h0Fy7uB8N-2n6h;yDG;?HED7&eak%N2qQY
zXi68bWPH39?Xh8Ec?=I==TUjyO=wHy?$uc&OhwOZXd+SQDFX46gjPw)QFEUwjq8><
z%i>~WR0oHFQTt&$eeba#iiL+IX@AC#{*<8I9SP;(xM8F73o5mer<Z30-2rkX48xs4
zP-gQVP*)$>5kK0wwVw%ExT2WM3MS#Fk}Hm;Yt?E#skQ-x1I`)w_wS%QTwKt;-rTKS
z>ACoJt_`a7=lLgF>Z?ekv!VCr#`8KPOToLCQeT5x$b(8qkorZ?sE9~;lGKhegD7Bx
zUj5t&tnVTFK%Zk`i&;S79|AMj`6Ko7a5xO3UdvLa8}%8ja#i%@<@&CsjOM+WbNMr5
zqsRv)sR7vsCipK#R>_>`M+{7wicOl==S-G<dne;<Wc5Gpx9+#I`m@+)gKsjmWmkp<
zq0FHzZX`tF^kusaZrRf20GWo=$fbskMo2$s<0<$HrnQL5Q5ePqL2zb)O<dOhcpCTJ
zUCCfkmYvdZIa<Av#lxg;f=#o!!O0B78l;p{=6n<7+qe3WYp4z4IZ&81$zKB?P4mfA
z7Ahyz<jCYTvaGzSRXclm_AkSX?UrFzB3=ywt3}zS^x*Irq%(k7VvF(`_v1vpJQuPN
zL6$V-IxK-RHvd`NCh{zKi>nE$Ww_Ce5BtQO;hCX`G`kcupulr+Tn)d8NSG7@^O8ef
zR6doJ8rOLd4Ex2=HPMMYV&)?Fb9SjJ@Ppfv#k|B=_h}a}7=u8OWWI^V@#*quHHopf
zK|e&A9r4i)$X_2T5k&Qw6Tk<-;#E^Z4jn!(?)Kh~+%a;tTYSz}47K*hP8CV^p|B-Q
z$ePyhK5pldURQJp<Vsi3fm{C(%XE~i!)bB=vHYX{*{OkposH|jJ7aJMxO#bURu)&Z
z4pwk`TJ{+vRG0f?kcfR4T?X6Cf6sL{2>lv0pHO&W-Z#HkD(_1GB+NX=%%sJI*Y3!!
zAgmjTaW)%u(slyUM-bKFW*KV1Z6wkmL!;d`d{-S9b|n0o@nDG!TwlqY{$;>160mM}
zJxY7t=&Iu!97A5dEj7YJ$WobN<@%!<fwV)iLKh2SrDt`_hKWBo3>#MQqoU}gKuhVQ
zL@0G~)Hy*Lt)1QS;blVj++|jl9Xq`U*=9OC8VxE1-z0o!Mr-Ub%cl)X&C$J%5Wsf$
z^g?A;!njaus9rJRIq@~eCYR!Q%b>(6wQSN?3=8(1TLI-JHtzkbhxzR<3&Wk}BlhZF
z^QMuwYCtEWFCDsr5i9z6yWCt9zuQs8#5!VsqJ$5UEH^1(=8aS7P~P=mph@XEcsMw^
z?X2I6M2tLzrl*V%QI^5O3<C8B^kD2q7k%=<SO2A8`@aO-1S9*lqVdvUZ^@}&4%EpS
zb0#WIP+j)46F3L&nROxWww_RvAcpLFx88oC=9-3Uq!AE7*`-VuK$>WO`nS)hz!2C+
zcBMDfM+xe!?a`_wiq6&GrrT>>YGm6RW$8N+U4Ys&e)tStavPRxBu#KkBFjs$b~=s{
zl<+!NGR15bpB+I+Rn(+Z;OPhCcT3%lcgy4Dkk!^(*Ji1q!0=<R{@-N?gPM|#loN{z
z`zYadnlzhZbDhMeZ2iWP=Z3B%CplL?L(qS|QNOkIygRNUQms9I&D{_hXP<0_ol@xR
zCU2eALhVv()f_C@YzVLRr-n!Cq(A}09Q_Qfove<&sFrw^>MPDn*7}(hj-H7JD3GKC
zX*$#KPYq&kzpyrc&U;KD*o|L=VV6r-yr{!%2^~*A%U-VOkPUEcJ&UuuGHmE}0+#3o
zj|5Ibv{T<TFicv|E#Y=)>Mk-8#;o>GDd`Cu8l!6UF$kBGrnPt>;`T%Ke;htlk88`w
z6b&^&>;WlBuRz7#G(&F~Ci(BBMz#*FiUiKC$LLGKqU=JVO>2$`sBxIS-nx=&r|pSz
z9GUeff`U^GFlgQLI-}PpnF%HvbNt8IiXU5djQ1^VyLHEOw<*BR>W-(D{-FZckE=??
zT6%Ck)>75#E!jK+j2??s|Fkg~7(TRN57fUtxMA-V@}(Ac-K;>KT=Y~nLGBJiBiHqe
z6x{*!ElR9owu4QRhk1tHXCIU=Uhg*ze{#`N&A6=drE-auqz$`GE0}FmS|g}1-SFkl
zv(?GlW#hx`Lk1)-zI92FeKEYQa5D_cX+S5+9UmduPP+vA4x~{LP&!M4T1f#-%_&%0
zuQGYh^_N7&ou}t@>!b`7z9e;)&L#y7QK~&!?gA<tS?0uS$+kYALaj_%sJ#Rz!KFZz
zJNevGQ8{_K7tDLfwm$J-=r@#($_NS#Azvfv#tZ@9Eo*BM?7Ww(Z@ob<LL~>iR~ze{
zUGrTxn5s3v!7`mS@|W=G*%w7vMge<;2o9>f4N;GTP7Od;gUZt<^RL${+HT|8TOHh9
zH@jxOZsE3jsGT8~Y*m>Nqj!=Sq4X-~*@I1Un5U8LUr!{^vzb}ck67+6EBKFD!L0L{
z+f1o;daE-C8LRp`n_ZyZw_&kT1Zx|i3~t&7ADou_oD505#0Y_XS69zqHJl-&qz5hy
z&uMy2+*%=9_xdf_#e57+IkmW=oH}|WX{7#tO!w1Y3w3|wqXGL3PRyR}Z`jL*xs8%?
z%c>VeJ9g-x+Y`?yG3Ty`qffrLt>xKiWod8&p(l-y>KR!1cM7b*l57A$E|cu>zof2s
zEKlET|2E>~>ZwMzbzd+f0^L1i4IM7`jMXuVOEf*R<fcx(oKUDh2CW?25J&SR+B0cP
z)m5$x>d<GeYU{o~NUv3oX>`sK1;EuDZD1buOm4b8$9utc+Qd_A(rU_7cyNlIdvD2u
zXEh594^5N({{zwHGHX|50{{R31Ofm60{;L201yBG00#gB00{s900VV$YyboR2><{9
z3v+Z~baiuIV{c?-00aOD00004ba`-P00aOD00007Xk}q!WpZ->1ON#D000PWZ)9m^
uX=P*p1ON#D000GaX>Db500aOD00007V{dMBWo~o;0091!@`-xCmH+^yEeXp2

diff --git a/tests/testthat/_fixtures/51e4c0280615fb2fc232bea02081489b.rds b/tests/testthat/_fixtures/51e4c0280615fb2fc232bea02081489b.rds
index c701cb16ca9fb25d2b120dbb527d1f61c73198e0..b1005e7d77803eedc4610dc10a190310216aa388 100644
GIT binary patch
literal 507
zcmV<X0R;XZiwFP!0000016@+fZqzUobu%*^2ns@C!_sR+noQ<VNL3=Spn!N3%`D0a
z8Rupus$)mC(`k1|{RBRuEa5K@njJenfG>a*5@4rE2aTnh_#PeKbMCc|T!fH=x}7cL
zbnN!F`SeZPGO>la=(_noTxeaYI0%-@<xW}2xhM#$iXAG7K!H5TDFjq-O>(YEDKf%y
zeU@lA)%#qOU@CZZHH5xwRCX;XD498FvO6ZeJ(<l8g9t}qh&|U<1+IO4Rzi%|WX~m(
zf>ORENWpx<m{|Hk=JTA#_^#)k`jm+(^|d4vYMMD5<KdXn@gO7bfZPv55=OfZc88<M
zcrY0aNg7elO^G&AQ=;$TXoR0t+*pZ*IGn`eK|F}?!Hb#a+O9#y_&|s`1N>OlKGU^f
z27Im;F&=xaXGYwq2k;)*)ph<GK#ww_R5KN)0sDuqrcaNkZqn^K)n@m{aBf-zH7iMf
zo`3zlS0x|hkBc0BC7<40>^)lf$?Exe_PY3-tX|6LclmKsm6HNm)$InnCLzrwT*<nY
z#DqAm%GQ_Zj;{$fN(pAXTxB2|$Wxj~y#e;L(1cyuukW~*5vJhMlk>N+(QnwDO0rhK
xRMVAuOGOF|)U_|6wX*<{f>f>lLZo??LwY5f+a}l6?ZsFZ{{Vme{5<pm002Qj_jUjP

literal 522
zcmV+l0`>hLiwFP!0000016@+Pj?+LC9rD<Kkr5IN<<tnrj}UAufwkHd%Trm1i*#r*
zzD_JA9y2p0q(GwJBS2Jq01_QSqN1XpS_x6oQ}72o#$IQGGSao@9-Vv7nL9Hv5JD}~
zL2cA(SKABv)6;QY$0?1U(f=EBr3x9^_Hw!G7p0i-1!3i)Px-=@Af9FvY|3**vRoE|
zrzFqRDpK%FUC(&|x`SDFL+Hy^XQLw71=E!}yQt&)tvEik-M))G$HAk!rm?3xL$0iN
zRX~V01*Wk}DM)Em1i_iL%NSo;BazLrJj9nwV`A+wUM5y72!)!ai$m;BuLjf983evR
z3<jQ?1pYOjI$r8c-INXorm;_ymWt=)Wjt{4K2UAObFk}$o)cd2@xlGrG{*YmAVPe=
z`HTU+DQcg|#_&DJXKEhep=p?U%<XyzFHp5Qt^bD5rHn|~Os3U<y~EM?_Jpb?-KkTh
zcYieJT!o-!Mblp|->vTO=+)aFAA>g!qtCz5lc@JRI(qQ_>!<Fw=x7{=KR>+QR?W!*
z)~Y)Vcv?V`2{@58DiY)TaapW=>5I-cgtLVJB}gt)5DjEXMTFV{yNWBqj_ud?+)W9S
zaO|n|x3SS{*zHoVwSexXO8JQL1RAKL^h;RVnFC2c$hH3kPqH+F<U}^B4!N;jT}<WT
MA7d05H~0bo0Nq~#C;$Ke

diff --git a/tests/testthat/_fixtures/936aece313cdae39b02cde924e52eeb9.rds b/tests/testthat/_fixtures/936aece313cdae39b02cde924e52eeb9.rds
index 3c3f72ea9c77931b26e35a9d22882ade973b14fa..29f2185a1bc4e6ed4de11d00c1790b86b898cdc8 100644
GIT binary patch
literal 1139
zcmV-(1dRJ1iwFP!000001D#c0Z{tJ|cmG2m2#E)H0I@RCJ;jclq-nars>)rjcW}L{
z)S@dwDB9SYWa)a>-CZXQRV5@|fiJ;F-~lAQz@dBLi4Vbt0A_8c?Nx_P!t&qQnc11&
z%x`>Ba~x;cSzTFjmRIcSJ8;{8>utD}oK@#_cz!f7Ceygtq{5%EQ^TYnYVJ!lZqAw{
zV}3TtK&@VwIL@<M<{y$Q<18lDuKBf=qL1PUQJR`4HzThHD(^YY+V+Fv<HKePwSoZE
zYY8zFqa$J(sMSHA<^trcHVV3UGsIyF?H?T1YnrMlRT!nSu+!S~=@}!5KT8EQ_1d`?
zOJS%mo|$LVlbPLKV<e;&Y&5b8BSq31EBE#ue^IY3tP-X(shM5FhzZUF?V}OnRDe+g
zS$m4=oEzU}RIg0|5sY@@m}bV?6R}K~7&nd;CB`G#`&<~6YeSR9iFaSB8BqyMyhA08
zY}}Rdl+ng+ZYEN(Zwj0s4iZmjk%N*PqfD_WK+-@dxPh&wgtMd+kaLfWX%t+?4ndC1
z1f%WVwalV`(JM+(uYo6wf&xAp07h}v4Z=1`nbwW+ql+@4^_7aJ4KX?3S4zv8c!s3_
z0GL~qenNE|xmLk#po!F`l9c{juri9p5TqgkU{}V|G|m+>faxN?FzB{>ovkqFLpfre
zC-f*E-jgX|LiYh5$|XtaHAM@1BQd%_?pVn@b1`yf=|E5pySw0T0RBMO4LZFb01*{Q
zCYdlAgkOSHuDG>Xv^}hlQ|fU!9z#x+0xYEoBLxGdVUtb)V7&u5P?AQocI=lyfU;!=
zwBt;w(*adVsyiC+NXY<_i<+R?ys6rJLA4qBfgiZ&@+)*%uR-)hMy3A1$X8}HB8=yX
z4xr6rTX0wdf19wPbLdm8Z>?O~;u&Z;+m0ALJ-F{ZBG7ERg>uyDctAtX(y)I>%p_{|
z9{@m41fTbdYSI4QdB%Vh(NpMi)an9lc}3d*7w3Yu|GA5|&*hNtmu*&-I=VH1{%;J>
zyqsBHunePK+uscQu(##+IxmK|PvyhIXzvK$J;t996+@E=f;*w#-o`CI+``jNA5{UO
zDgyNKNMCgPxU4ixfFXSZTrm+;AP5)99+j>Rp!av7_uJh7I7!Os0vs7r;M;I+C=jj=
zBYdTpz27?aSY5s`d)HzPq^kz<awXh2d~)>gBsSIOdhu!C?QhU|%SxQ;*iq}x&OVs`
zxbxGycYbJnSKIk{DgSKkmp|b7*Kg0?|9$7Vdh`1~KmPUhu69N)c3rQ8uPNY+qF3A2
ztP%$}@@x?o%qnrM@CI<Y7ziV(Dp4I~jWV}{YepKv%kb@=#2H?=Lt^4dEYplr1Eg@>
zhI^J%HFxm^j3I!}zIdU%3wRG2u3?5-O(9`m!^yd)lTmqswVi)JQtRpxjxyopf2tfe
zs!&#7ax9`R$Kn9~1hf*Z+8MmabwWu(m0p08!VhD_XmXVkvj|?}VrRHb@n14DJHN39
F003mXDEa^Z

literal 1218
zcmV;z1U>s7iwFP!000001D#b*kK05PH@p1<Mn*_nxG^#k5>o8g$?kS{B5Mh|+wH=(
zn>L|cL{T)cUy>oV$DJ7`yRBA&Gu$|U_yUMK5+`mPIB@M}=$S77ym69lyDC&-<T&=5
z_vZcHzn_n7%d%FiOV+BjvT7dR!rN8+y@|h9Q2rYJzdP2tP_$l$+@JA@<|1eE)E9D8
zpVe8x{bF38np2rr*6$b0-(f|O@|YRB`WH&%EfSBJRG_0$54}xPdE2rse}ALb>(oO(
zB#j^-M;|-(F4I6sZ(P<$GbFnZ<4z+W!4?hIX=97*-|RVd7vvNqCD|-&Zf*MTfV0G(
zWjScaKK6D*t|8Z6@3a8#s4x%|CAm;J9}XS6(<~_2=|pZ9fc!_4e8TJ90%Fcmx`XFQ
zmbObR4#kM)^-i-xhC-4|NFY2P3g0!ZuS=Fa<8ycK)~AlW#Iws)Arv=z6m3$TLyHV~
z3OO1@m{U)JDpT#7d^z@AL_$eBj-k-rULK2t=c8Ir0@EH--Y1BtR2q^Rx)pN9WCDrT
zkwS~wjt~<LHH14Bl0U4ffH+t@hAKN!q?8nrPchjwlHoDvddgCs%mwVkV<U(H6Ve@c
zPy#9(B$OO~(72~=7wx@|HrwrcUgKmCw{hJ*kJ03ul9v?!Tzwf9C8LMDaP0O7tt+<`
zSW4oe8Egb3<4V=4m-T=YOsS_TURN_+Vy@@Xd1rV%o>iyDMx~X2iX+!3V3E37@)&_i
zmSZ`j_PP+4l55QMGVU<gXl|}u3xgJxDNf4-y5(S3WQ^ykg?WQiu*9+NKxN+(lsqEt
zNQ$y>DRF06KZn$<5f{(v<9R6D+*k_&lt7*og6CSH>@zefWok^8U5Gnu0$wUc*kdEp
zkvxNhv#KGdVI8KJG_|cXHbEB6nz1h{45(~I68nE9<fIQ$3i+PG&@<M@*rGbB)}K|a
zKc|WV82Eup&ORq+j(uzIunK6d-`C=0K@AyCO9}m<WU(nZZsBq3xT8w!UZpPVoS8Cd
zZ{DPo+`D<*J7m~l?MgXnh8~W+XU4wOVR{_ZTQ@L2M|pbMQl?hW+B+#Y&PsGs<TVn6
z<T?xtO@t%}Xmu@V;$OXZ`>7bP^hM6*g^n)p!T-g8ZJKh^>IWT@F~70qhwB^uM)P@i
z`ydWF(f)^Y@76v&Izehl=z8d1Yfvxr8(Va`)*=ghWC4J@7$^?WoHFjPd;~ZcgHsLa
zeB=%xAL%hATU(VZhj>m%6M(`)3YdapJNSiIt*HG=%dAT)&rtj2IK@d?@cqg{c(rrX
zJvff_;`K`Ps`2SB)Oo{5ti{^??$@uMyf0w;r|6eIRk^eM+mBD^#{HkSAD3T!bN`36
z?Z?x^o_zbqMX!b=mtL<dgs)1R4hc`)+D0kGl$OO3S3D1K@%lOruQroE1i277N;9c1
z2rp})SvrSrK2+A=kvm{I9>*dpQqb7`u3K}F8Re-<A0fA3s?CEJntP7VLCw`%r$#du
z$k=$Lsi%_R{6cF(YB-MOs54yifLH!r#CUZ9WfeJMiC$G)*GJBTh3Jw-!d=EX29|(S
g%j9H8twRpU)0nu);CWt5JD3pv0e*IgZ4d|m09GMS-T(jq

diff --git a/tests/testthat/_fixtures/976e3d01a855e39ebd71c60482a1cac9.rds b/tests/testthat/_fixtures/976e3d01a855e39ebd71c60482a1cac9.rds
index 793a08d0485040983a739c2cd08cb45b09a3bf95..53f6042153252064182107cfa62d491ede763769 100644
GIT binary patch
literal 1440
zcmV;R1z-9fiwFP!000001D#gQZrer>R{RsU3RD#6rME6vw6Fp3PqJl)0%16bouti=
z8#_pfxG+}aNZfk4%j_;KD}jNW`T{-n1$rrZZ126aK!H3(pP{$5v!oO|MuGsPEs>m^
znVp&az8O7kHX4n&#=`ui#@xJp{0P66@be*lE;SY!@8kW`%$Pz)z7N71vm?W#plaet
zHS)(kEtpqi1*)|wlSbqB3+A8DqTno{*3SP{OVKAuMwJE=muBd0pvuRM#$t49e}C8S
zkWLVgRx_mrBC<zKn{-ym7o|XXr%Qrfv=&BThuplo-)d@5$DksTkHhZOz=NlZrrtOg
zU|P)+H<7}CFs_*t;L5^ouOlL)7Hl}Q3PVNnb1OHt?|t2B&a6_V3#pl1iwF~(3Fwm{
z;~>x|#;jchy5z>Q8MT_nSdoZqB?%P9-4=;VnHaVA6;R_+?LHJnmD)hse(df@HKr<s
z)ZJCm$o6$9j~KMKN|Q;&o>g_iIB1eVm4lKzB86hdSduo$(G6~WOgT$y0X=c)2;$%@
zb_{Z4vWWD;&Y94bAtLWMi&hg|MI@-|XCsJ6QuKnbM{=fhd-hULtzW6Q+E7zs0c&Y}
zD6U~SRshYdN<Rgi#Ew;P+9Z?OOeM8H2d#`^2?nXCz`85rYDh}O3>I~kU>Nke8>{PK
z(8u#gc$vapIk+Kn%7pG?fq+Yzwwekmdm|(AoH!#T%fg9>GtLhMaNONNe~0J~g}q>P
zBM49gA}u5nMx*cvT9t}hn;GtLg&u*+<!FRCSq`uqQbsEZ9EUy}V}bQ1<^VL0$KAxM
zgFt0V55(hGs-r_tN~+H_)+48fm|X0ms()V9e@)d7y}%0`a{3K9Z8b6aDx+He(8zaY
zHKdG}3JwwHi9K*!Lw{?yqDus-))!Vz?co{3oW)~A9^Kt>?@&bBR;3(wR$b(wYkAn;
zr6!C0{w*xfeZeRF>a?K0eNr%_Mf?bXPC7m0EuZo>h^qe?Z{NC$dy~rn<!{=oKI-^F
z3;Mq?Ab2^mykJE{HoD$g;DsCO-p1<d;oSszdpF+Ri>~iS*QiPmWP(Pkq1U|{b-Zvr
zI$rIQX@F!J0eN$zuRFe1pES0B0o*~Zm>5qW2xrOe)voR$_O}rG-Cls4q;-2ij*I~L
zHkcSd!nLr6&sWX&MZ;bTbLX1xV#1Mh(~dkh6)x@G-@E-dG1J$})vLj$e^BQGD``xx
z&Afc_=g-9tn?HTI_{+<`zT5nD`Nda%{O#lYxBSOvOPeqId*6R{<-x^WZIhhsdU+~*
zPa$U%yxO*Dl{l88EM{?GuM%epSCG?HLl}aZidxufl(`^WG}2IBhi^y8T>9J@P?Kbd
z%nJ?%N#Qtc=V=LQ;zZA}4Pp80LvO7chBFCEov0GD9f7Ms+cC^=Yde$(NrfKZ#8|?h
z=s?6V*%l+tbVlO%K-j<7%FHB}*eE6_Me%MXk<u(7x&V$dWJKhU>^!`-^`K408A~$4
zGy!HZP=pFX6D7qYCqt>ofwNO4N05@TAOo04krK)|!2-&WsOHiE@*Wjaz}bL$LnW=H
z^v<F|bcs?Vtm^l5M7MXhmXBbv5)uEP3_8iiu(bCysNRx+y{(0{XxZM@udeuK9`DI=
z>Zq;?SuU{0P)_Psy<!!YHAjf9kS%0{VzShBde|0<p)D6mj&ShW>0mW-FjP;l!6vp$
zI7S&Aa3B^NZ9+-GX#zMgIA&Ru1xb@)ySGP671(Xt1UEiQIwlW*<77;U0hMbTY#nX&
zg(G~F;lhEaPT`!@z6BMpDm61Y=Mm8c0vlAd;+*1DLw@exDax0oV4TO<F~e^?7!UEs
u08B*-b_&nXo&m+I^o$-k{$?05NME6vSq_~s!%lGv^8WxtFfgXH2><{Hx4sVm

literal 1509
zcmV<B1seJviwFP!000001D#b%ZzDwzHpxD~$biI!8?6DMtmLt0;ylM11#e!PCA+a=
z?-E2%wlh;6H}2`4?e2-=T}9%^58%Rq8xj&iLgL7Q11GNB5C{GMSGWSzV|$a07FJ^X
zn3?LTu1A0M)j_#bD$SIxlx9mav-a_I{JW07*YNiO%3s3!TYY0P9n|X}YC|?KObV(-
zHK~&Nuud~p%la9rRSJ_*>8DHPZ_+H|ETYz~{;`&#NuoYg8cdj*p1Xo7Z<I<`Kfl%O
zw(EY)C-a_1_TH<MH>iPtybp1eG(55a5w6U8#9t2PmjiE!Y~Sft${kQApaPN({l@A-
z4IVNY*M_M8Qz;*~>rxmH#_f(WaQ8ABf)0p~TCiTPQf@c0fULJervpI#BTF`5^-cy6
zqdZv0{S@V`+{j&-Fi~$e+N38HNu>h9L{HWn>v~Jk^n%Zg&AT5|%F}o@n9ihTb}c{~
z&IB|`k8u!a6k<(X1v=-ZX6scc-^WM-(uyL;jJqi!88eYoy9%grsdn#SM7cItD0C~;
zkg6DBx2>d+)paQc45}DzUn=&fI0cM@Mtvx%qa+VVrq~G<yGl~r23?;}&f>9vp1L%F
z(6cG+!^0d<VJ8mA!Mmdcnq;lb+exc6Jk9U*bgR``zki;it$9G6bNJ`#)3gGTJYrd;
z+)B{8a9ac$kSJ?-iz_5$T34qp8P)oUirX>N<XG#mbc_tQ%hF=k$f`7B&{61E1w5pV
zQ7pnh6%}|K%D5efa>WeRdYZTIEj3mamVK{@#}x5AhE9IGAydkPZerblOBz?o`%u_-
zWk4PiCs8uboPapP^hf}As>H$lj&MH|t}HEh9!fyOnPkFflzoUsx#HGjib7nW18})a
z5Mzl&BugP?v;gFZUxyPcnqJceL6C;SMpRQp45(~d67fHjYH$QfN%fA#)KhwdxrKF9
ztzT5FKc$Kd=+!)joP9*jD&@PIyG24{{UalvmsF23o+~)&DH_=$$0giu5m$7M=+*kt
z%9%YT<Bma!y?$rQ-KB`IR-qg=JQv&EwQb*QQ_~OY&0AQXJ;6s!ZO;mto2MDWUI{z7
zK$`H$Z7M8H_{5(NJP*H9n)p{Q?lzallt0Va_@Ki}eDHr`K$vo7p}y0$6|2oJ)cnPz
z+EU}`@U}tjw8QP2!RFoVVDA*EB@Pz-+VXth`nCDh;AEjmCh?I;0OZ+$ViS!iW1ory
zurZED2K0H$?Se>5KOl`&zYq$D#*8!o$Xw)r6R4CcI3i{XZvUiYuPZYbxczFxv6Uu-
zKQj?tZ|`+>4k9yoy;i&$eEJJ@Ua^wW<XU@h^OqmL?Ebd)Mf53r_U+!<53hdr_Se5I
zto{7WgU#>%wD-Ti`hD=nWv`Ycr(Um3gfA*=4+T%$maP)Un&#Owu4tU%<n?9jUSnIo
z2Wld!XhW5`B)n>*p?n;^om4ZO$IdY|Q9qJt#=#)|9jEFbHL8&lJVtWCTHA-E#fI-s
zB`kJ=LQr)Cu6k9+FvG2FPa^yj?f|F8HV29hMHrGzk#MH_Bn%IQ{e)I#MyW(j7@-u!
z?Y_kBWf9RCa2z5Dkv+0??`CViN``$F^$F7inCXKeh)EhLDMo2Atqz^7JQ_eu@{AnA
zNQ#(H&IuM!CZZTjhuGq%7y}Lm)axl}EoJRI8k{g97dREI`Z%JUc57|`qZ<LKALibC
zw9?D%J@$&X=-A#C{jq4y-j-Ky)X#UkEAz=l<EmKsoaPAM8>EG3S4`&GjsQ!J7|C3w
zWP*d%QoPkj!B9Oy>WpkvPN-t^m;<p;s1iytP9q%jl4DXu6_EI1<Z*kF6sI>jtrB#5
zo?}S%f#W2Mi2;>r8{0Uz;txl5(#M5EQ55}xRWVa|QJAUGg&h%GAdq{C73U1EF~Vp5
zo`CxL1beeM6{c|2#dJHuDG3wN6@w#o3hq8o%t}wYA;n?ZV-P<9F|#dm-UyZeET;bf
L2Vvp_0tx^CC*0c(

diff --git a/tests/testthat/_fixtures/aa4b0a131ad85ee937ac2fa09743c560.rds b/tests/testthat/_fixtures/aa4b0a131ad85ee937ac2fa09743c560.rds
index d173b6db2b060c37169254c56bc2668bda2bd54b..e1984f720a4522d6d8fe7203f12d08e923f9402f 100644
GIT binary patch
delta 246
zcmV<S015w)0+0d~ABzY80000000Z4pK@Ng25L`;d=#dp9fBPOV-yC6Czk_f0z^sK?
z9&nhM-7n6idCu!ny*MM+6QNM+riV4fRgorPhQ~M*hghWH36<P6cT<%oQlK)&YeQ-A
z2)?a%IV_aR!6Vdhi&>yZF^M02-p%=R>Bu3STuEJxNP$5oECX{H0#RbNi{6v7cI0$=
zUkM`K^c3(&SmxqGJD#1Co!Br4vvFXGGT&n+tIOb^JEDV@&bGHhrXiuj?Rrc9bM~Zs
w&uN1yg&uL*4L;WgS@o0OBl%9)2L}4<e7|D<=Rl7Q@^1ot2X0h)#oz@109~PS#sB~S

delta 246
zcmV<S015w)0+0d~ABzY80000000Z4pK@Ng25L`>e;E@$1e}f0iGe=m~@8H?pH)~<m
z#M}pF_lk3Ap7Xj?FV4vIR4CNC>0wQARisIn;V}-yAr@(PLM3<2-Av_)6sXMc+E7|N
zf^X|x4h!XS@CbF>ViqV;OyWo1<mP<3bmWjuuB5I;q`;sPmVvnpz9=!<MeoU3J90X`
zuLKcqdJ1?XSab2A9nVh6PHY&2**GvoneQ=^)n#zd9npSEXWQE$(~!{NcD<$l89XW9
wbK0Ovp+}r{gU|IrR{iAnNWK&Hfr0)y->=yJInZN+{F^}E0ozu=T;K%&0GN?@+W-In

diff --git a/tests/testthat/_fixtures/c6ad8510dbbba26e1ee8e9e21bcee98f.rds b/tests/testthat/_fixtures/c6ad8510dbbba26e1ee8e9e21bcee98f.rds
index 02db7821eafe4040a552b8d13972afc95d3c91e5..d569813cbc7aa14f0b6df9de3d00354a3c4e0ac3 100644
GIT binary patch
literal 187
zcmV;s07U;EiwFP!0000019gzy3d0}_h12RNb_@pFbM$$3CuwU}sef3Dd-^fQv=@a5
zCgw9I9DTF^Py;0u)Fd6rErllSEBsc;mqY#Mp4KT;K!K%vGN{Fxo0<&UQB2avAg#%S
zIpH-bX_f-Qyy<@Bo6CSk>&K#xUWOnH-}Q}np>|5-@|@M9jpk@*P`DODB*VK~p8V^S
p53?8+zWE-@XcBt0`^JFX<Wu8eD)TmW<*DVL-XE%E_C;C&002OgS;qhX

literal 191
zcmV;w06_mAiwFP!0000019gw@3c?^1#cf(+iy)}y*z@#F+;k=LAI@P<AKmD>52FO{
z^>_5>@zxSTD#8dQ6@?|eK&fG#$#;}~+VG!!RzcapeGT-z6IRW5s7A4sYSd0A?Hwvj
zP|*sb-Bg71SZqJ@C7{5vkFxl4)F~;)SAVUZ!Um%dkLZ>@yG@`b`rMUJKNAl|%q1~H
t@fxN(|G4<@P{YKR*o*S^A@zpK5s3n=-xNu7V+0$}>kWl#%7ADA001DRT?zmI

diff --git a/tests/testthat/_snaps/pkg-name-check.md b/tests/testthat/_snaps/pkg-name-check.md
index 4a557fb2..9a538d77 100644
--- a/tests/testthat/_snaps/pkg-name-check.md
+++ b/tests/testthat/_snaps/pkg-name-check.md
@@ -10,19 +10,19 @@
       | v  valid name      x  CRAN            v  Bioconductor    v  not a profanity  |
       +------------------------------------------------------------------------------+
       + Wikipedia -------------------------------------------------------------------+
-      | Tool (from Tools) A tool is an object used to extend the ability of an       |
-      | individual to modify features of the surrounding environment. Although many  |
-      | animals use simple tools, only human beings, whose use of stone tools dates  |
-      | back hundreds of millennia, have been observed using tools to make other     |
-      | tools.  The set of tools required to perform different tasks that are part   |
-      | of the same activity is called gear or equipment.                            |
+      | Tool (from Tools) A tool is an object that can extend an individual's        |
+      | ability to modify features of the surrounding environment or help them       |
+      | accomplish a particular task. Although many animals use simple tools, only   |
+      | human beings, whose use of stone tools dates back hundreds of millennia,     |
+      | have been observed using tools to make other tools.                          |
+      |                                                                              |
       | ...                                                                          |
       +------------------------------------------ https://en.wikipedia.org/wiki/Tool +
       + Wiktionary ------------------------------------------------------------------+
       | tools Noun: tools                                                            |
       | plural of tool                                                               |
       | Verb: tools                                                                  |
-      | Third-person singular simple present indicative form of tool                 |
+      | third-person singular simple present indicative form of tool                 |
       | Anagrams: loots, lotos, sloot, sotol, stool, tosol                           |
       +---------------------------------------- https://en.wiktionary.org/wiki/tools +
       +------------------------------------------------------------------------------+
@@ -148,12 +148,12 @@
       writeLines(format(wpd[[3]]))
     Output
       + Wikipedia -------------------------------------------------------------------+
-      | R (programming language) (from GNU R) R is a programming language and free   |
-      | software environment for statistical computing and graphics supported by     |
-      | the R Foundation for Statistical Computing. The R language is widely used    |
-      | among statisticians and data miners for developing statistical software and  |
-      | data analysis. Polls, data mining surveys, and studies of scholarly          |
-      | literature databases show substantial increases in popularity; as of         |
+      | R (programming language) (from GNU R) R is a programming language for        |
+      | statistical computing and graphics supported by the R Core Team and the R    |
+      | Foundation for Statistical Computing. Created by statisticians Ross Ihaka    |
+      | and Robert Gentleman, R is used among data miners, bioinformaticians and     |
+      | statisticians for data analysis and developing statistical software. The     |
+      | core R language is augmented by a large number of extension packages         |
       | ...                                                                          |
       +---------------------- https://en.wikipedia.org/wiki/R_(programming_language) +
 
@@ -165,7 +165,7 @@
       + Wiktionary ------------------------------------------------------------------+
       | foobar Etymology: Phonetic spelling of FUBAR, which is either an acronym     |
       | for "Fucked up beyond all recognition", or derived from foo.                 |
-      | Noun: foobar                                                                 |
+      | Noun: foobar (plural foobars)                                                |
       | (slang) A serious mistake. (programming) A metasyntactic variable name, a    |
       | place holder for words; compare foo, bar.                                    |
       | foo foo fighter FUBAR                                                        |
@@ -189,7 +189,7 @@
       + Wiktionary ------------------------------------------------------------------+
       | foobar Etymology: Phonetic spelling of FUBAR, which is either an acronym     |
       | for "Fucked up beyond all recognition", or derived from foo.                 |
-      | Noun: foobar                                                                 |
+      | Noun: foobar (plural foobars)                                                |
       | (slang) A serious mistake. (programming) A metasyntactic variable name, a    |
       | place holder for words; compare foo, bar.                                    |
       | foo foo fighter FUBAR                                                        |
@@ -232,8 +232,8 @@
       ans
     Output
       + Urban dictionary ------------------------------------------------------------+
-      | One who lacks the mental [capacity] to know he is [being used].  A fool.  A  |
-      | [cretin].  Characterized by low intelligence and/or self-steem.              |
+      | One who lacks the mental capacity to know he is [being used].  A fool.  A    |
+      | [cretin].  Characterized by low intelligence and/or [self-steem].            |
       +----------------------------------------------- http://tool.urbanup.com/38616 +
 
 # async_urban_get_query
@@ -251,8 +251,8 @@
       ans
     Output
       + Urban dictionary ------------------------------------------------------------+
-      | One who lacks the mental [capacity] to know he is [being used].  A fool.  A  |
-      | [cretin].  Characterized by low intelligence and/or self-steem.              |
+      | One who lacks the mental capacity to know he is [being used].  A fool.  A    |
+      | [cretin].  Characterized by low intelligence and/or [self-steem].            |
       +----------------------------------------------- http://tool.urbanup.com/38616 +
 
 # format.pkg_name_check_urban
@@ -261,8 +261,8 @@
       writeLines(format(ans))
     Output
       + Urban dictionary ------------------------------------------------------------+
-      | One who lacks the mental [capacity] to know he is [being used].  A fool.  A  |
-      | [cretin].  Characterized by low intelligence and/or self-steem.              |
+      | One who lacks the mental capacity to know he is [being used].  A fool.  A    |
+      | [cretin].  Characterized by low intelligence and/or [self-steem].            |
       +----------------------------------------------- http://tool.urbanup.com/38616 +
 
 ---
@@ -280,12 +280,12 @@
       writeLines(format(ans))
     Output
       + Urban dictionary ------------------------------------------------------------+
-      | One who lacks the mental [capacity] to know he is [being used].  A fool.  A  |
-      | [cretin].  Characterized by low intelligence and/or self-steem. One who      |
-      | lacks the mental [capacity] to know he is [being used].  A fool.  A          |
-      | [cretin].  Characterized by low intelligence and/or self-steem. One who      |
-      | lacks the mental [capacity] to know he is [being used].  A fool.  A          |
-      | [cretin].  Characterized by low intelligence and/or self-steem. One who      |
+      | One who lacks the mental capacity to know he is [being used].  A fool.  A    |
+      | [cretin].  Characterized by low intelligence and/or [self-steem]. One who    |
+      | lacks the mental capacity to know he is [being used].  A fool.  A [cretin].  |
+      | Characterized by low intelligence and/or [self-steem]. One who lacks the     |
+      | mental capacity to know he is [being used].  A fool.  A [cretin].            |
+      | Characterized by low intelligence and/or [self-steem]. One who lacks the     |
       | ...                                                                          |
       +----------------------------------------------- http://tool.urbanup.com/38616 +
 
diff --git a/tests/testthat/test-pkg-name-check.R b/tests/testthat/test-pkg-name-check.R
index 5db23893..c28f8b8a 100644
--- a/tests/testthat/test-pkg-name-check.R
+++ b/tests/testthat/test-pkg-name-check.R
@@ -25,7 +25,7 @@ test_that("async_pkg_name_check", {
 
   ans <- sy(async_pkg_name_check("foo"))
   expect_s3_class(ans, "pkg_name_check")
-  expect_equal(sort(unlist(ans, use.names = FALSE)), 1:5)
+  expect_equal(sort(unlist(ans, use.names = FALSE)), 1:4)
 })
 
 # format.pkg_name_check via print

From 1b380aa7f2439e0e222501d31ac486668866f9b4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sat, 24 Jun 2023 09:25:17 +0200
Subject: [PATCH 27/46] Fix repo typo

---
 R/repo.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/repo.R b/R/repo.R
index 38ded15e..d53797f5 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -181,7 +181,7 @@ repo <- local({
       Platform = unname(desc$get("RemoteBuildPlatform")),
       GraphicsAPIVersion = unname(desc$get("GraphicsAPIVersion")),
       InternalsId = unname(desc$get("InternalsId")),
-      SystemRequirements = unname(desc$get("SystemRequirements")),
+      SystemRequirements = unname(desc$get("SystemRequirements"))
     )
 
     pkg

From b18f7164defa430ce9f5b2158d11a11f5fcbfa5a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sun, 9 Jul 2023 11:11:03 +0200
Subject: [PATCH 28/46] repo: fix reop$update()

Correctly remote the old package.
---
 R/repo.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/repo.R b/R/repo.R
index d53797f5..b1474705 100644
--- a/R/repo.R
+++ b/R/repo.R
@@ -63,9 +63,9 @@ repo <- local({
 
     idx <- which(
       pkgs$Package == pkg_data$Package &
-      pkgs$RVersion <= pkg_data$RVersion &
-      (is.na(pkg_data$OS) | is.na(pkgs$OS) | identical(pkgs$OS, pkg_data$OS)) &
-      (is.na(pkg_data$Arch) | is.na(pkgs$Arch) | identical(pkgs$Arch, pkg_data$Arch))
+      pkgs$RVersion == pkg_data$RVersion &
+      (is.na(pkg_data$OS) | is.na(pkgs$OS) | pkgs$OS == pkg_data$OS) &
+      (is.na(pkg_data$Arch) | is.na(pkgs$Arch) | pkgs$Arch == pkg_data$Arch)
     )
     if (length(idx)) {
       pkgs <- pkgs[-idx, , drop = FALSE]

From cdb9378eff1dbee5f575ff24bff74957727de260 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sat, 10 Feb 2024 19:08:11 +0100
Subject: [PATCH 29/46] Eliminate prettyunits dependency

---
 DESCRIPTION | 1 -
 R/gh-repo.R | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 8fe00632..cfcc10a8 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -29,7 +29,6 @@ Imports:
     lpSolve,
     pkgbuild (>= 1.0.2),
     pkgcache (>= 2.2.0),
-    prettyunits (>= 1.1.1),
     processx (>= 3.4.2),
     ps,
     R6,
diff --git a/R/gh-repo.R b/R/gh-repo.R
index b9529f31..daa98667 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -235,7 +235,7 @@ ghrepo <- local({
       "-" = "->",
       "new" = inst$version,
       "build" = paste0("b", inst$buildnum),
-      "build time" = vcapply(inst$build_time, prettyunits::pretty_dt)
+      "build time" = vcapply(inst$build_time, format_time$pretty_dt)
     )
 
     print_table(cols)

From 09f15414640048779537be3e4267fbf0c5f745b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sat, 10 Feb 2024 22:53:15 +0100
Subject: [PATCH 30/46] Handle build failues

---
 R/gh-repo.R      | 26 +++++++++++++++++---------
 R/install-plan.R | 35 +++++++++++++++++++----------------
 2 files changed, 36 insertions(+), 25 deletions(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index daa98667..32a07e85 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -27,6 +27,8 @@ ghrepo <- local({
 
     cli::cli_h2("Build binary packages")
     inst <- build_pkgs(inst, lib)
+    # drop the ones that failed to build
+    inst <- inst[!is.na(inst$built_path)]
 
     cli::cli_par()
     cli::cli_h2("Update package mirror at GH (if needed)")
@@ -192,15 +194,21 @@ ghrepo <- local({
   build_pkgs <- function(inst, library) {
     files <- rep(NA_character_, nrow(inst))
     for (i in seq_along(inst$package)) {
-      proc <- cli::cli_process_start(
-        "Building binary for package {.pkg {inst$package[[i]]}}."
-      )
-      files[i] <- pkg_build(
-        inst$package[[i]],
-        library = library,
-        build_number = inst$buildnum[[i]]
-      )
-      cli::cli_process_done(proc)
+      if (length(inst$build_error[[i]])) {
+        cli::cli_alert_warning(
+          "Failed to build package {.pkg {inst$package[[i]]}}."
+        )
+      } else {
+        proc <- cli::cli_process_start(
+          "Building binary for package {.pkg {inst$package[[i]]}}."
+        )
+        files[i] <- pkg_build(
+          inst$package[[i]],
+          library = library,
+          build_number = inst$buildnum[[i]]
+        )
+        cli::cli_process_done(proc)
+      }
     }
     inst$built_path <- files
     inst
diff --git a/R/install-plan.R b/R/install-plan.R
index fa5d104d..f268aab1 100644
--- a/R/install-plan.R
+++ b/R/install-plan.R
@@ -712,28 +712,31 @@ stop_task_build <- function(state, worker) {
 
   state$plan$build_done[[pkgidx]] <- TRUE
   state$plan$build_time[[pkgidx]] <- time
-  state$plan$build_error[[pkgidx]] <- ! success
   state$plan$build_stdout[[pkgidx]] <- worker$stdout
   state$plan$worker_id[[pkgidx]] <- NA_character_
 
   if (success) {
     # do nothing
-  } else if (ignore_error) {
-    # upstream will probably fail as well, but march on, neverthelesss
-    state$plan$install_done[[pkgidx]] <- TRUE
-    ## Need to remove from the dependency list
-    state$plan$deps_left <- lapply(state$plan$deps_left, setdiff, pkg)
   } else {
-    throw(pkg_error(
-      "Failed to build source package {.pkg {pkg}}.",
-      .data = list(
-        package = pkg,
-        version = version,
-        stdout = worker$stdout,
-        time = time
-      ),
-      .class = "package_build_error"
-    ))
+    build_error <- list(
+      package = pkg,
+      version = version,
+      stdout = worker$stdout,
+      time = time
+    )
+    state$plan$build_error[[pkgidx]] <- build_error
+    if (ignore_error) {
+      # upstream will probably fail as well, but march on, neverthelesss
+      state$plan$install_done[[pkgidx]] <- TRUE
+      ## Need to remove from the dependency list
+      state$plan$deps_left <- lapply(state$plan$deps_left, setdiff, pkg)
+    } else {
+      throw(pkg_error(
+        "Failed to build source package {.pkg {pkg}}.",
+        .data = build_error,
+        .class = "package_build_error"
+      ))
+    }
   }
 
   if (success && !is.null(state$cache) && !is_true_param(prms, "nocache")) {

From 3047b3867c53a2183d1ea01085c771f900a03eca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sat, 10 Feb 2024 23:00:52 +0100
Subject: [PATCH 31/46] ghrepo: ignore build errors by default

---
 R/gh-repo.R | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index 32a07e85..856e38e4 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -3,7 +3,7 @@ ghrepo <- local({
 
   ghrepo_update <- function(repo, subdir, release_org = "cran",
                             source_repo = "https://cran.r-project.org",
-                            packages = NULL) {
+                            ignore_build_errors = TRUE, packages = NULL) {
 
     subdir <- sub("/+$", "", subdir)
     if (endsWith(subdir, "src/contrib")) {
@@ -19,8 +19,13 @@ ghrepo <- local({
 
     cli::cli_h2("Install packages")
     dir.create(lib <- tempfile("pkgdepends-lib-"))
-    inst <- install_pkgs(to_build, library = lib, source_repo = source_repo,
-                         repo = repo, subdir = subdir)
+    inst <- install_pkgs(
+      c(to_build, if (ignore_build_errors) "*=?ignore-build-errors"),
+      library = lib,
+      source_repo = source_repo,
+      repo = repo,
+      subdir = subdir
+    )
     inst <- keep_updated(inst, mirror_pkgs)
     # I don't think this can happen....
     if (nrow(inst) == 0) return(invisible(character()))

From ef2589f19a6ac0b649316897430d8d599485b5f0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sun, 11 Feb 2024 09:00:20 +0100
Subject: [PATCH 32/46] Need glue::glue now, glue is not imported

---
 R/gh-releases.R | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/R/gh-releases.R b/R/gh-releases.R
index f93e42d3..c245920f 100644
--- a/R/gh-releases.R
+++ b/R/gh-releases.R
@@ -9,7 +9,7 @@ ghr <- local({
 
   async_ghr_list <- function(repo) {
     repo <- parse_slug(repo)
-    query <- glue("{
+    query <- glue::glue("{
     rateLimit {
       cost
       remaining
@@ -46,7 +46,7 @@ ghr <- local({
 
   async_ghr_get <- function(repo, tag) {
     prepo <- parse_slug(repo)
-    ep <- glue("/repos/{prepo$owner}/{prepo$repo}/releases/tags/{tag}")
+    ep <- glue::glue("/repos/{prepo$owner}/{prepo$repo}/releases/tags/{tag}")
     async_github_v3_query(ep)$
       then(function(resp) {
         jsonlite::fromJSON(rawToChar(resp$content), simplifyVector = FALSE)
@@ -62,7 +62,7 @@ ghr <- local({
   async_ghr_list_assets <- function(repo, tag) {
 
     repo <- parse_slug(repo)
-    query <- glue("{
+    query <- glue::glue("{
     rateLimit {
       cost
       remaining
@@ -147,7 +147,7 @@ ghr <- local({
         asset_names <- vcapply(res$assets, "[[", "name")
         if (name %in% asset_names) {
           asset_id <- res$assets[[match(name, asset_names)]]$id
-          ep <- glue("/repos/{prepo$user}/{prepo$repo}/releases/assets/{asset_id}")
+          ep <- glue::glue("/repos/{prepo$user}/{prepo$repo}/releases/assets/{asset_id}")
           async_github_v3_query(ep, method = "DELETE")$
             then(function(resp) {
               list(
@@ -171,7 +171,7 @@ ghr <- local({
                                prerelease = FALSE,
                                generate_release_notes = FALSE) {
     prepo <- parse_slug(repo)
-    ep <- glue("/repos/{prepo$owner}/{prepo$repo}/releases")
+    ep <- glue::glue("/repos/{prepo$owner}/{prepo$repo}/releases")
     data <- toJSON(list(
       tag_name = tag,
       name = paste0(prepo$repo, " ", tag),
@@ -210,7 +210,7 @@ ghr <- local({
 
     base <- url %||% Sys.getenv("R_PKG_GITHUB_API_URL", "https://api.github.com")
     query_str <- paste(
-      glue("{curl::curl_escape(names(query))}={curl::curl_escape(query)}"),
+      glue::glue("{curl::curl_escape(names(query))}={curl::curl_escape(query)}"),
       collapse = "&"
     )
     url <- paste0(base, endpoint, "?", query_str)

From 4022675933a1f9a48b5ecb2e4c81c5a6c99fa267 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sun, 11 Feb 2024 09:34:39 +0100
Subject: [PATCH 33/46] Avoid jsonlite::toJSON, we don't import it now

---
 R/gh-releases.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/gh-releases.R b/R/gh-releases.R
index c245920f..e28ba476 100644
--- a/R/gh-releases.R
+++ b/R/gh-releases.R
@@ -172,14 +172,14 @@ ghr <- local({
                                generate_release_notes = FALSE) {
     prepo <- parse_slug(repo)
     ep <- glue::glue("/repos/{prepo$owner}/{prepo$repo}/releases")
-    data <- toJSON(list(
+    data <- tojson$write_str(list(
       tag_name = tag,
       name = paste0(prepo$repo, " ", tag),
       body = description,
       draft = draft,
       prerelease = prerelease,
       generate_release_notes = generate_release_notes
-    ), auto_unbox = TRUE)
+    ), list(auto_unbox = TRUE))
 
     async_github_v3_query(
       ep,

From dca13de901947d87dfeaa071d2c7f86e28ebc1a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sun, 11 Feb 2024 12:36:26 +0100
Subject: [PATCH 34/46] ghrepo: fix filtering out failed builds

---
 R/gh-repo.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index 856e38e4..ccedbf96 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -33,7 +33,7 @@ ghrepo <- local({
     cli::cli_h2("Build binary packages")
     inst <- build_pkgs(inst, lib)
     # drop the ones that failed to build
-    inst <- inst[!is.na(inst$built_path)]
+    inst <- inst[!is.na(inst$built_path), ]
 
     cli::cli_par()
     cli::cli_h2("Update package mirror at GH (if needed)")

From 949b6b07e025535db9ada221716396ca246b6547 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sun, 18 Feb 2024 11:39:06 +0100
Subject: [PATCH 35/46] Update test snapshots

For rlang update?
---
 tests/testthat/_snaps/assertions.md | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/testthat/_snaps/assertions.md b/tests/testthat/_snaps/assertions.md
index 1b91a09d..8dee8d88 100644
--- a/tests/testthat/_snaps/assertions.md
+++ b/tests/testthat/_snaps/assertions.md
@@ -29,7 +29,7 @@
       ! `x` must be a character vector without `NA`, but it is an integer vector
       ---
       Backtrace:
-      1. global fn(1:2)
+      1. global fn(1:2)
       2. | pkgdepends:::assert_that(is_character(x))
       3. | pkgdepends:::throw(assert_error(assertion, res, msg, call. = sys.call(-1), ...
       Execution halted
@@ -46,7 +46,7 @@
       ! `x` must be a character vector without `NA`, but it has 1 `NA` value.
       ---
       Backtrace:
-      1. global fn(c("", NA_character_))
+      1. global fn(c("", NA_character_))
       2. | pkgdepends:::assert_that(is_character(x))
       3. | pkgdepends:::throw(assert_error(assertion, res, msg, call. = sys.call(-1), ...
       Execution halted
@@ -63,7 +63,7 @@
       ! `x` must be a character vector without `NA`, but it has 5 `NA` values.
       ---
       Backtrace:
-      1. global fn(rep(NA_character_, 5))
+      1. global fn(rep(NA_character_, 5))
       2. | pkgdepends:::assert_that(is_character(x))
       3. | pkgdepends:::throw(assert_error(assertion, res, msg, call. = sys.call(-1), ...
       Execution halted

From 7de2712152f6b14a90684378946946f53af956d3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Sun, 18 Feb 2024 11:40:25 +0100
Subject: [PATCH 36/46] Set $build_error to `FALSE` on success

To keep it compatible.
---
 R/install-plan.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/install-plan.R b/R/install-plan.R
index f268aab1..cc6ceacc 100644
--- a/R/install-plan.R
+++ b/R/install-plan.R
@@ -716,7 +716,8 @@ stop_task_build <- function(state, worker) {
   state$plan$worker_id[[pkgidx]] <- NA_character_
 
   if (success) {
-    # do nothing
+    # a bit silly, but for compatibility...
+    state$plan$build_error[[pkgidx]] <- FALSE
   } else {
     build_error <- list(
       package = pkg,

From 4943ca4cb5e07ddad053abe677c8f1ccf14fc483 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Fri, 23 Feb 2024 12:04:06 +0100
Subject: [PATCH 37/46] Fix gh-repo builder for $build_error being FALSE

---
 R/gh-repo.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index ccedbf96..1a33ca66 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -1,4 +1,3 @@
-
 ghrepo <- local({
 
   ghrepo_update <- function(repo, subdir, release_org = "cran",
@@ -199,7 +198,8 @@ ghrepo <- local({
   build_pkgs <- function(inst, library) {
     files <- rep(NA_character_, nrow(inst))
     for (i in seq_along(inst$package)) {
-      if (length(inst$build_error[[i]])) {
+      if (length(inst$build_error[[i]]) &&
+          !identical(inst$build_error[[i]], FALSE)) {
         cli::cli_alert_warning(
           "Failed to build package {.pkg {inst$package[[i]]}}."
         )

From c57dec4f08b3cd37e2d65d6930fb24b4002ac805 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 13 Mar 2024 13:46:20 +0100
Subject: [PATCH 38/46] GH builder: support macOS binaries

---
 R/gh-repo.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index 1a33ca66..e3d16c91 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -53,9 +53,11 @@ ghrepo <- local({
       # unfortunate name collision
       repo_slug <- repo
       rm(repo)
+      pkg_type <- if (Sys.info()[["sysname"]] == "Linux") "source" else "binary"
+      contrib_url <- utils::contrib.url(repos = "", type = pkg_type)
       repo$update_gh(
         repo_slug,
-        paste0(subdir, "/src/contrib"),
+        paste0(subdir, contrib_url),
         inst$built_path,
         release_org = release_org
       )

From c01bf84b5e4b07d4d3f2397be679d7478b9b60af Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 13 Mar 2024 14:27:06 +0100
Subject: [PATCH 39/46] GHA repos: fix update check on non-Linux

---
 R/gh-repo.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index e3d16c91..9656dbe0 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -53,8 +53,7 @@ ghrepo <- local({
       # unfortunate name collision
       repo_slug <- repo
       rm(repo)
-      pkg_type <- if (Sys.info()[["sysname"]] == "Linux") "source" else "binary"
-      contrib_url <- utils::contrib.url(repos = "", type = pkg_type)
+      contrib_url <- utils::contrib.url(repos = "", type = .Platform$pkgType)
       repo$update_gh(
         repo_slug,
         paste0(subdir, contrib_url),
@@ -111,8 +110,9 @@ ghrepo <- local({
     proc <- cli::cli_process_start(
       "Getting packages from {.emph {repo}/{subdir}}."
     )
+    platform <- if (.Platform$pkgType == "source") "source" else pkgcache::current_r_platform()
     r_mirror <- suppressMessages(pkgcache::cranlike_metadata_cache$new(
-      platforms = "source",
+      platforms = platform,
       bioc = FALSE,
       cran_mirror = get_mirror_repo_url(repo, subdir),
       repos = NULL,

From e0ab6cca856b65f704eafeb0a63bf3b81d9110d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 19 Mar 2024 14:45:21 +0100
Subject: [PATCH 40/46] Fix build summary after update

There might not be a build_time column if all
packages were installed from binary.
---
 R/gh-repo.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index 9656dbe0..03b703fc 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -244,6 +244,7 @@ ghrepo <- local({
       ""
     )
 
+    inst$build_time <- inst$build_time %||% NA_real_
     cols <- data_frame(
       package = inst$package,
       "old" = oldver,

From 8fc70d202d4dd6a6d31d133553c00eb461ec6401 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 19 Mar 2024 14:56:48 +0100
Subject: [PATCH 41/46] Retry GH package upload on error

---
 R/gh-repo.R | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index 03b703fc..27204f88 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -232,7 +232,13 @@ ghrepo <- local({
         ghr$create(slug, ver)
       }
       cli::cli_alert_info("Adding release asset for {slug} {ver}.")
-      ghr$add_asset(slug, inst$built_path[i], ver)
+      tryCatch(
+        ghr$add_asset(slug, inst$built_path[i], ver),
+        error = function(err) {
+          cli::cli_alert_info("Try adding release asset again.")
+          ghr$add_asset(slug, inst$built_path[i], ver)
+        }
+      )
     }
   }
 

From 178003b02f8902551fbe005704c0a7d6eaa579ee Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 19 Mar 2024 15:11:20 +0100
Subject: [PATCH 42/46] GH release update: wait a bit between updates

---
 R/gh-repo.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index 27204f88..a725df1e 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -236,9 +236,11 @@ ghrepo <- local({
         ghr$add_asset(slug, inst$built_path[i], ver),
         error = function(err) {
           cli::cli_alert_info("Try adding release asset again.")
+          Sys.sleep(5)
           ghr$add_asset(slug, inst$built_path[i], ver)
         }
       )
+      Sys.sleep(1)
     }
   }
 

From dc4ad6aa800563bac74294c73aa22d115ebc21fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 19 Mar 2024 15:14:17 +0100
Subject: [PATCH 43/46] GH repo: make sure build_time is difftime

---
 R/gh-repo.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index a725df1e..8331b374 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -253,6 +253,8 @@ ghrepo <- local({
     )
 
     inst$build_time <- inst$build_time %||% NA_real_
+    inst$build_time <- as.double(inst$build_time)
+    inst$build_time <- as.difftime(inst$build_time, units = "secs")
     cols <- data_frame(
       package = inst$package,
       "old" = oldver,

From 5cfabffd9dee9d70cb02003e15416b8c67b3604c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 19 Mar 2024 16:15:55 +0100
Subject: [PATCH 44/46] format_time$pretty_dt better NAs

Return a character NA, not a logical.
---
 R/time.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/time.R b/R/time.R
index 5cdd5a4a..00d9ba71 100644
--- a/R/time.R
+++ b/R/time.R
@@ -58,7 +58,7 @@ format_time <- local({
       }
       approx <- trim(apply(parsed, 2, merge_pieces))
 
-      ifelse(ms < 1000, exact, approx)
+      ifelse(is.na(ms) | ms < 1000, exact, approx)
     }
   }
 

From 2c68a1ba6dc563e10f7cda29de908eacfe295268 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Tue, 19 Mar 2024 16:43:53 +0100
Subject: [PATCH 45/46] Retry another GH query

[ci skip]
---
 R/gh-repo.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index 8331b374..f1a1e990 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -226,7 +226,11 @@ ghrepo <- local({
     for (i in seq_along(inst$package)) {
       slug <- paste0(release_org, "/", inst$package[[i]])
       ver <- inst$version[[i]]
-      rels <- ghr$list(slug)
+      rels <- try(ghr$list(slug))
+      if (inherits(rels, "try-error")) {
+        Sys.sleep(5)
+        rels <- ghr$list(slug)
+      }
       if (!ver %in% rels$tag_name) {
         cli::cli_alert_info("Creating GH release {slug} {ver}.")
         ghr$create(slug, ver)

From ec8f44d36a4098543d0f52e1da93c7f09e4a194c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Wed, 27 Mar 2024 14:48:03 +0100
Subject: [PATCH 46/46] GH repo: sleep more between adding release assets

[ci skip]
---
 R/gh-repo.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/gh-repo.R b/R/gh-repo.R
index f1a1e990..e2bfc373 100644
--- a/R/gh-repo.R
+++ b/R/gh-repo.R
@@ -240,11 +240,11 @@ ghrepo <- local({
         ghr$add_asset(slug, inst$built_path[i], ver),
         error = function(err) {
           cli::cli_alert_info("Try adding release asset again.")
-          Sys.sleep(5)
+          Sys.sleep(60)
           ghr$add_asset(slug, inst$built_path[i], ver)
         }
       )
-      Sys.sleep(1)
+      Sys.sleep(5)
     }
   }