Skip to content
Snippets Groups Projects
Commit 44494efc authored by Jenny Bryan's avatar Jenny Bryan
Browse files

Re-render README for data-raw

parent 0d67e598
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
data-raw/README.Rmd
+ 11
− 15
View file @ 44494efc
......@@ -14,20 +14,15 @@ Cleaning history
* 2015: I revisited the cleaning and switched to `readxl`. This was much less painful. Present day.
```{r results='asis', echo = FALSE, warning = FALSE}
## 2015-12-30 I'm using dev version of almost everything but don't
## want to clutter the README with session_info()
## here the important versions
## purrr * 0.1.0.9000 2015-12-29 Github (hadley/purrr@13ba73a)
## tidyr * 0.3.1.9000 2015-12-31 Github (hadley/tidyr@f85cdf4)
suppressPackageStartupMessages(library(dplyr))
library(tidyverse)
library(stringr)
suppressPackageStartupMessages(library(purrr))
library(tidyr)
library(knitr)
library(here)
fls <- list.files()
x <- data_frame(fls) %>%
separate(fls, c("script", "slug", "ext"), "[_\\.]", remove = FALSE)
fls <- list.files(here::here("data-raw"), full.names = TRUE)
x <- tibble(fls) %>%
mutate(fls_basename = basename(fls)) %>%
separate(fls_basename, c("script", "slug", "ext"), "[_\\.]")
x <- x %>%
filter(script %>% str_detect("^[0-9]+"),
ext %>% str_detect("R|r|md|tsv")) %>%
......@@ -43,9 +38,11 @@ collapse_md_links <- function(x) {
paste(collapse = ", ")
}
jfun <- function(z) {
data_frame(r_script = z$fls[z$ext == "R"] %>% collapse_md_links(),
notebook = z$fls[z$ext == "md"] %>% collapse_md_links(),
tsv = z$fls[z$ext == "tsv"] %>% collapse_md_links())
tibble(
r_script = z$fls[z$ext == "R"] %>% collapse_md_links(),
notebook = z$fls[z$ext == "md"] %>% collapse_md_links(),
tsv = z$fls[z$ext == "tsv"] %>% collapse_md_links()
)
}
y$data %>%
......@@ -56,4 +53,3 @@ y$data %>%
```{r eval = FALSE, echo = FALSE}
devtools::session_info()
```
data-raw/README.md
+ 32
− 12
View file @ 44494efc
......@@ -9,15 +9,35 @@ Cleaning history
- 2014: I re-cleaned the data and (mostly) forced myself to pull it straight out of the spreadsheets. Used the `gdata` package. It was kind of painful, due to encoding and other issues. See the scripts in this state in [v0.1.0](https://github.com/jennybc/gapminder/tree/v0.1.0/data-raw).
- 2015: I revisited the cleaning and switched to `readxl`. This was much less painful. Present day.
| r\_script | notebook | tsv |
|:------------------------------------------------------------------------|:--------------------------------------------------------------------------|:-----------------------------------------------------------------------------------------------------|
| [01\_extract-from-excel-pop.R](01_extract-from-excel-pop.R) | [01\_extract-from-excel-pop.md](01_extract-from-excel-pop.md) | [01\_pop.tsv](01_pop.tsv) |
| [02\_extract-from-excel-lifeExp.R](02_extract-from-excel-lifeExp.R) | [02\_extract-from-excel-lifeExp.md](02_extract-from-excel-lifeExp.md) | [02\_lifeExp.tsv](02_lifeExp.tsv) |
| [03\_extract-from-excel-gdpPercap.R](03_extract-from-excel-gdpPercap.R) | [03\_extract-from-excel-gdpPercap.md](03_extract-from-excel-gdpPercap.md) | [03\_gdpPercap.tsv](03_gdpPercap.tsv) |
| [04\_merge-pop-lifeExp-gdpPercap.R](04_merge-pop-lifeExp-gdpPercap.R) | [04\_merge-pop-lifeExp-gdpPercap.md](04_merge-pop-lifeExp-gdpPercap.md) | [04\_gap-merged.tsv](04_gap-merged.tsv) |
| [05\_impute-china-1952-gdpPercap.R](05_impute-china-1952-gdpPercap.R) | [05\_impute-china-1952-gdpPercap.md](05_impute-china-1952-gdpPercap.md) | [05\_gap-merged-with-china-1952.tsv](05_gap-merged-with-china-1952.tsv) |
| [06\_smell-test-gap-merged.R](06_smell-test-gap-merged.R) | [06\_smell-test-gap-merged.md](06_smell-test-gap-merged.md) | []() |
| [07\_fill-and-fix-continent.R](07_fill-and-fix-continent.R) | [07\_fill-and-fix-continent.md](07_fill-and-fix-continent.md) | [07\_gap-merged-with-continent.tsv](07_gap-merged-with-continent.tsv) |
| [08\_filter-every-five-years.R](08_filter-every-five-years.R) | [08\_filter-every-five-years.md](08_filter-every-five-years.md) | [08\_gap-every-five-years.tsv](08_gap-every-five-years.tsv) |
| [09\_add-data-to-package.R](09_add-data-to-package.R) | [09\_add-data-to-package.md](09_add-data-to-package.md) | []() |
| [40\_make-color-scheme.R](40_make-color-scheme.R) | [40\_make-color-scheme.md](40_make-color-scheme.md) | [40\_continent-colors.tsv](40_continent-colors.tsv), [40\_country-colors.tsv](40_country-colors.tsv) |
<!-- -->
## + ggplot2 2.2.1 Date: 2017-10-31
## + tibble 1.3.4 R: 3.4.1
## + tidyr 0.7.1 OS: macOS Sierra 10.12.6
## + readr 1.1.1 GUI: X11
## + purrr 0.2.3.9000 Locale: en_CA.UTF-8
## + dplyr 0.7.4 TZ: America/Vancouver
## + stringr 1.2.0.9000
## + forcats 0.2.0
## ── Conflicts ────────────────────────────────────────────────────
## * filter(), from dplyr, masks stats::filter()
## * lag(), from dplyr, masks stats::lag()
## here() starts at /Users/jenny/rrr/gapminder
| r\_script | notebook | tsv |
|:------------------------------------------------------------------------------------------------------------------------------------------------|:--------------------------------------------------------------------------------------------------------------------------------------------------|:-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
| [/Users/jenny/rrr/gapminder/data-raw/01\_extract-from-excel-pop.R](/Users/jenny/rrr/gapminder/data-raw/01_extract-from-excel-pop.R) | [/Users/jenny/rrr/gapminder/data-raw/01\_extract-from-excel-pop.md](/Users/jenny/rrr/gapminder/data-raw/01_extract-from-excel-pop.md) | [/Users/jenny/rrr/gapminder/data-raw/01\_pop.tsv](/Users/jenny/rrr/gapminder/data-raw/01_pop.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/02\_extract-from-excel-lifeExp.R](/Users/jenny/rrr/gapminder/data-raw/02_extract-from-excel-lifeExp.R) | [/Users/jenny/rrr/gapminder/data-raw/02\_extract-from-excel-lifeExp.md](/Users/jenny/rrr/gapminder/data-raw/02_extract-from-excel-lifeExp.md) | [/Users/jenny/rrr/gapminder/data-raw/02\_lifeExp.tsv](/Users/jenny/rrr/gapminder/data-raw/02_lifeExp.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/03\_extract-from-excel-gdpPercap.R](/Users/jenny/rrr/gapminder/data-raw/03_extract-from-excel-gdpPercap.R) | [/Users/jenny/rrr/gapminder/data-raw/03\_extract-from-excel-gdpPercap.md](/Users/jenny/rrr/gapminder/data-raw/03_extract-from-excel-gdpPercap.md) | [/Users/jenny/rrr/gapminder/data-raw/03\_gdpPercap.tsv](/Users/jenny/rrr/gapminder/data-raw/03_gdpPercap.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/04\_merge-pop-lifeExp-gdpPercap.R](/Users/jenny/rrr/gapminder/data-raw/04_merge-pop-lifeExp-gdpPercap.R) | [/Users/jenny/rrr/gapminder/data-raw/04\_merge-pop-lifeExp-gdpPercap.md](/Users/jenny/rrr/gapminder/data-raw/04_merge-pop-lifeExp-gdpPercap.md) | [/Users/jenny/rrr/gapminder/data-raw/04\_gap-merged.tsv](/Users/jenny/rrr/gapminder/data-raw/04_gap-merged.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/05\_impute-china-1952-gdpPercap.R](/Users/jenny/rrr/gapminder/data-raw/05_impute-china-1952-gdpPercap.R) | [/Users/jenny/rrr/gapminder/data-raw/05\_impute-china-1952-gdpPercap.md](/Users/jenny/rrr/gapminder/data-raw/05_impute-china-1952-gdpPercap.md) | [/Users/jenny/rrr/gapminder/data-raw/05\_gap-merged-with-china-1952.tsv](/Users/jenny/rrr/gapminder/data-raw/05_gap-merged-with-china-1952.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/06\_smell-test-gap-merged.R](/Users/jenny/rrr/gapminder/data-raw/06_smell-test-gap-merged.R) | [/Users/jenny/rrr/gapminder/data-raw/06\_smell-test-gap-merged.md](/Users/jenny/rrr/gapminder/data-raw/06_smell-test-gap-merged.md) | []() |
| [/Users/jenny/rrr/gapminder/data-raw/07\_fill-and-fix-continent.R](/Users/jenny/rrr/gapminder/data-raw/07_fill-and-fix-continent.R) | [/Users/jenny/rrr/gapminder/data-raw/07\_fill-and-fix-continent.md](/Users/jenny/rrr/gapminder/data-raw/07_fill-and-fix-continent.md) | [/Users/jenny/rrr/gapminder/data-raw/07\_gap-merged-with-continent.tsv](/Users/jenny/rrr/gapminder/data-raw/07_gap-merged-with-continent.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/08\_filter-every-five-years.R](/Users/jenny/rrr/gapminder/data-raw/08_filter-every-five-years.R) | [/Users/jenny/rrr/gapminder/data-raw/08\_filter-every-five-years.md](/Users/jenny/rrr/gapminder/data-raw/08_filter-every-five-years.md) | [/Users/jenny/rrr/gapminder/data-raw/08\_gap-every-five-years.tsv](/Users/jenny/rrr/gapminder/data-raw/08_gap-every-five-years.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/09\_add-data-to-package.R](/Users/jenny/rrr/gapminder/data-raw/09_add-data-to-package.R) | [/Users/jenny/rrr/gapminder/data-raw/09\_add-data-to-package.md](/Users/jenny/rrr/gapminder/data-raw/09_add-data-to-package.md) | []() |
| [/Users/jenny/rrr/gapminder/data-raw/10\_iso-codes.R](/Users/jenny/rrr/gapminder/data-raw/10_iso-codes.R) | [/Users/jenny/rrr/gapminder/data-raw/10\_iso-codes.md](/Users/jenny/rrr/gapminder/data-raw/10_iso-codes.md) | [/Users/jenny/rrr/gapminder/data-raw/10\_iso-codes.tsv](/Users/jenny/rrr/gapminder/data-raw/10_iso-codes.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/40\_make-color-scheme.R](/Users/jenny/rrr/gapminder/data-raw/40_make-color-scheme.R) | [/Users/jenny/rrr/gapminder/data-raw/40\_make-color-scheme.md](/Users/jenny/rrr/gapminder/data-raw/40_make-color-scheme.md) | [/Users/jenny/rrr/gapminder/data-raw/40\_continent-colors.tsv](/Users/jenny/rrr/gapminder/data-raw/40_continent-colors.tsv), [/Users/jenny/rrr/gapminder/data-raw/40\_country-colors.tsv](/Users/jenny/rrr/gapminder/data-raw/40_country-colors.tsv) |
| [/Users/jenny/rrr/gapminder/data-raw/80\_custom-spelling.R](/Users/jenny/rrr/gapminder/data-raw/80_custom-spelling.R) | []() | []() |
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment