adjust for changes on Wikipedia page

ellisp · Sep 12, 2017 · fd520b5 · fd520b5
1 parent 64c5331
commit fd520b5
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 2 deletions.
diff --git a/examples/four-top-parties-all-polls.R b/examples/four-top-parties-all-polls.R
@@ -32,7 +32,7 @@ p <- polls %>%
     ggtitle("Fifteen years of opinion polls in New Zealand",
             "Intended party vote for the next election (election results shown in black)\nPolling results taken from Wikipedia, compiled in the nzelect R package")
 
-svg("examples/all-polls-and-years.svg", 8, 6)
+svg("examples/all-polls-and-years.svg", 9, 6)
 print(p)
 dev.off()
 

diff --git a/pkg1/data/polls.rda b/pkg1/data/polls.rda
diff --git a/prep/combine_polls.R b/prep/combine_polls.R
@@ -27,6 +27,7 @@ polls <- plyr::rbind.fill(polls2005, polls2008, polls2011, polls2014, polls2017)
            Poll = gsub("NBR.", "", Poll),
            Poll = gsub("Newshub ", "", Poll),
            Poll = gsub("Herald.", "", Poll),
+           Poll = ifelse(grepl("Colmar Brunton", Poll), "Colmar Brunton", Poll),
            Poll = ifelse(grepl("Roy Morgan", Poll), "Roy Morgan", Poll),
            Poll = ifelse(grepl("SSI", Poll), "SSI", Poll),
            Poll = ifelse(grepl("Bauer Media Insights", Poll), "Bauer Media Insights", Poll),

diff --git a/prep/download_polls_2017.R b/prep/download_polls_2017.R
@@ -8,7 +8,7 @@ tabs <- webpage %>%
     html_nodes("table") 
 
 # number below depends on the webpage...
-tab <- html_table(tabs[[2]], fill = TRUE) 
+tab <- html_table(tabs[[1]], fill = TRUE) 
 
 tab <- tab[tab[ , 1] != tab[ , 2], 1:12]
 tab <- tab[tab[ , 1] != "Poll", ]