Yes, when I use archive_available directly or with a purrr function, everything works fine. It just takes too long.
Here are 20 domains from the CSV file (I can't upload the csv):
bayarearealtysearch.com
twinklingvisions.com
insdr.co
westridgeroverretreat.ca
vente-privee.ma
ironwillreachestheheaven.com
july292017.com
0895news.com
worldismyworkplace.com
kinderwagenbestellen.nl
michelleandjan.com
penndata.com
zarahome.be
katherinelebron.com
watch-21.ml
sugaraddictioncode.com
buildabearworkshop.ca
h91kw.tk
uk17i.tk
The function archive_available works like this:
library(tidyverse)
library(wayback)
domain_vec <- read_csv("/Users/berkcandeniz/Desktop/bw_sample.csv") %>%
pull(domain)
#> Parsed with column specification:
#> cols(
#> domain = col_character()
#> )
archive_available(domain_vec[1])
#> # A tibble: 1 x 5
#> url available closet_url timestamp status
#> <chr> <lgl> <chr> <dttm> <chr>
#> 1 bayareare… TRUE http://web.archive.org/w… 2018-11-03 00:00:00 200
Created on 2019-04-24 by the reprex package (v0.2.1.9000)