Add renv and fix DOI badge

danielvartan · danielvartan · commit ac5cd002b5e0 · 2025-05-04T17:45:19.000-03:00
diff --git a/.Rprofile b/.Rprofile
@@ -0,0 +1 @@
+source("renv/activate.R")
diff --git a/.vscode/ltex.dictionary.en-US.txt b/.vscode/ltex.dictionary.en-US.txt
@@ -0,0 +1,21 @@
+DATASUS
+Gini
+csv
+rds
+osfr
+IBGE
+tidyverse
+rOpenSci
+Çetinkaya-Runde
+Grolemund
+Tidyverse
+https
+eval
+brandr
+dplyr
+orbis
+plotr
+readr
+tidyr
+dir
+delim
diff --git a/.vscode/ltex.disabledRules.en-US.txt b/.vscode/ltex.disabledRules.en-US.txt
@@ -1 +1,18 @@
 DASH_RULE
+EN_QUOTES
+SENTENCE_WHITESPACE
+EN_QUOTES
+SUPPORT
+POLICY
+AVAILABLE
+PASSIVE_VOICE
+LEGEND
+DESIGN
+LIBRARY
+WORD_CONTAINS_UNDERSCORE
+ARROWS
+MORFOLOGIK_RULE_EN_US
+COMMA_PARENTHESIS_WHITESPACE
+UPPERCASE_SENTENCE_START
+WHITESPACE_RULE
+UNLIKELY_OPENING_PUNCTUATION
diff --git a/.vscode/ltex.hiddenFalsePositives.en-US.txt b/.vscode/ltex.hiddenFalsePositives.en-US.txt
@@ -0,0 +1,10 @@
+{"rule":"UPPERCASE_SENTENCE_START","sentence":"^\\Qsource(here::here(\"R\", \"_setup.\\E$"}
+{"rule":"MORFOLOGIK_RULE_EN_US","sentence":"^\\QThe data used in this report were sourced from the [DATASUS](https://datasus.saude.gov.br/) platform, which provides data on the [Gini Index](https://en.wikipedia.org/wiki/Gini_coefficient) of per capita household income by Brazilian municipality for the years 1991, 2000, and 2010 [@datasusa].\\E$"}
+{"rule":"THREE_NN","sentence":"^\\QThe data munging followed the data science workflow outlined by @wickham2023e, as illustrated in [@fig-wickham-at-al-2024-figure-1].\\E$"}
+{"rule":"MORFOLOGIK_RULE_EN_US","sentence":"^\\QAll processes were made using the [Quarto](https://quarto.org/) publishing system [@allaire], the [R programming language](https://www.r-project.org/) [@rcoreteama] and several R packages.\\E$"}
+{"rule":"POSSESSIVE_APOSTROPHE","sentence":"^\\QThe [tidyverse](https://www.tidyverse.org/) and [rOpenSci](https://ropensci.org/) peer-reviewed package ecosystem and other R packages adherents of the tidy tools manifesto [@wickham2023c] were prioritized.\\E$"}
+{"rule":"THREE_NN","sentence":"^\\QData science workflow created by Wickham, Çetinkaya-Runde, and Grolemund.\\E$"}
+{"rule":"ARROWS","sentence":"^\\Qfile <- here::here(\"data\", paste0(\"raw.csv\"))\\E$"}
+{"rule":"ELLIPSIS","sentence":"^\\Qdata <-\n  data |>\n  dplyr::mutate(\n    dplyr::across(\n      .cols = dplyr::starts_with(\"x\"),\n      .fns = ~ dplyr::case_when(\n        .x == \"...\"\\E$"}
+{"rule":"LC_AFTER_PERIOD","sentence":"^\\Q)\n    ),\n    dplyr::across(\n      .cols = dplyr::starts_with(\"x\"),\n      .fns = as.numeric\n    )\n  ) |>\n  tidyr::pivot_longer(\n    cols = starts_with(\"x\"),\n    names_to = \"year\",\n    values_to = \"gini_index\"\n  ) |>\n  dplyr::mutate(\n    year =\n      year |>\n      stringr::str_remove(\"x\") |>\n      as.integer(),\n    municipality_code =\n      municipality |>\n      stringr::str_extract(\"\\\\d*\") |>\n      as.integer(),\n    municipality =\n      municipality |>\n      stringr::str_remove(\"\\\\d*\") |>\n      stringr::str_trim()\n  ) |>\n  dplyr::relocate(\n    year,\n    municipality_code,\n    .before = municipality\n  )\n```\\E$"}
+{"rule":"UPPERCASE_SENTENCE_START","sentence":"^\\Qdatasus-gini-index\\E$"}
diff --git a/.vscode/settings.json b/.vscode/settings.json
@@ -18,5 +18,48 @@
     "titleBar.inactiveBackground": "#00690999",
     "titleBar.inactiveForeground": "#e7e7e799"
   },
