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")