fix #3 (with old download link)

fsolt · Jul 13, 2020 · 8392bfc · 8392bfc
1 parent 862ad9f
commit 8392bfc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/icpsrdownload.R b/R/icpsrdownload.R
@@ -95,7 +95,7 @@ icpsr_download <- function(file_id,
         url <- paste0("http://www.icpsr.umich.edu/cgi-bin/bob/zipcart2?path=ICPSR&study=", item, "&bundle=all&ds=&dups=yes")
 
         s <- html_session(url)
-        form <- html_form(s)[[3]]
+        form <- html_form(s)[[2]]
         add_email <- list(name = "email",
                           type = "text",
                           value = email,
@@ -118,7 +118,7 @@ icpsr_download <- function(file_id,
         suppressMessages(agree_terms <- submit_form(s, form) %>% 
                              jump_to(url))
         suppressMessages(output <- submit_form(agree_terms, 
-                                               html_form(agree_terms)[[3]]) %>% 
+                                               html_form(agree_terms)[[2]]) %>% 
                              follow_link("download your files here"))
 
         file_name <- paste0("ICPSR_", sprintf("%05d", item), ".zip")