-  "peacock.color": "#006909"
+  "peacock.color": "#006909",
+  "cSpell.words": [
+    "allaire",
+    "brandr",
+    "Carvalho",
+    "Çetinkaya",
+    "Científico",
+    "cnpq",
+    "Conselho",
+    "danielvartan",
+    "DATASUS",
+    "datasusa",
+    "Desenvolvimento",
+    "dplyr",
+    "geobr",
+    "getenv",
+    "ggplot",
+    "Gini",
+    "Grolemund",
+    "httr",
+    "IBGE",
+    "IPEA",
+    "langid",
+    "lightbox",
+    "Nacional",
+    "orbis",
+    "osfr",
+    "plotr",
+    "rcoreteama",
+    "readr",
+    "rstats",
+    "Runde",
+    "stringr",
+    "sustentarea",
+    "syndemic",
+    "techreport",
+    "Tecnológico",
+    "tidyr",
+    "tidyverse",
+    "Vartanian",
+    "vdcfs",
+    "wickham",
+    "xlim"
+  ]
 }
diff --git a/README.md b/README.md
@@ -54,7 +54,7 @@ A BibTeX entry for LaTeX users is
 
 [![License: CC0-1.0](https://img.shields.io/badge/License-CC0_1.0-lightgrey.svg)](http://creativecommons.org/publicdomain/zero/1.0/)
 
-The content is licensed under [CC0 1.0 Universal](https://creativecommons.org/publicdomain/zero/1.0/), placing these materials in the public domain. You may freely copy, modify, distribute, and use this work, even for commercial purposes, without permission or attribution.
+This content is licensed under [CC0 1.0 Universal](https://creativecommons.org/publicdomain/zero/1.0/), placing these materials in the public domain. You may freely copy, modify, distribute, and use this work, even for commercial purposes, without permission or attribution.
 
 ## Acknowledgments
 
diff --git a/docs/index.html b/docs/index.html
@@ -216,7 +216,7 @@ <h1 class="title"></h1>
   
 
 
-</header><!-- badges: start --><p><a href="https://www.repostatus.org/#inactive"><img src="https://img.shields.io/badge/Repo%20Status-Inactive-A6A82D.svg" class="img-fluid" alt="Project Status: Inactive – The project has reached a stable, usable state but is no longer being actively developed; support/maintenance will be provided as time allows."></a> <a href="https://doi.org/10.17605/OSF.IO/UCMS6"><img src="https://img.shields.io/badge/OSF-10.17605/OSF.IO/UCMS6-1284C5.svg" class="img-fluid" alt="OSF DOI"></a> <a href="http://creativecommons.org/publicdomain/zero/1.0/"><img src="https://img.shields.io/badge/License-CC0_1.0-lightgrey.svg" class="img-fluid" alt="License: CC0-1.0"></a> <!-- badges: end --></p>
+</header><!-- badges: start --><p><a href="https://www.repostatus.org/#inactive"><img src="https://img.shields.io/badge/Repo%20Status-Inactive-A6A82D.svg" class="img-fluid" alt="Project Status: Inactive – The project has reached a stable, usable state but is no longer being actively developed; support/maintenance will be provided as time allows."></a> <a href="https://doi.org/10.17605/OSF.IO/WHJ92"><img src="https://img.shields.io/badge/OSF-10.17605/OSF.IO/WHJ92-1284C5.svg" class="img-fluid" alt="OSF DOI"></a> <a href="http://creativecommons.org/publicdomain/zero/1.0/"><img src="https://img.shields.io/badge/License-CC0_1.0-lightgrey.svg" class="img-fluid" alt="License: CC0-1.0"></a> <!-- badges: end --></p>
 <section id="overview" class="level2"><h2 class="anchored" data-anchor-id="overview">Overview</h2>
 <p>This report provides a reproducible pipeline for processing <a href="https://datasus.saude.gov.br/">DATASUS</a> data on the <a href="https://en.wikipedia.org/wiki/Gini_coefficient">Gini Index</a> of per capita household income by Brazilian municipality for the years 1991, 2000, and 2010. The main goal is to provide a transparent and reliable workflow for processing these data, supporting research and informed public policy decisions.</p>
 </section><section id="data-availability" class="level2"><h2 class="anchored" data-anchor-id="data-availability">Data Availability</h2>
@@ -241,7 +241,7 @@ <h1 class="title"></h1>
 </section><section id="code-style" class="level3"><h3 class="anchored" data-anchor-id="code-style">Code Style</h3>
 <p>The Tidyverse <a href="https://style.tidyverse.org/">code style guide</a> and <a href="https://design.tidyverse.org/">design principles</a> were followed to ensure consistency and enhance readability.</p>
 </section><section id="reproducibility" class="level3"><h3 class="anchored" data-anchor-id="reproducibility">Reproducibility</h3>
-<p>The pipeline is fully reproducible and can be run again at any time. See the <a href="hhttps://github.com/danielvartan/datasus-gini-index/blob/main/README.md">README</a> file in the code repository to learn how to run them.</p>
+<p>The pipeline is fully reproducible and can be run again at any time. See the <a href="https://github.com/danielvartan/datasus-gini-index/blob/main/README.md">README</a> file in the code repository to learn how to run them.</p>
 </section></section><section id="setting-the-environment" class="level2"><h2 class="anchored" data-anchor-id="setting-the-environment">Setting the Environment</h2>
 <div class="cell">
 <div class="sourceCode" id="cb1"><pre class="downlit sourceCode r code-with-copy"><code class="sourceCode R"><span><span class="kw"><a href="https://rdrr.io/r/base/library.html">library</a></span><span class="op">(</span><span class="va"><a href="https://danielvartan.github.io/brandr/">brandr</a></span><span class="op">)</span></span>
@@ -354,7 +354,7 @@ <h1 class="title"></h1>
 <span>      <span class="va">municipality</span> <span class="op">|&gt;</span></span>
 <span>      <span class="fu">stringr</span><span class="fu">::</span><span class="fu"><a href="https://stringr.tidyverse.org/reference/str_remove.html">str_remove</a></span><span class="op">(</span><span class="st">"\\d*"</span><span class="op">)</span> <span class="op">|&gt;</span></span>
 <span>      <span class="fu">stringr</span><span class="fu">::</span><span class="fu"><a href="https://stringr.tidyverse.org/reference/str_trim.html">str_trim</a></span><span class="op">(</span><span class="op">)</span></span>
-<span>  <span class="op">)</span><span class="op">|&gt;</span></span>
+<span>  <span class="op">)</span> <span class="op">|&gt;</span></span>
 <span>  <span class="fu">dplyr</span><span class="fu">::</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/relocate.html">relocate</a></span><span class="op">(</span></span>
 <span>    <span class="va">year</span>,</span>
 <span>    <span class="va">municipality_code</span>,</span>
@@ -625,7 +625,7 @@ <h1 class="title"></h1>
 <div style="text-align: left;">
 <p><a href="http://creativecommons.org/publicdomain/zero/1.0/"><img src="https://img.shields.io/badge/License-CC0_1.0-lightgrey.svg" class="img-fluid"></a></p>
 </div>
-<p>The content is licensed under <a href="https://creativecommons.org/publicdomain/zero/1.0/">CC0 1.0 Universal</a>, placing these materials in the public domain. You may freely copy, modify, distribute, and use this work, even for commercial purposes, without permission or attribution.</p>
+<p>This content is licensed under <a href="https://creativecommons.org/publicdomain/zero/1.0/">CC0 1.0 Universal</a>, placing these materials in the public domain. You may freely copy, modify, distribute, and use this work, even for commercial purposes, without permission or attribution.</p>
 </section><section id="references" class="level2 unnumbered"><h2 class="unnumbered anchored" data-anchor-id="references">References</h2>
 <div id="refs" class="references csl-bib-body hanging-indent" data-entry-spacing="0" data-line-spacing="2" role="list">
 <div id="ref-allaire" class="csl-entry" role="listitem">
diff --git a/docs/search.json b/docs/search.json
@@ -53,7 +53,7 @@
     "href": "index.html#tidying-the-data",
     "title": "",
     "section": "Tidying the Data",
-    "text": "Tidying the Data\n\ndata &lt;-\n  data |&gt;\n  dplyr::mutate(\n    dplyr::across(\n      .cols = dplyr::starts_with(\"x\"),\n      .fns = ~ dplyr::case_when(\n        .x == \"...\" ~ NA,\n        TRUE ~ .x |&gt; stringr::str_replace_all(\",\", \".\")\n      )\n    ),\n    dplyr::across(\n      .cols = dplyr::starts_with(\"x\"),\n      .fns = as.numeric\n    )\n  ) |&gt;\n  tidyr::pivot_longer(\n    cols = starts_with(\"x\"),\n    names_to = \"year\",\n    values_to = \"gini_index\"\n  ) |&gt;\n  dplyr::mutate(\n    year =\n      year |&gt;\n      stringr::str_remove(\"x\") |&gt;\n      as.integer(),\n    municipality_code =\n      municipality |&gt;\n      stringr::str_extract(\"\\\\d*\") |&gt;\n      as.integer(),\n    municipality =\n      municipality |&gt;\n      stringr::str_remove(\"\\\\d*\") |&gt;\n      stringr::str_trim()\n  )|&gt;\n  dplyr::relocate(\n    year,\n    municipality_code,\n    .before = municipality\n  )\n\n\ndata |&gt; dplyr::glimpse()\n#&gt; Rows: 16,695\n#&gt; Columns: 4\n#&gt; $ year              &lt;int&gt; 1991, 2000, 2010, 1991, 2000, 2010, 1991, 2000, 2…\n#&gt; $ municipality_code &lt;int&gt; 110001, 110001, 110001, 110037, 110037, 110037, 1…\n#&gt; $ municipality      &lt;chr&gt; \"Alta Floresta D'Oeste\", \"Alta Floresta D'Oeste\",…\n#&gt; $ gini_index        &lt;dbl&gt; 0.5983, 0.5868, 0.5893, NA, 0.5080, 0.5491, NA, 0…"
+    "text": "Tidying the Data\n\ndata &lt;-\n  data |&gt;\n  dplyr::mutate(\n    dplyr::across(\n      .cols = dplyr::starts_with(\"x\"),\n      .fns = ~ dplyr::case_when(\n        .x == \"...\" ~ NA,\n        TRUE ~ .x |&gt; stringr::str_replace_all(\",\", \".\")\n      )\n    ),\n    dplyr::across(\n      .cols = dplyr::starts_with(\"x\"),\n      .fns = as.numeric\n    )\n  ) |&gt;\n  tidyr::pivot_longer(\n    cols = starts_with(\"x\"),\n    names_to = \"year\",\n    values_to = \"gini_index\"\n  ) |&gt;\n  dplyr::mutate(\n    year =\n      year |&gt;\n      stringr::str_remove(\"x\") |&gt;\n      as.integer(),\n    municipality_code =\n      municipality |&gt;\n      stringr::str_extract(\"\\\\d*\") |&gt;\n      as.integer(),\n    municipality =\n      municipality |&gt;\n      stringr::str_remove(\"\\\\d*\") |&gt;\n      stringr::str_trim()\n  ) |&gt;\n  dplyr::relocate(\n    year,\n    municipality_code,\n    .before = municipality\n  )\n\n\ndata |&gt; dplyr::glimpse()\n#&gt; Rows: 16,695\n#&gt; Columns: 4\n#&gt; $ year              &lt;int&gt; 1991, 2000, 2010, 1991, 2000, 2010, 1991, 2000, 2…\n#&gt; $ municipality_code &lt;int&gt; 110001, 110001, 110001, 110037, 110037, 110037, 1…\n#&gt; $ municipality      &lt;chr&gt; \"Alta Floresta D'Oeste\", \"Alta Floresta D'Oeste\",…\n#&gt; $ gini_index        &lt;dbl&gt; 0.5983, 0.5868, 0.5893, NA, 0.5080, 0.5491, NA, 0…"
   },
   {
     "objectID": "index.html#adding-state-and-region-data",
@@ -116,7 +116,7 @@
     "href": "index.html#license",
     "title": "",
     "section": "License",
-    "text": "License\n\n\n\nThe content is licensed under CC0 1.0 Universal, placing these materials in the public domain. You may freely copy, modify, distribute, and use this work, even for commercial purposes, without permission or attribution."
+    "text": "License\n\n\n\nThis content is licensed under CC0 1.0 Universal, placing these materials in the public domain. You may freely copy, modify, distribute, and use this work, even for commercial purposes, without permission or attribution."
   },
   {
     "objectID": "index.html#references",
diff --git a/docs/sitemap.xml b/docs/sitemap.xml
@@ -2,6 +2,6 @@
 <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
   <url>
     <loc>https://sustentarea.github.io/datasus-gini-index/index.html</loc>
-    <lastmod>2025-05-04T08:58:17.337Z</lastmod>
+    <lastmod>2025-05-04T20:42:52.840Z</lastmod>
   </url>
 </urlset>
diff --git a/index.qmd b/index.qmd
@@ -8,7 +8,7 @@ source(here::here("R", "_setup.R"))
 <!-- badges: start -->
 [![Project Status: Inactive – The project has reached a stable, usable state but is no longer being actively developed; support/maintenance will be provided as time allows.](https://img.shields.io/badge/Repo%20Status-Inactive-A6A82D.svg)](https://www.repostatus.org/#inactive)
 [![OSF
-DOI](https://img.shields.io/badge/OSF-10.17605/OSF.IO/UCMS6-1284C5.svg)](https://doi.org/10.17605/OSF.IO/UCMS6)
+DOI](https://img.shields.io/badge/OSF-10.17605/OSF.IO/WHJ92-1284C5.svg)](https://doi.org/10.17605/OSF.IO/WHJ92)
 [![License: CC0-1.0](https://img.shields.io/badge/License-CC0_1.0-lightgrey.svg)](http://creativecommons.org/publicdomain/zero/1.0/)
 <!-- badges: end -->
 
@@ -50,7 +50,7 @@ The Tidyverse [code style guide](https://style.tidyverse.org/) and [design princ
 
 ### Reproducibility
 
-The pipeline is fully reproducible and can be run again at any time. See the [README](hhttps://github.com/danielvartan/datasus-gini-index/blob/main/README.md) file in the code repository to learn how to run them.
+The pipeline is fully reproducible and can be run again at any time. See the [README](https://github.com/danielvartan/datasus-gini-index/blob/main/README.md) file in the code repository to learn how to run them.
 
 ## Setting the Environment
 
@@ -186,7 +186,7 @@ data <-
       municipality |>
       stringr::str_remove("\\d*") |>
       stringr::str_trim()
-  )|>
+  ) |>
   dplyr::relocate(
     year,
     municipality_code,
@@ -483,7 +483,7 @@ A BibTeX entry for LaTeX users is
 [![](https://img.shields.io/badge/License-CC0_1.0-lightgrey.svg)](http://creativecommons.org/publicdomain/zero/1.0/)
 :::
 
-The content is licensed under [CC0 1.0 Universal](https://creativecommons.org/publicdomain/zero/1.0/), placing these materials in the public domain. You may freely copy, modify, distribute, and use this work, even for commercial purposes, without permission or attribution.
+This content is licensed under [CC0 1.0 Universal](https://creativecommons.org/publicdomain/zero/1.0/), placing these materials in the public domain. You may freely copy, modify, distribute, and use this work, even for commercial purposes, without permission or attribution.
 
 ## References {.unnumbered}
 
diff --git a/renv.lock b/renv.lock
diff --git a/renv/.gitignore b/renv/.gitignore
diff --git a/renv/activate.R b/renv/activate.R
diff --git a/renv/settings.json b/renv/settings.json
