From d0560f317643b19d98d87b0f65e4636c01c7fb25 Mon Sep 17 00:00:00 2001
From: flavis <christian@flavigny.de>
Date: Thu, 24 Jun 2021 13:46:49 +0200
Subject: [PATCH] check offset for numeric value

---
 scraping/fetch.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scraping/fetch.R b/scraping/fetch.R
index c9b416e..9faefe8 100644
--- a/scraping/fetch.R
+++ b/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() %>%