data-raw/key_crop_yields.R

In Erin317/cwdata: What the Package Does (One Line, Title Case)

## 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)