Update URL to get from the 2015 release, as the 2012 is not accessibl…

…e anymore.
rOpenGov · May 20, 2016 · cbd8bfc · cbd8bfc
1 parent ec27580
commit cbd8bfc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/Getters.R b/R/Getters.R
@@ -44,7 +44,7 @@
 #'
 #' @export
 
-PolityGet <- function(url = 'http://www.systemicpeace.org/inscr/p4v2012.sav',
+PolityGet <- function(url = 'http://www.systemicpeace.org/inscr/p4v2015.sav',
                       vars = NULL, OutCountryID = 'iso2c',
                       standardCountryName = TRUE,
                       na.rm = TRUE, duplicates = 'message', fromLast = FALSE){

diff --git a/R/WinsetCreator.R b/R/WinsetCreator.R
@@ -36,7 +36,7 @@
 #' @import countrycode
 #' @export
 
-WinsetCreator <- function(PolityUrl = 'http://www.systemicpeace.org/inscr/p4v2012.sav', DpiUrl = 'http://bit.ly/1jZ3nmM', OutCountryID = 'iso2c', na.rm = TRUE){  
+WinsetCreator <- function(PolityUrl = 'http://www.systemicpeace.org/inscr/p4v2015.sav', DpiUrl = 'http://bit.ly/1jZ3nmM', OutCountryID = 'iso2c', na.rm = TRUE){
   # CRAN finess
   xrcomp <- xropen <- parcomp <- military <- NULL
 
@@ -106,4 +106,4 @@ WinsetCreator <- function(PolityUrl = 'http://www.systemicpeace.org/inscr/p4v201
   Out <- Out[, c(OutCountryID, 'country', 'year', 'W', 'ModS')]
   Out <- Out[order(Out[, OutCountryID], Out[, 'year']), ]
   return(Out)
-}
+}