check offset for numeric value

2021-06-24 13:46:49 +02:00
parent aac8280843
commit d0560f3176
1 changed files with 1 additions and 0 deletions
@@ -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() %>%