data-raw/key_crop_yields.R

In kgar0017/cwdata: Datasets for communicating with data

## code to prepare `key_crop_yields` dataset goes here
library(readr)
library(janitor)
library(tidyr)
library(magrittr)
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 = ends_with("tonnes_per_hectare"),
    names_to = "crop",
    values_to = "tonnes_per_hectare", names_pattern = "([^_]+)"
  )


usethis::use_data(key_crop_yields, overwrite = TRUE)