|
|
@@ -16,6 +16,7 @@ download_protocol <- function(path, name) { |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
fetch_batch <- function(offset) { |
|
|
fetch_batch <- function(offset) { |
|
|
|
|
|
stopifnot("Offset must be numeric" = is.numeric(offset)) |
|
|
mk_url(offset) %>% |
|
|
mk_url(offset) %>% |
|
|
read_html() %>% |
|
|
read_html() %>% |
|
|
as.character() %>% |
|
|
as.character() %>% |
|
|
|
