check offset for numeric value

scraping/fetch.R

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