Allow formerly broken mirror (ropensci#82)

jrdnbradford · Oct 17, 2024 · abc0d54 · abc0d54
1 parent c946d59
commit abc0d54
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/R/gutenberg_mirrors.R b/R/gutenberg_mirrors.R
@@ -32,11 +32,6 @@ gutenberg_get_mirror <- function(verbose = TRUE) {
 
   # parse and leave out the path
   parsed <- urltools::url_parse(mirror_full_url)
-  if (parsed$domain == "www.gutenberg.lib.md.us") {
-    # Broken mirror. PG has been contacted. For now, replace:
-    parsed$domain <- "aleph.gutenberg.org" # nocov
-  }
-
   mirror <- unclass(glue::glue_data(parsed, "{scheme}://{domain}"))
   maybe_message(verbose, "Using mirror {mirror}.")