u <- sprintf("https://web.archive.org/cdx/search/cdx?url=%s&matchType=prefix&from=202001010000&filter=statuscode:200&filter=mimetype:text/html", curl_escape(my_domain))
r <- curl_fetch_memory(u)
x <- fread(
  input = rawToChar(r$content),
  sep = " ",
  header = FALSE,
  select = c(3, 2),
  col.names = c("url", "timestamp"),
  colClasses = c("V2" = "character")
)
setorder(x, url, timestamp)
x[, wa_url := paste("http://web.archive.org/web", timestamp, url, sep = "/")]

---
title: "blah"
output:
  html_document:
    css: styles.css
---