data-raw/key_crop_yields.R

In prigrecov/cwdata: Communicating with Data Resource Pack

## 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("year", "code", "entity"),
    names_to = "crop",
    values_to = "tonnes_per_hectare",
    names_pattern = "([^_]+)"
  ) %>%
  rename(country = entity)

usethis::use_data(key_crop_yields, overwrite = TRUE)