data-raw/key_crop_yields.R

In mayunk264/cwdata: Communicating with Data Resources

## code to prepare `key_crop_yields` dataset goes here


library(readr)
library(janitor)
library(tidyr)
library(magrittr)
library(dplyr)

url <- 'https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-09-01/key_crop_yields.csv'

key_crop_yields <- read_csv(url) %>%
  clean_names() %>%
  pivot_longer(
    cols = c(-entity,-code,-year),
    names_to = "crop",
    values_to = "tonnes_per_hectare",
    names_pattern = "([^_]+)"
  ) %>%
  rename(country = entity)


usethis::use_data(key_crop_yields, overwrite = TRUE)