From ed2937f6945387efa60045ecbca7b9d8946f92ce Mon Sep 17 00:00:00 2001
From: Pascal Burkhard <pascal.burkhard@gmail.com>
Date: Sun, 22 Sep 2024 16:41:08 +0200
Subject: [PATCH] feat: add Russia religion data

---
 R/data_doc_oc_russie.R           |  27 ++++++++++++++
 data-raw/oc_russie.R             |  62 ++++++++++++++++++++++---------
 data/oc_russie_2012_religion.rda | Bin 0 -> 4250 bytes
 man/oc_russie_2012_religion.Rd   |  38 +++++++++++++++++++
 4 files changed, 110 insertions(+), 17 deletions(-)
 create mode 100644 data/oc_russie_2012_religion.rda
 create mode 100644 man/oc_russie_2012_religion.Rd

diff --git a/R/data_doc_oc_russie.R b/R/data_doc_oc_russie.R
index 5df2df6..9a5ab16 100644
--- a/R/data_doc_oc_russie.R
+++ b/R/data_doc_oc_russie.R
@@ -333,3 +333,30 @@
 #' }
 #' @source Open Street Map and WikiData
 "oc_russie_adm6_gis"
+
+#' Religion par région
+#'
+#' Un tableau de la religion par région en 2012.
+#'
+#' @format Un tibble avec 4 colonnes et 1422 lignes
+#' \describe{
+#'   \item{region}{Nom de la région en anglais}
+#'   \item{religion}{\describe{
+#'     \item{Athee}{Athéistes}
+#'     \item{Orthodoxe}{Orthodoxe pratique (membre de l'Eglise)}
+#'     \item{Deiste}{Crois en Dieu mais sans appartenance}
+#'     \item{Christianisme}{Christianisme}
+#'     \item{Hindouisme}{Hindouisme}
+#'     \item{Judaisme}{Judaïsme}
+#'     \item{Islam}{Islam}
+#'     \item{Traditionnel}{Croyances traditionnelles}
+#'     \item{Bouddhisme}{Bouddhisme}
+#'     \item{Pentecotisme}{Pentecôtisme}
+#'     \item{Autre}{Autre}
+#'     \item{Pas de réponse}{Pas de réponse}
+#'   }}
+#'   \item{percent}{Pourcentage}
+#'   \item{adm1_code}{Identifiant ADM1 (pour NaturalEarth)}
+#' }
+#' @source <https://sreda.org/arena>
+"oc_russie_2012_religion"
diff --git a/data-raw/oc_russie.R b/data-raw/oc_russie.R
index 5dabb87..55c6f50 100644
--- a/data-raw/oc_russie.R
+++ b/data-raw/oc_russie.R
@@ -1,6 +1,6 @@
 stop("This file should not be sourced!")
 
-# Regional life expectancy ------------------------------------------------
+# Regional life expectancy -----------------------------------------------
 
 xls <- here::here("inst/extdata/oc_russie/rosstat/population/2021_life_expectancy.xlsx")
 lex <- tidyxl::xlsx_cells(xls)
