votes_get_results update

Author: smudap

sejmRP/R/votes_get_results.R

@@ -33,10 +33,15 @@ votes_get_results <- function(page) {
 
     # getting deputies and their votes
     votes_clubs_results <- safe_readHTMLTable(page, encoding = "UTF-8", stringsAsFactors = FALSE)[[1]]
-    deputies <- c(votes_clubs_results[, 2], votes_clubs_results[, 5])
-    deputies <- deputies[!is.na(deputies)]
-    deputies_votes <- c(votes_clubs_results[, 3], votes_clubs_results[, 6])
-    deputies_votes <- deputies_votes[!is.na(deputies_votes)]
+    if(ncol(votes_clubs_results) == 6) {
+      deputies <- c(votes_clubs_results[, 2], votes_clubs_results[, 5])
+      deputies <- deputies[!is.na(deputies)]
+      deputies_votes <- c(votes_clubs_results[, 3], votes_clubs_results[, 6])
+      deputies_votes <- deputies_votes[!is.na(deputies_votes)]
+    } else {
+      deputies <- votes_clubs_results[, 2]
+      deputies_votes <- votes_clubs_results[, 3]
+    }
 
     # creating data frame with data
     votes_results <- data.frame(deputy = deputies, vote = deputies_votes, stringsAsFactors = FALSE)