data-raw/pfi_sitemgmt/pfi_sitemgmt.R

library(usethis)
library(readxl)
library(readr)
library(dplyr)
library(stringr)

rm(list = ls())

pfi_sitemgmt <-
  readxl::read_excel("data-raw/pfi_sitemgmt/PFIweeds_site_summaries-nice.xlsx", skip = 1) %>%
  mutate_all(funs(stringr::str_replace(., "corn", "maize")))

pfi_sitemgmt %>%
  write_csv("data-raw/pfi_sitemgmt/pfi_sitemgmt.csv")
usethis::use_data(pfi_sitemgmt, overwrite = TRUE)
vanichols/PFIweeds2020 documentation built on Oct. 14, 2020, 5:39 p.m.