fix Kitschelt country issue (SRB)

hdigital · Nov 18, 2018 · bf743bc · bf743bc
1 parent 89a8281
commit bf743bc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/import/kitschelt/kitschelt.R b/import/kitschelt/kitschelt.R
@@ -8,7 +8,7 @@ data <- data_raw %>%
   mutate(id = paste(ccodewb, partynum, sep="-"),
          partysize = round(partysize, 1),
          country = ccodewb,
-         country = recode(country, ROM="ROU"))
+         country = recode(country, ROM="ROU", YUG="SRB"))
 
 # clean-up party acronym -- conditionally replace "pnatacro" with "pengacro"
 data <- data %>% mutate(pnatacro = ifelse(str_detect(pnatacro, regex("^[\\? ]+$")), pengacro, pnatacro))

diff --git a/import/kitschelt/kitschelt.csv b/import/kitschelt/kitschelt.csv
@@ -420,13 +420,13 @@ SEN,Party of Independence and Labour,3,PIT,Party of Independence and Labour,PIT,
 SEN,Socialist Party,2,PS,Socialist Party,PS,Parti Socialiste du Sénégal,8.7,SEN-2
 SEN,Senegalese Democratic Party,1,PDS,Senegalese Democratic Party,PDS,Parti Démocratique Sénégalais,59.4,SEN-1
 SEN,African Party for Democracy and Socialism,4,AJ/PADS,African Party for Democracy and Socialism,AJ/PADS,And-Jëf/Parti Africain pour la démocratie et le socialisme,4.5,SEN-4
-YUG,SPS,6,SPS,Socialist Party of Serbia,SPS,?????????????? ??????? ??????,6.6,YUG-6
-YUG,DSS,3,DSS,Democratic Party of Serbia,DSS,??????????? ??????? ??????,10.6,YUG-3
-YUG,DS,2,DS,Democratic Party,DS,??????????? ???????,23.5,YUG-2
-YUG,SRS,1,SRP,Serbian Radical Party,SRS,?????? ????????? ???????,29,YUG-1
-YUG,LDP,7,LDP,Liberal Democratic Party,LDP,?????????-??????????? ???????,5.2,YUG-7
-YUG,G17+,4,G17+,G17+,G17+,G17+,7.6,YUG-4
-YUG,NS,5,NS,New Serbia,NS,???? ??????,3.5,YUG-5
+SRB,SPS,6,SPS,Socialist Party of Serbia,SPS,?????????????? ??????? ??????,6.6,YUG-6
+SRB,DSS,3,DSS,Democratic Party of Serbia,DSS,??????????? ??????? ??????,10.6,YUG-3
+SRB,DS,2,DS,Democratic Party,DS,??????????? ???????,23.5,YUG-2
+SRB,SRS,1,SRP,Serbian Radical Party,SRS,?????? ????????? ???????,29,YUG-1
+SRB,LDP,7,LDP,Liberal Democratic Party,LDP,?????????-??????????? ???????,5.2,YUG-7
+SRB,G17+,4,G17+,G17+,G17+,G17+,7.6,YUG-4
+SRB,NS,5,NS,New Serbia,NS,???? ??????,3.5,YUG-5
 SVK,People's Party - Movement for a Democratic Slovakia,5,LS-HDS,People's Party - Movement for a Democratic Slovakia,LS-HDS,?udová strana – Hnutie za demokratické Slovensko,14.2,SVK-5
 SVK,Slovak Democratic and Christian Union - Democratic Party,2,SKDU-DS,Slovak Democratic and Christian Union - Democratic Party,SKDU-DS,Slovenská demokratická a kres?anská únia – Demokratická strana,16.8,SVK-2
 SVK,Party of Hungarian Coalition,4,SMK,Party of Hungarian Coalition,SMK,Strana ma?arskej koalície,11.4,SVK-4