@@ -62,7 +62,7 @@ readr::read_csv(
 usethis::use_data(oc_russie_2022_esperance_vie, overwrite = TRUE)
 
 
-# Regional fertility rates ------------------------------------------------
+# Regional fertility rates -----------------------------------------------
 
 # The Main databank is missing Kemerovo Oblast (for whatever fucked up reason…)
 # Source: https://showdata.gks.ru/report/278974
@@ -133,7 +133,7 @@ readr::read_csv(
 usethis::use_data(oc_russie_2023_fecondite, overwrite = TRUE)
 
 
-# Regional CBR and CDR ----------------------------------------------------
+# Regional CBR and CDR ---------------------------------------------------
 
 xls <- here::here("inst/extdata/oc_russie/rosstat/population/2021_cbr_cdr.xlsx")
 nat_chg <- tidyxl::xlsx_cells(xls)
@@ -177,7 +177,7 @@ nat_chg |>
 
 usethis::use_data(oc_russie_2019_natalite_mortalite, overwrite = TRUE)
 
-# Regional RNI ------------------------------------------------------------
+# Regional RNI -----------------------------------------------------------
 
 readr::read_csv(
   here::here("inst/extdata/oc_russie/rosstat/population/2024_natural_increase.csv"),
@@ -212,7 +212,7 @@ readr::read_csv(
 
 usethis::use_data(oc_russie_2023_accroissement, overwrite = TRUE)
 
-# Regional suicide rates --------------------------------------------------
+# Regional suicide rates -------------------------------------------------
 
 readr::read_csv(
   here::here("inst/extdata/oc_russie/rosstat/population/2021_suicides.csv"),
@@ -263,7 +263,7 @@ readr::read_csv(
 usethis::use_data(oc_russie_suicides_national, overwrite = TRUE)
 
 
-# Abortions ---------------------------------------------------------------
+# Abortions --------------------------------------------------------------
 
 readr::read_csv(
   here::here("inst/extdata/oc_russie/rosstat/population/2021_avortements.csv"),
@@ -288,7 +288,7 @@ readr::read_csv(
 usethis::use_data(oc_russie_avortements_national, overwrite = TRUE)
 
 
-# Births ------------------------------------------------------------------
+# Births -----------------------------------------------------------------
 
 readr::read_csv(
   here::here("inst/extdata/oc_russie/rosstat/population/2021_births.csv"),
@@ -306,7 +306,7 @@ readr::read_csv(
 usethis::use_data(oc_russie_naissances_national, overwrite = TRUE)
 
 
-# Municipality population -------------------------------------------------
+# Municipality population ------------------------------------------------
 
 fs::dir_ls("inst/extdata/oc_russie/rosstat/population_mun/") |>
   purrr::map_dfr(
@@ -323,7 +323,7 @@ fs::dir_ls("inst/extdata/oc_russie/rosstat/population_mun/") |>
 
 usethis::use_data(oc_russie_2020_population_municipale, overwrite = TRUE)
 
-# Population evolution ----------------------------------------------------
+# Population evolution ---------------------------------------------------
 
 xls <- here::here("inst/extdata/oc_russie/rosstat/population/2021_pop_evolution.xlsx")
 pop_evol <- tidyxl::xlsx_cells(xls)
@@ -425,7 +425,7 @@ readxl::read_excel(
 
 usethis::use_data(oc_russie_2023_population, overwrite = TRUE)
 
-# Mariages ----------------------------------------------------------------
+# Mariages ---------------------------------------------------------------
 
 readr::read_csv(
   here::here("inst/extdata/oc_russie/rosstat/population/2021_mariages.csv"),
@@ -458,7 +458,7 @@ readr::read_csv(
 
 usethis::use_data(oc_russie_mariages, overwrite = TRUE)
 
-# Divorces ----------------------------------------------------------------
+# Divorces ---------------------------------------------------------------
 
 readr::read_csv(
   here::here("inst/extdata/oc_russie/rosstat/population/2021_divorces.csv"),
@@ -492,7 +492,7 @@ readr::read_csv(
 usethis::use_data(oc_russie_divorces, overwrite = TRUE)
 
 
-# Divorces et mariages (absolu) -------------------------------------------
+# Divorces et mariages (absolu) ------------------------------------------
 
 readr::read_csv(
   here::here("inst/extdata/oc_russie/rosstat/population/2021_divorces_absolu.csv"),
@@ -576,7 +576,7 @@ mariages_divorces |>
 usethis::use_data(oc_russie_mariages_divorces_national, overwrite = TRUE)
 
 
-# Ethnic groups -----------------------------------------------------------
+# Ethnic groups ----------------------------------------------------------
 # ICOMPLETE Work…
 # xml2::read_html("inst/extdata/oc_russie/rosstat/population/2021_ethnies.htm") |>
 #   rvest::html_table(fill = T) |>
@@ -585,7 +585,7 @@ usethis::use_data(oc_russie_mariages_divorces_national, overwrite = TRUE)
 #   unpivotr::behead(direction = "up", name = "Bla bla")
 
 
-# Migration arrivals ------------------------------------------------------
+# Migration arrivals -----------------------------------------------------
 
 xml2::read_html("inst/extdata/oc_russie/rosstat/population/2021_migration.html") |>
   rvest::html_table() |>
@@ -630,7 +630,7 @@ xml2::read_html("inst/extdata/oc_russie/rosstat/population/2021_migration.html")
 usethis::use_data(oc_russie_2019_migration, overwrite = TRUE)
 
 
-# Levada : attitude toward countries --------------------------------------
+# Levada : attitude toward countries -------------------------------------
 
 rvest::read_html("https://www.levada.ru/en/ratings/attitudes-towards-countries/") |>
   rvest::html_table(header = TRUE) -> levada_attitudes_tables
@@ -662,7 +662,7 @@ usethis::use_data(oc_russie_levada_attitude_us, overwrite = TRUE)
 usethis::use_data(oc_russie_levada_attitude_eu, overwrite = TRUE)
 
 
-# SIPRI Military expenditure ----------------------------------------------
+# SIPRI Military expenditure ---------------------------------------------
 
 sipri_milexpd_excel <- here::here("inst/extdata/oc_russie/sipri/SIPRI-Milex-data-2000-2022.xlsx")
 cells <- tidyxl::xlsx_cells(sipri_milexpd_excel)
@@ -689,6 +689,34 @@ cells |>
 usethis::use_data(oc_russie_depenses_militaires, overwrite = TRUE)
 
 
-# Open documentation file -------------------------------------------------
+# Religion ---------------------------------------------------------------
+
+arena_religion <- here::here("inst/extdata/oc_russie/arena/religion.xlsx")
+cells <- tidyxl::xlsx_cells(arena_religion)
+formats <- tidyxl::xlsx_formats(arena_religion)
+
+cells |>
+  unpivotr::behead(direction = "up", name = "region") |> 
+  unpivotr::behead(direction = "left", name = "religion") |>
+  dplyr::select(region, religion, percent = numeric) |>
+  tidyr::drop_na(religion, region) |>
+  dplyr::mutate(
+    adm1_code = geotools::gtl_admin_code(
+      region,
+      origin = "region.name.en.regex",
+      destination = "adm1",
+      country = "Russia",
+      origin_regex = TRUE,
+      custom_match = c(
+        "Udmurt Republic" = "RUS-2387",
+        "Yaroslavl region" = "RUS-2360"
+      )
+    )
+  ) |> 
+  tidyr::drop_na(adm1_code) -> oc_russie_2012_religion
+
+usethis::use_data(oc_russie_2012_religion, overwrite = TRUE)
+
+# Open documentation file ------------------------------------------------
 
 usethis::edit_file(here::here("R/data_doc_oc_russie.R"))
diff --git a/data/oc_russie_2012_religion.rda b/data/oc_russie_2012_religion.rda
new file mode 100644
index 0000000000000000000000000000000000000000..655fa8848723ee3b4318bf7981b304989cc38fb7
GIT binary patch
literal 4250
zcmYjTdpy(s_us~ZcRrt7+E9wQe5GxeOH|6HO>BkP#D+!^Dw$g!x*;ps$Xqt0zHW0_
z7jvJxt$bR!G`CMuBqbrqC8f)!-@gC-UXRE5>vdk|@jS0{p67XRv@l0&te=^;-ww}=
zPav25zyJUF_xIB8m5IK84=i^s{rd5HW9jv;-@m7HUKIWqN`iphovBdph3m=iJ4pwU
zK%OAQ*%Y;R=e~;;ciiSMA-B9Lv~|Mg><f(tt+O{(<P7SiGYS(U_GcK)+seOy!i)98
zWFTA6rt0D_nG&{mM{x+o_JqzbwwUT6IZ~Y}A0|}ft2x;Y?<$N44wKpHRe_6@oUJlc
zl9UKZAeAIJNbwkCD<5{jW`R@-Lyjm{WGGw|A;XJpLHdfT@GO}vNDo}n;TfW0_&;<S
zpfKIS5G7}bN!ATJd%Rw;*;6MQPZv3-$I00`S63~AP+%n=Vi;>1hF5qTmJJ(gChLNf
zhe^ueNy^=3g;r+C0+W&PJ2y&_%Q3+WlD1mO9LBmjN1LQ7Db5GEfbuz{d_ul4iIh)L
zOMMg^UXf4YD7=y};T2E|EJUpgi%~iP-H%8#D@;@?NyTW`g5+{=g)>MFvK=NAhR-Q5
zsyKr{`YP87K{o8QdB}=U+7=_ol@7V}4!x>@ShAaPMz-h(w{X}D1>j7A2idqLD;Y)T
z1@V4n{^p~|?_){Wr=&h*bEQ&M6?<n~eQrpy1bjL8$9<KPuh$KO5t20BW2xABJq_6C
z-uc<M486O0_dN5v$V!hHdJxcNMC_W@ux99EG&>8rGHdxhl>fwElVyKu_Uf8fruK!i
zldg~nU+{I$zifAbeBG_`R;il40+nY^jDzPc@H5mlMZt6RFd$U#tuFcZa&}xdrl)ps
zIV@I>)AFP=?z+U#Y(``NvhF?tNwSk}vC({MfdHKt4h)^lynp-BolVBq+A*iMMay3E
zRbt}prk~rLy6KuUVf{$t3_TFZ_BwH_x>d^J;<;E8J)>(DW!eyHg66RYJr<YZRc(4G
z^@&|>1^D7_WH7;8NjXUh(WG`Ie)pkx-_CSt@#;AvUa(WIpc1qy%cYkx<GdEA`WT_(
z0UP$-vJqee1`P7s_|@pagy=C8K$g`ZdxH|Q<qb%<bqJl<#~XS@2NKSfd|X5Iv^Vpn
zC;fo%Ge|b>6%EE}Z{kBnM06lZ<i`V;p@fw&IzUz!GZIB)hSFd|V|12S{B3mm<*r+H
zuH(~Hk0a^o9e#;Y8EsV8m`b3!dSgaJZVN<+)93$%h;yhzvLW|pN<w^*P%Z<-dI!T7
zFdER%<PbCx2#=rxm~mfZuPA=3s?tRr{9LD8n&({$-DYKi|2>4~v22}{OOExbf+$9-
zedbo#TAR~xhpP>*pGg1bEU1cA+$Z#zwy$>aRL?}XU2GiPMiFXhZ8eH$(RvPjt`>ub
zQ)@?i%IVZw8dnXZylw14&um(*o0gIKjYB^9UaHP|CO(_ZZx|bDVf^85)zaMHI_}w9
zbr1Ehf*{txSRF5`H1V{3v{B#*(AJ81XZPT43FvQg)kUgqwom*Ptta2ZK%|1O03BSm
zIc1AaHl$iNO<BDdoN$)X#%pTrpB+z8%9b!*W^u0X*vv}rzPDKuHlm?MZR*u11eXg{
zvUjVLK$1&MwVc%>hKBso9yu1#Y+Op-Y+O7VvoPE9+|oR-yCXT&HPP2NzbV4EGBKcZ
zgu{+%hKpf%ZV0_+90eqwHD)q8KQsvUy*UPv=<{_u-*teadDEYXG8F40u?NY<Owx(g
zp}uG?LkweOiD)o<%6k~TxE_s=HzEP(AR1b776}ui$lCL~M(_NwyKNq$VN7=3m4`LV
z>$!@}-i&*$!|@Gl$gN40F9vaFzIKufmMkEMan91D^XHd`;q^;#4XcS4;ERb-G2mC&
zzD@2L-O|tO$Cg$|MiUHxzF|XCy2TX$^Bk&2+&IGd44ZxxuznZU*9@B;_XnWuVmNm-
zXcw1J`WAlh`2A)+QA5z(Ld<O+jOIJHLZ;~HE3X_6e}Dm4E8pE;e!1RWTd$!9>^^cl
zU%38n|N7&WiEBQ_MNdJ|$w`h3xvdsMWFcWx+bvAZDu&8D+`qNwIeM%uc#PVR30F!E
zr4y6Sp`q0ZYsiTkQ_vwnfvcgJhgWpIrVpT;ugQ(aAibedaV_)RBn>8=@&`ELo<@=2
zkuQ?7VMXIfpWf<K(4hxy_Ej@SH~0ih@5qd}nfK=0Ci_41K)W-uNon3H0<0=^@6uiV
z;IB-g_uWCOT!woJ#^HVb<K;G=5S=*YyrbpzkFi_oMMpk3?-X0lX|rgzb{#%>$t2Oo
z_~t$L2iD!rV218o<1i<ks?52{B<~hRM`4N>H~!=?O;nYJV)sVpmDxIb>`%%tuqxiG
z!MQ5V{eGaJ8<z^c7Gzs$s%@^bDdU#z6T9>m4yX3V9wz4Mn?@Df+ppv>m5)1Ufn3D;
z8c{`wGJ}kJb%sq~NF{RPM@++!FJo6~lh{o`5y9f0ecoT}?!!yhxuMz23!ioqE~JH~
zj%eRK%IG^C{C;cxuN}@$r;`QPpxvNGY#?*h=%k4cX-)f}FqZV42foDISxXNg7^yKn
zjI~{$8h0j;?`RfTmi!3$6|dC<6rr}gih5^W+qC)JPiPf%`8&~u>vgf3JOMO*#_lv(
zZ26gEBZApL12XLXQ!(nk%at;`A1l6He|iCvpu~z*a_b#~-z<pk$P-LRA7xfrMv-6M
z3P+*gqf?|C(562N;kCQsOfTh-v~G&Nc@^lX4C#89ZL};;CM@JxUw?T;hZM~g+QnRn
z*3Qv7h;M2B5nOcK$mHRd%Y(W0+==X&2l%5Y&$LoM`W@0#K75EcLl`&c&ZVMtJYYv}
zKRx}-)N{B9XN4J2A*BICUk`&VyMTGl#@y{)iH7}ZaEaNTu|sEy`cah2k8|^^;RXfe
zSN|KNN$WM8{pU%!O|>xL6Uu}^e_ofM-3EHL@e)tEwyaZL(Rdlpx1p)qFHJ8VG*~Z4
zJiK#D{=VAXrKY171vggZV~&d+PntSqPT4+!9G{DNy8mhLzTxHmqA`FZyk7Ah8nTjF
z@v!Ua-M_IXimavrnqDAsx)=5ZKv2TQfmx+LI_+y9Pq<S%zJNBBCw1j_BqT<!<A2V~
z&S#VdS4|wfr8`N3GaA;Z1P3-wc0PZKPW*1c$%@?fF)Q1pPPS>og7wDv(F-$8DYk46
zCG?~$K)noFG`awM7jjnHgWsbOA7In#CktZOka?J(;G7)IRR~7V>8RhY>a0a#pn~2r
zikf*uKYzwjK{>L7$?FZZflZHeP`zX{SZCMrK_#cfQNp-)LL{2p*EkluI)NcKX+^^y
zSdJQhW&Z@A+=$~G8l2Kvx^hUs{0KkPfDV?40_81D=c#Ssk#P6iX>@d-V!SQ(53J=r
zSjuW4lGunDBs-}7>BTh<U#J|EndGXPT#s2^x*s4Pp$Go>ed<8J&8b0DHv(-1UBPp&
zxLqnqEM1>jpII{<u{3N32IF3r`r|jC?WmddI^q5+tLU|QAgQDFq9l5BJ3gz?@=O3i
z-a`D;3mx!9)5?M(Ef3IOzyBMpIgC~e9-|l@z-bij6^x*v!|32Xg|POu0LA_@+_UKD
zIfc@;uor}xxH-OgOEce+)XcX&gJN~pqktd8_i3}J<Ma5~Uh)F0{21%ks|!HFg_1<X
z%H(i8g~?7(3~T_J^5(_g`$|7h^<jdU7$N4Z&>=1&gC$2&b&&~mb5uRvc-bR#KnF5U
ze@#)!JpGe}WiMwbL0;*UGs3;Mwf?DEpl%aT-}2ORx`d7qneXa-hQ<O)r%}L9_TT6a
z?KKg(?+|VHjc*E}5W~Y-O>;WY$q@m;b8yHHgsinQ56A@>VkvTEAol)?gR^}qaW2*Q
z4|WP%GXAJ@B{}y)q+n!{FB0y7_^Q>{DwyegK!c~RM4NwROBCqC&%pl**kH5|o}YQg
zO0fzwY!n{Y9Pq`fp^2AA$gMQ@?|B2mt^9K8>GKyn^#}4rXlQy_&>2MSwUu`$B4%xr
zupB~z7ob?vBVL_V%WTEBiaM%Kzl~HRm?<r@BRI@wj#qu4ZqFkC_s};I$ldT`3GqOY
zxR=S`z$5(y;!YhJPf!pY8&$O~c*T=0@bJC$MV(d6qdOd9-qG=oP~|?`)$7p(p>%vn
zNFbw5=tvB75|o7bayzpWQ9?&rdM6cKX`m%x@-<_7_bOCWnIWR4NEmmSXVC|iI#vsL
zjjq8}GKI{^6&nuXY1KfLtQE@DV<RLdDU1drfa_Hxg;;>$M`1&6El&&(PL95$BuLDp
zANiR9l6ayR4*AH}+!4}hrxWHY+$Y^Ls>i>LM(p83mWbV`9+CfyxZcv<U+|2Q;9k}$
zbVyrbhc&}Bne3ogHm*<P2PcUEr-%%oYx?WINBizn3IhhO^mt8Z(r({Hd?p6P6a9f^
z;})Sq$~?dIy&s$WIz_?Dr)9(Ocw_SFB>y2gSsxhSCsX19PCIU$rRZC-BN6%<uAsP7
z*6|0fuO1~3Db_p0JE2v;hn70@R3nNgpqyK_meIHcQNn$7ANb&tlrVo*RUHb@hhOvW
zX%Gd1qZ9>{2P}ut0J0>GNS+(r4rFGDr)Ly|Zrw%<ilA>L;75>fwTOV>^X9E4A%Ub$
zcJolx1ck|4nHE}8BGEW`lcKV&re4(%gp;Cr6kgz!GKOS(MOx~luWcoKFZ-*7Xi?UN
zu8jj8!v6}~#i&P5HF3LI(TTgE-EGpP43=-e<><v;sHhDp${Z6B0IdhL!BwA#ipt*e
z<4GmV)|4?i5jxGk=08&q59Es3X)OS5`p(Uvgn_P#wS(FM1Lw-3_DHK3r+)g4vQuj{
zkw+|yP+)2S)9LW`+LkvvD?1ogR^9_$>6z!YT=KY4H+va=t7k6HCEO${D|<_-F=XF*
z?1+DjsJN!(pWg=0>95{1UMdYdd)xR$&6FCB^4_yMsOu|E67g+N+{+vM)xlQU&Uv|t
z=L8zCKc!+;JneO}I2@z0e?lYvx)4~Q<x${h=b4d0*n97nUm;3mWt>>{w**&UWLR%`
z<i`&KLJhXk)0TcYxBtw>%g@IKhRCyU$7-q?*~G+60SK@lKhH|a&{c&T!_QRJR(#IS
z`_pYz$IIi|iH7LtG!5q9Fo<M$LK+3i$|pvd4u%+#p-{3Z1?J>4d*_=2xa?KTIK6V9
zWa#w68ls7MvD??;vD6s9y)PN}EX}v0oDX%)EXGASY$1NAplVPztLA~q)c^ddGF6Vn
zVWEH0{VF>rH-8n>e5`5MEQ4>mX^Qag<4N4@5b1sM{!r6FP^{~>EX-?%J1=2VSNl_B
zU_@&Awq(ebDbt7HSog-^pWC--B|QQ|lJ>mb8OiGp4{PD7aiCR4k<X(%mH)yk9~}41
zxxHkc>nK=tf4if#e~@tJa5-eZatWy1C``-kkeQ?Cm}Sk(rJc#&Vp{vI8egz~0K|?v
zPWWupz7d_uQ0^c1YLnTKJHFRdCY{i`W;5mAB|Uyxzf{USChSy&fLNa8^ztv@xuL31
eV#uv~g>%e%tsK0C_kWkqn|QO-z%#0oQ~w9x5w&~(

literal 0
HcmV?d00001

diff --git a/man/oc_russie_2012_religion.Rd b/man/oc_russie_2012_religion.Rd
new file mode 100644
index 0000000..b917c21
--- /dev/null
+++ b/man/oc_russie_2012_religion.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data_doc_oc_russie.R
+\docType{data}
+\name{oc_russie_2012_religion}
+\alias{oc_russie_2012_religion}
+\title{Religion par région}
+\format{
+Un tibble avec 4 colonnes et 1422 lignes
+\describe{
+\item{region}{Nom de la région en anglais}
+\item{religion}{\describe{
+\item{Athee}{Athéistes}
+\item{Orthodoxe}{Orthodoxe pratique (membre de l'Eglise)}
+\item{Deiste}{Crois en Dieu mais sans appartenance}
+\item{Christianisme}{Christianisme}
+\item{Hindouisme}{Hindouisme}
+\item{Judaisme}{Judaïsme}
+\item{Islam}{Islam}
+\item{Traditionnel}{Croyances traditionnelles}
+\item{Bouddhisme}{Bouddhisme}
+\item{Pentecotisme}{Pentecôtisme}
+\item{Autre}{Autre}
+\item{Pas de réponse}{Pas de réponse}
+}}
+\item{percent}{Pourcentage}
+\item{adm1_code}{Identifiant ADM1 (pour NaturalEarth)}
+}
+}
+\source{
+\url{https://sreda.org/arena}
+}
+\usage{
+oc_russie_2012_religion
+}
+\description{
+Un tableau de la religion par région en 2012.
+}
+\keyword{datasets}