amatsuo / kaigiroku Goto Github PK

2019-01-25 16:41:59 1949 衆議院 法務 
60 records found
Fetching (current_record_position: 1)
Fetching (current_record_position: 3)
Fetching (current_record_position: 5)
Fetching (current_record_position: 7)
Fetching (current_record_position: 9)
Fetching (current_record_position: 11)
Fetching (current_record_position: 13)
Fetching (current_record_position: 15)
Fetching (current_record_position: 17)
Fetching (current_record_position: 19)
Fetching (current_record_position: 21)
Fetching (current_record_position: 23)
Fetching (current_record_position: 25)
Fetching (current_record_position: 27)
Fetching (current_record_position: 29)

Download timeout, will retry after 10 seconds (trycount #1)

Download timeout, will retry after 10 seconds (trycount #2)

Download timeout, will retry after 10 seconds (trycount #3)

Download timeout, will retry after 10 seconds (trycount #4)

Download timeout, will retry after 10 seconds (trycount #5)

Download timeout, will retry after 10 seconds (trycount #6)

Download timeout, will retry after 10 seconds (trycount #7)

Download timeout, will retry after 60 seconds (trycount #8)

Download timeout, will retry after 60 seconds (trycount #9)
<simpleError in value[[3L]](cond): too many failures, stop downloading>
Error in value[[3L]](cond) : too many failures, stop downloading
In addition: Warning message:
In api_access_function(api_function = "meeting", searchCondition = searchCondition,  :

Error in value[[3L]](cond) : too many failures, stop downloading 
9.
stop("too many failures, stop downloading") 
8.
value[[3L]](cond) 
7.
tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
   names[nh], parentenv, handlers[[nh]]) 
6.
tryCatchList(expr, classes, parentenv, handlers) 
5.
tryCatch(withTimeout(download.file(url, tmp_file, quiet = quiet), 
   timeout = 45), TimeoutException = function(ex) {
   counter <<- counter + 1
   if (file.exists(tmp_file))  ... 
4.
file_download(url, quiet) 
3.
api_access_function(api_function = "meeting", searchCondition = searchCondition, 
   searchTerms = searchTerms, verbose = verbose, downloadMessage = downloadMessage, 
   sleep = sleep) 
2.
get_meeting(house = house_en, meetingName = committee_jp, year = y) 
1.
gijiroku(committee_jp = com_jp[i], committee_en = com_en[i], 
   house_jp = hou_jp[j], house_en = hou_en[j], year = year) 

libtary(tidyverse)
library(kaigiroku)
temp <- get_meeting(meetingName = "法務", year = 1949)

60 records found
Fetching (current_record_position: 1)
...
Fetching (current_record_position: 29)

Start tag expected, '<' not found
Error: 1: Start tag expected, '<' not found