data-raw/09_add-data-to-package.md

In YTLogos/gapminder: Data from Gapminder

r format(Sys.Date())

suppressPackageStartupMessages(library(dplyr))
library(readr)

Copy datasets to inst/.

file.copy(from =  "07_gap-merged-with-continent.tsv",
          to = file.path("..", "inst", "gapminder-unfiltered.tsv"),
          overwrite = TRUE)

## [1] TRUE

file.copy(from =  "08_gap-every-five-years.tsv",
          to = file.path("..", "inst", "gapminder.tsv"),
          overwrite = TRUE)

## [1] TRUE

Put .Rdata packages in data/.

gapminder_unfiltered <- read_tsv("07_gap-merged-with-continent.tsv") %>% 
  mutate(country = factor(country),
         continent = factor(continent)) %>% 
  select(country, year, pop, gdpPercap, lifeExp, continent)
save(gapminder_unfiltered,
     file = file.path("..", "data", "gapminder_unfiltered.rdata"))
gapminder <- read_tsv("08_gap-every-five-years.tsv") %>% 
  mutate(country = factor(country),
         continent = factor(continent)) %>% 
  select(country, year, pop, gdpPercap, lifeExp, continent)
save(gapminder, file = file.path("..", "data", "gapminder.rdata"))

title: "09_add-data-to-package.R" author: "jenny" date: "Wed Dec 30 08:30:17 2015"

YTLogos/gapminder documentation built on May 20, 2019, 1:47 p.m.