Merge pull request #100 from adibender/devel

Add support for regional German election in Hessen
adibender · Aug 27, 2018 · 16355be · 16355be
2 parents 65b4317 + 4d17b91
commit 16355be
Show file tree

Hide file tree

Showing 16 changed files with 133 additions and 118 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,8 @@
 # coalitions 0.6
 
+## coalitions 0.6.4
+- Add scrapers for local German "Hessen" election
+
 ## coalitions 0.6.3
 - Update HP with new `pkgdown` version
 

diff --git a/README.Rmd b/README.Rmd
@@ -15,7 +15,7 @@ opts_chunk$set(warning=FALSE)
 [![DOI](https://joss.theoj.org/papers/10.21105/joss.00606/status.svg)](https://doi.org/10.21105/joss.00606)
 [![DOI](https://zenodo.org/badge/DOI/10.5281/zenodo.1172594.svg)](https://doi.org/10.5281/zenodo.1172594)
 [![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/coalitions)](https://cran.r-project.org/package=coalitions)
-[![](https://cranlogs.r-pkg.org/badges/coalitions)](https://cran.r-project.org/package=coalitions)
+[![](https://cranlogs.r-pkg.org/badges/grand-total/coalitions)](https://cran.r-project.org/package=coalitions)
 [![MIT license](https://img.shields.io/badge/license-MIT-brightgreen.svg)](https://opensource.org/licenses/MIT)
 
 

diff --git a/README.md b/README.md
@@ -10,7 +10,7 @@ Status](https://codecov.io/github/adibender/coalitions/master.svg)](https://code
 [![DOI](https://joss.theoj.org/papers/10.21105/joss.00606/status.svg)](https://doi.org/10.21105/joss.00606)
 [![DOI](https://zenodo.org/badge/DOI/10.5281/zenodo.1172594.svg)](https://doi.org/10.5281/zenodo.1172594)
 [![CRAN\_Status\_Badge](https://www.r-pkg.org/badges/version/coalitions)](https://cran.r-project.org/package=coalitions)
-[![](https://cranlogs.r-pkg.org/badges/coalitions)](https://cran.r-project.org/package=coalitions)
+[![](https://cranlogs.r-pkg.org/badges/grand-total/coalitions)](https://cran.r-project.org/package=coalitions)
 [![MIT
 license](https://img.shields.io/badge/license-MIT-brightgreen.svg)](https://opensource.org/licenses/MIT)
 

diff --git a/cran-comments.md b/cran-comments.md
@@ -1,14 +1,21 @@
+## Release summary
+Added support for regional German election in Hessen
+
 ## Test environments
-* local OS X install, R 3.4.3
+* local ubuntu install, R 3.4.4
 * travis (devel and release)
 * appveyor (devel and patch)
+* win_builder
 
 ## R CMD check results
 
 0 errors | 0 warnings | 0 note
 
-* This is a resubmission of a new release.
 
 ## Reverse dependencies
 
-This is a new release, so there are no reverse dependencies.
+There are no reverse dependencies
+
+## Additional Notes
+
+Adressed "noDL" additional issue by running offending test conditional on capabilities("long.double")
diff --git a/docs/articles/diagnostic.html b/docs/articles/diagnostic.html
diff --git a/docs/articles/diagnostic_files/figure-html/unnamed-chunk-4-1.png b/docs/articles/diagnostic_files/figure-html/unnamed-chunk-4-1.png
diff --git a/docs/articles/diagnostic_files/figure-html/unnamed-chunk-4-2.png b/docs/articles/diagnostic_files/figure-html/unnamed-chunk-4-2.png
diff --git a/docs/articles/pooling.html b/docs/articles/pooling.html
diff --git a/docs/articles/workflow.html b/docs/articles/workflow.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/reference/get_entryprobability.html b/docs/reference/get_entryprobability.html
diff --git a/docs/reference/get_probabilities.html b/docs/reference/get_probabilities.html
diff --git a/docs/reference/get_seats.html b/docs/reference/get_seats.html
diff --git a/docs/reference/scrape.html b/docs/reference/scrape.html
diff --git a/tests/testthat/test-workflow.R b/tests/testthat/test-workflow.R
@@ -11,7 +11,7 @@ test_that("workflow stable", {
 	coalas <- coalitions:::paste_coalitions(coalitions)
 
 	## collapse
-	survey <- .survey_sample %>%
+	survey <- coalitions:::.survey_sample %>%
 		filter(pollster=="insa") %>%
 		unnest() %>%
 		filter(date == as.Date("2017-08-29"))
@@ -32,7 +32,9 @@ test_that("workflow stable", {
 	expect_data_frame(survey$draws[[1]], nrows=10, ncols=7)
 	expect_equal(colnames(survey$draws[[1]]), survey$survey[[1]]$party)
 
-	expect_warning(draw_from_posterior(survey$survey[[1]], nsim=10, correction=.10))
+	if(capabilities("long.double")) {
+		expect_warning(drp <- draw_from_posterior(survey$survey[[1]], nsim=10, correction=.1))
+	}
 
 	entry_probs <- get_entryprobability(survey$draws[[1]])
 	expect_numeric(entry_probs, lower=0, upper=1, all.missing=FALSE, len=7,