From b416badbc407c9d99f406f4da6c7996548176cdd Mon Sep 17 00:00:00 2001
From: tlorusso
Date: Tue, 29 Jun 2021 08:10:09 +0200
Subject: [PATCH] fix check
---
R/get_swissvotes.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/get_swissvotes.R b/R/get_swissvotes.R
index ddfaf96..46985e9 100644
--- a/R/get_swissvotes.R
+++ b/R/get_swissvotes.R
@@ -34,7 +34,7 @@ get_swissvotes <- function(DB = T, savecitation = F, codebook = F) {
swissvotesDB <- download$result
- if(is.na(swissvotesDB$anr) && length(swissvotesDB)==1) message(paste0(download$error))
+ if(!is.null(download$error)) message(paste0(download$error))
}
if (codebook) utils::browseURL("https://swissvotes.ch/page/dataset/codebook-de.pdf")